Private Sub Liste1441_Click()
Dim strSQL As String
strSQL = " SELECT srg_idevraklar.cıkaran_makam, srg_idevraklar.evrak_tarihi, srg_idevraklar.dosya_numarası, srg_idevraklar.evrak_konusu, srg_idevraklar.gizlilik_derecesi, srg_idevraklar.güvenlik_no, srg_idevraklar.sayfa_adedi, srg_idevraklar.gittigi_kısım, srg_idevraklar.arsiv_kategorısi, srg_idevraklar.saklama_suresi, srg_idevraklar.acıklamalar, srg_idevraklar.klasor_no, srg_idevraklar.arsiv_islemi " & _
" FROM srg_idevraklar" & _
" WHERE (((srg_idevraklar.klasor_no)=" & Me.Liste1441.Column(1) & "));"
Me.Liste1454.RowSource = strSQL
End Sub
sayın @ozanakkaya daha önceki örnekte Liste 1454 ün kaynağının tbl_evrakkayıt tablosundan değil gittigi_kısım alanı "idairi İşler Kısmı" olan srg_idevraklar isimli sorgudan alması gerekiyordu onu düzelttim. Daha sonra aşağıdaki kodu Liste 1441 in tıklanma olayına yazınca sorun düzeldi şimdi. Teşekkürler.