Can anyone please tell me how I can modify this code to make it filter results in a combo box by what the user types in to search for. Thanks
Private Sub txtSearch_AfterUpdate()
With Me.RecordsetClone
.FindFirst "[FirstName]=""" & Me.txtSearch & """ OR [Lastname]=""" & Me.txtSearch & """"
If .NoMatch Then
Beep
Else
Me.Bookmark = .Bookmark
End If
End With
End Sub
Private Sub Combo1254_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo1254], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo1256_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CUST] = '" & Me![Combo1256] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub