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 kemudianterima kasih atas perhatian dan kerjasamanyaRegardsHarry Siswanto
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
No comments:
Post a Comment