AccessTr.neT

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?