kayıt ara butonunu aşağıdaki kodla değiştirip dener misiniz

  Dim Kosul, KosulMayene, SqlKynk, GelMe As String



  Kosul = ""

  KosulMayene = ""



    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]) "

    End If



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

    If IsDate(Metin136) And IsDate(Metin138) Then

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

    End If



    'Kosul = Mid(Kosul, 6)



  'On Error Resume Next



SqlKynk = " SELECT PRSKYT.KimlikNo, [Adi] & ' ' & [Soyadi] AS Adı_Soyadı, PRSKYT.KadroUnvan, Kuruluslar.CalısmaKurulus, Birimler.CalismaBirim, PRSKYT.Cinsiyet" & _

          " FROM Birimler RIGHT JOIN (Kuruluslar RIGHT JOIN PRSKYT ON Kuruluslar.CKrls_id = PRSKYT.CalısmaKurulus) ON Birimler.CBrm_id = PRSKYT.CalismaBirim" & _

          " WHERE ( PRSKYT.KimlikNo " & GelMe & " in (select PERMYN2.KimlikNo from PERMYN2 " & KosulMayene & " )" & Kosul & ");"

  

  lstPersonel.RowSource = SqlKynk