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