Searching through records on a form

[Wagon]

Good Afternoon,

I currently have a form based on a table in my database and wish to be able to search though it to find a specific record

The code I currently have is this:

Private Sub Command36_Click()
Dim searchtext
Dim searchcode


searchtext = txtsearch.Value
searchcode = [Text1].Value


If searchtext = searchcode Then
MsgBox "Search Complete"
Else
DoCmd.GoToRecord , , acNext


End If
Exit Sub
End Sub

This works fine with the exception of that I have to keep clicking the button to find the record i want. I have tried a loop but i have never used them before and must have done it wrong as it didn't work at all.

If anyone could make any suggestions it would be much appreciated



Thank you

Regards

[ranman256]

instead of searching 1 by 1, just filter them all....



Private Sub Command36_click()
me.filter = "[code]='" & txtSearchBox & "'"
me.filterOn = true
end sub


turn the filter off (top toolbar) to see all recs again

[Wagon]

That works Perfectly

Thank you so much