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