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
kayıt ara butonunu aşağıdaki kodla değiştirip dener misiniz