Search box in form-using wildcards

[Maria J]

Does anyone have some code for creating a search box in a form which uses wildcards, which allows users to enter data and then shows the information for that single record chosen?
Thanks in advance

 

[Simon_MT]

This does not necessarily get one record but it uses Wildcards:

Private Function OriginalsSearchCriteria() As String
    With CodeContextObject
         OriginalsSearchCriteria = "[Artist Surname] like '" & .[Surname] & "*" & "' and [Artist First Name] like '" & .[First] & "*" & "' and [Type Stock] ='S' and [Status Flag] like '" & .[Flag] & "*" & "' and [Orig Status] like '" & .[Status] & "*" & "' and [Orig Web] like '" & .[Web] & "*" & "' and [Orig Stock Status] like '" & .[Stock Status] & "*" & "'"
    End With
End Function

Then to Open Form

Function OriginalsDialogueSearch_Entry()
    DoCmd.OpenForm "Originals Entry", , "", OriginalsSearchCriteria, , acWindowNormal
End Function

Simon