Re: Form search using a combo selection

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Al,
Thank you so much! You were on point with exactly what I needed.
I wasn't sure where to insert the code, but it worked on first try.
Here is the workable code
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[VendorCompanyName] = '" & Me![Combo44] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
If Recordset.EOF = True Then
MsgBox "No more records to display"
Exit Sub
End If
Me.FilterOn = False
Me.Filter = "[VendorCompanyName] = '" & Me![Combo44] & "'"
Me.FilterOn = True
End Sub
Can I profess, I Love this User group.

.

Quantcast