dilerim işinize yarar ama hatırlatayım daha önceden de belirttiğim gibi boş denilebilecek tablolar özellikle de kapsamlı sorgularda, sizin açınızdan olumlu olmaz, bir kaç deneme yapar ve uygun sonuçları verdiğini görünce doğru olduğu düşünüp cevabı yollarız ama önceki konunuzda olduğu gibi aslında yanlış bir çözüm olmuş olur.
iyi çalışmalar
süzme butonunun kodu:

  Dim Kosul, SqlKynk, GelMe As String



  Kosul = ""



    If txtTCKimlikNo.Value <> "" Then

      Kosul = Kosul & " AND ((PRSKYT.KimlikNo) Like '*' & [Formlar]![frmPersonelAra]![txtTCKimlikNo] & '*')"

    End If



    If txtAdSoyad.Value <> "" Then

      Kosul = Kosul & " AND (([Adi] & ' ' & [Soyadi]) Like '*' & [Formlar]![frmPersonelAra]![txtAdSoyad] & '*') "

    End If



  If txtKadroUnvan.Value <> "" Then

      Kosul = Kosul & " AND ((PRSKYT.KadroUnvan) Like '*' & [Formlar]![frmPersonelAra]![txtKadroUnvan] & '*') "

    End If



    If txtCalısmaKurulus.Value <> "" Then

      Kosul = Kosul & " AND ((Kuruluslar.CalısmaKurulus) Like '*' & [Formlar]![frmPersonelAra]![txtCalısmaKurulus] & '*') "

    End If



    If txtBirim.Value <> "" Then

      Kosul = Kosul & " AND ((Birimler.CalismaBirim) Like '*' & [Formlar]![frmPersonelAra]![txtBirim] & '*') "

    End If





    If cmbCinsiyet.Value <> "" Then

      Kosul = Kosul & " AND ((PRSKYT.Cinsiyet)=[Formlar]![frmPersonelAra]![cmbCinsiyet]) "

      '"[Cinsiyet]=cmbCinsiyet.Value AND "

    End If



    If IsDate(Metin136) And IsDate(Metin138) Then

      Kosul = Kosul & " AND ((PERMYN2.MuayeneTarihi) Between [Formlar]![frmPersonelAra]![Metin136] AND [Formlar]![frmPersonelAra]![Metin138])"

    End If

GelMe = IIf(CerGln = 1, " Not ", "")



    Kosul = Mid(Kosul, 6)



  'On Error Resume Next

 ' lstPersonel.RowSource = "SELECT * FROM srgLstPersonel WHERE " & Kosul & " "



SqlKynk = " SELECT PRSKYT.KimlikNo, [Adi] & ' ' & [Soyadi] AS Adı_Soyadı, " & _

          " PRSKYT.KadroUnvan, Kuruluslar.CalısmaKurulus, Birimler.CalismaBirim, PRSKYT.Cinsiyet, PERMYN2.MuayeneTarihi" & _

          " FROM PERMYN2 INNER JOIN (Kuruluslar RIGHT JOIN (Birimler RIGHT JOIN PRSKYT ON Birimler.CBrm_id = PRSKYT.CalismaBirim) " & _

          " ON Kuruluslar.CKrls_id = PRSKYT.CalısmaKurulus) ON PERMYN2.KimlikNo = PRSKYT.KimlikNo" & _

          " WHERE (" & Kosul & _

          " AND (" & GelMe & "(PERMYN2.KimlikNo) Is Null));"



  lstPersonel.RowSource = SqlKynk