Re: [belajar-access] bagaimana menggunakan Filter By Form ??

 

modify isi query Qry_Sekolah_Jurusan menjadi:

SELECT DISTINCT QryJurusan.JurID, QryJurusan.NamaJurusan
FROM QryJurusan
WHERE (((QryJurusan.NamaSekolah)=[Forms]![Demo_Isidata]![Sekolah]));



lalu tambahkan event pada after update combo Sekolah:

Private Sub Sekolah_AfterUpdate()
    Me.Combo9.Requery
End Sub


aksan kurdin

On 2/21/2012 5:11 PM, harry siswanto wrote:

 

Thanks Engkong Lusky,

 

btw masih perlu di Edit lagi nih....

krn gak bisa langsung di "Cemplungin"...

data tidak terSave...

 

Regards

Harry Siswanto

From: privat access <les.access@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Monday, February 20, 2012 8:29 PM
Subject: Re: [belajar-access] bagaimana menggunakan Filter By Form ??

 

buat event procedure after update pada Cbosekolah sbb :

Private Sub Cbosekolah_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT QryJurusan.JurID, QryJurusan.NamaJurusan FROM QryJurusan WHERE (((QryJurusan.NamaSekolah)=Forms!Form1!Cbosekolah)) ORDER BY QryJurusan.NamaJurusan; "
Me.Combo2.RowSource = strSQL
Me.Combo2.Requery
End Sub

Thanks,

Lusky Kurniawan
http://solusiaccess.wordpress.com

Pada 20 Februari 2012 01:23, harry siswanto <hsiswanto@yahoo.com> menulis:

 

[Attachment(s) from harry siswanto included below]

Dear Senior,

 

Tolong dibantu,

 

Bagaimana menggunakan Filter By Form,,

masih bingung euy...

 

terlampir contohnya,

Untuk Pilihan Jurusan yang diinginkan adalah tampil Jurusan Sesuai Sekolahnya,

dan yg disimpan adalah JurusanID nya saja,  Nama Jurusan Tampil kemudian

 

 

terima kasih atas perhatian dan kerjasamanya

 

 

Regards

Harry Siswanto

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 13

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___