
Merhaba. Ekteki veritabanında frm_klasor isimli formda yer alan Liste 7 isimli liste kutusundaki klasör isimlerine tıklandığında sağıdaki Liste11 isimli liste kutusunda o klasörlere ait arşiv bilgilerinin filtrelenmesini nasıl yapabilirim?
Private Sub Form_Current()
Me.Liste11.RowSource = " SELECT tbl_arsiv.arsiv_id, tbl_arsiv.arsiv_adı, tbl_arsiv.arsiv_sahibi, tbl_arsiv.klasor_no, tbl_arsiv.arsiv_kategori" & _
" FROM tbl_arsiv ;"
End Sub
Private Sub Liste7_Click()
Dim strSQL As String
strSQL = " SELECT tbl_arsiv.arsiv_id, tbl_arsiv.arsiv_adı, tbl_arsiv.arsiv_sahibi, tbl_arsiv.klasor_no, tbl_arsiv.arsiv_kategori" & _
" FROM tbl_arsiv " & _
" WHERE (((tbl_arsiv.klasor_no)=" & Me.Liste7.Column(1) & "));"
Me.Liste11.RowSource = strSQL
End Sub