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?
sayın @
mmert06 aşağıdaki kodları dener misiniz
frm_klasor isimli formun geçerli olduğunda olayına
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
liste7'nin tıklandığında olayına da
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
Sayın @"haliliyas" dediğiniz kodları uyguladım fakat çalıştırdığımda aşağıdaki uyarı penceresi ekrana geldi.
dosyanızı yollar mısınız?
pardon Private Sub Liste7_Click() ifadesini iki kez yazıldığı için sorun olmuş silince şimdi düzeldi. çok saolun sayın @halilyas
sorun yok, istediğiniz gibi çalışıyor öyle mi?