Search Box "Contains"

[michael.legge@rbc.com]

Hi I have a search box running the following code on After Update. I would like the search box to use a contains functionality instead of its exact nature currently.

ex. "Address Number" could be found by typing "Num". Currently I have to type "Address Number" in full exactly as it appears in my table.

Any help would be greatly appreciated.

Thanks

Private Sub txtSearch_AfterUpdate()
With Me.RecordsetClone
   .FindFirst "[QstnText]=""" & Me.txtSearch & """"
   If .NoMatch Then
      Beep
   Else
      Me.Bookmark = .Bookmark
   End If
   End With
End Sub

[pbaldy]

Try


.FindFirst "[QstnText] Like " & Chr(34) & "*" & Me.txtSearch & "*" & Chr(34)

[michael.legge@rbc.com]

Thank you very much! It worked perfectly. As a side note is the same functionality applicable to a combo box? You can jump to a record by typing in the box but it uses the "begins with" functionaluty. I have tried modifying the above code in mine below but it doesnt seem to work. Any suggestions?

Thank you once again!

Sub CboMoveTo_AfterUpdate()
Dim rs As DAO.Recordset

If Not IsNull(Me.CboMoveTo) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
rs.FindFirst "[QstnID] = " & Me.CboMoveTo
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If

[pbaldy]

What did you try? You need to use Like and wildcards. I can't think of a way around the automatic behavior of a combo while typing offhand.