Arkadaşlar kolay gelsin
Süzme sorgu yapıyorum alanın birisinde isteğim değiri veriyor o alanda aynı kayıttan çok fazla olduğu için ikinci bir alandan daha sorgu yaptığımda birinci sorğuyu iptal edip iknicisi üzerinden değirlendiriyor bana bu konuda yardımcı olursanız çok sevinirim.
Basit bir şeyler ekledim siz istediğiniz diğer alanlara da uygulaya bilirsiniz.
Private Sub T1_Updated(Code As Integer)
suz
End Sub
Private Sub T2_Updated(Code As Integer)
suz
End Sub
Private Sub T3_Updated(Code As Integer)
suz
End Sub
Function suz()
Dim strFilter As String
strFilter = ""
If Me.T1 <> "" Then
strFilter = "Adı Like'" & Me.T1 & "*'"
strFilter = strFilter & " AND "
End If
If Me.T2 <> "" Then
strFilter = strFilter & "Soyadı Like'" & Me.T2 & "*'"
strFilter = strFilter & " AND "
End If
If Me.T3 <> "" Then
strFilter = strFilter & "Baba Adı Like'" & Me.T3 & "*'"
strFilter = strFilter & " AND "
End If
If strFilter = "" Then
MsgBox ("Kriter girmediniz tekrar giriniz!")
Else
strFilter = Left$(strFilter, Len(strFilter) - 5)
DoCmd.ApplyFilter , strFilter
End If
End Function
esrefigit kardeş kod bilgim pek yok verdiğiniz kodu örnek üzerinde uyğulayabilirseniz öğrenmem daha kolay olur teşekkür ederim.
PuLeTiN ilginiz için teşekkür ederim. Bunu ben daha önce uyguladım bir sorunla karşılaştım eger adı ve soyadı bölümlerinden biri doldurulmamış ise yani boş ise o alandan sorgu yapmıyor o alanı hiç görmüyor.
Sorgunuzun Ölçüt bölümüne
Kod:
Is Null Or Like"*"&Formlar!Form1![ADI]&"*"
Şeklinde yazarsanız kayıtlarda boş olan varsa bile sorguda getirecektir...
TAMAM EKLEDİM OLDU- TEŞEKKÜRLER