Kod:
Private Function BuildFilter() As Variant
Dim varWhere As Variant
Dim varItem As Variant
Dim intIndex As Integer
varWhere = Null ' Main filter
' Check for LIKE First Name
If Me.txtFirstName > "" Then
varWhere = varWhere & "[ADI] LIKE """ & Me.txtFirstName & "*"" AND "
End If
' Check for LIKE Last Name
If Me.txtLastName > "" Then
varWhere = varWhere & "[SOYADI] LIKE """ & Me.txtLastName & "*"" AND "
End If
' Check for tc kimlik no
If Me.txttckimlikno > "" Then
varWhere = varWhere & "[TCKIMLIKNO] = '" & Me.txttckimlikno & "' AND "
End If
' Check for mahalle
If Me.txtmahalle > "" Then
varWhere = varWhere & "[MAHALLE] LIKE """ & Me.txtmahalle & "*"" AND "
End If
' Check for baba adı
If Me.txtbaba > "" Then
varWhere = varWhere & "[BABAADI] LIKE """ & Me.txtbaba & "*"" AND "
End If
' Check if there is a filter to return...
If IsNull(varWhere) Then
varWhere = ""
Else
varWhere = "WHERE " & varWhere
' strip off last "AND" in the filter
If Right(varWhere, 5) = " AND " Then
varWhere = Left(varWhere, Len(varWhere) - 5)
End If
End If
BuildFilter = varWhere
End Function