Template - FIND Function MS Access

[sjj1805]

Function fnd()
f = "": g = ""
If [Text11] <> "" Then f = "EventTable.EventID like " & Chr(34) & "*" & [Text11] & "*" & Chr(34): g = " And "
If [Text12] <> "" Then f = f & g & "EventTable.EventType like " & Chr(34) & "*" & [Text12] & "*" & Chr(34): g = " and "
If [Text13] <> "" Then f = f & g & "EventTable.OwnerType like " & Chr(34) & "*" & [Text13] & "*" & Chr(34): g = " and "
If [Text14] <> "" Then f = f & g & "EventTable.OwnerID like " & Chr(34) & "*" & [Text14] & "*" & Chr(34): g = " and "
If [Text15] <> "" Then f = f & g & "EventTable.FamilyID like " & Chr(34) & "*" & [Text15] & "*" & Chr(34): g = " and "
If [Text16] <> "" Then f = f & g & "EventTable.PlaceID like " & Chr(34) & "*" & [Text16] & "*" & Chr(34): g = " and "
If [Text17] <> "" Then f = f & g & "EventTable.SiteID like " & Chr(34) & "*" & [Text17] & "*" & Chr(34): g = " and "
If [Text18] <> "" Then f = f & g & "EventTable.IsPrimary like " & Chr(34) & "*" & [Text18] & "*" & Chr(34): g = " and "
If [Text19] <> "" Then f = f & g & "EventTable.IsPrivate like " & Chr(34) & "*" & [Text19] & "*" & Chr(34): g = " and "
If [Text20] <> "" Then f = f & g & "EventTable.Proof like " & Chr(34) & "*" & [Text20] & "*" & Chr(34): g = " and "
If [Text21] <> "" Then f = f & g & "EventTable.Status like " & Chr(34) & "*" & [Text21] & "*" & Chr(34): g = " and "
If [Text22] <> "" Then f = f & g & "EventTable.Sentance like " & Chr(34) & "*" & [Text22] & "*" & Chr(34): g = " and "
If [Text23] <> "" Then f = f & g & "EventTable.Details like " & Chr(34) & "*" & [Text23] & "*" & Chr(34): g = " and "
If [Text24] <> "" Then f = f & g & "EventTable.Note like " & Chr(34) & "*" & [Text24] & "*" & Chr(34)
If f = "" Then f = "SELECT EventTable.* FROM EventTable" Else f = "SELECT EventTable.* FROM EventTable where " & f
Me.RecordSource = f
End Function