Search Functions

[JustMaybe]

I'm trying to create a search function on a form using a combo box. The following code is what i used when looking up a primary key. Which worked fine.

Private Sub Combo72_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SupplierID] = " & Str(Nz(Me![Combo72], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

However i now want users to have the ability to search for a non-unique field, and the search function to retreive all the records with this value in the field.

Can anyone help????

 

[fried]

use the docmd.applyfilter function

 

[JustMaybe]

Thanks for your help
sorry new to VB...

where would that go?