Create search box
I have a search box but there is something wrong with my code which i dont undrestand
my field name is prname and its text
Private Sub sbox_AfterUpdate()
On Error Resume Next
Me.RecordsetClone.FindFirst "prname =" & Me![Text20]
If Me.RecordsetClone.NoMatch Then
MsgBox "not found", , "error"
sbox = Null
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
sbox = Null
End If
End Sub
the problem is when i hit the enter nothing will happen but when i test it on a numerical field it was fine
Best Regards,
Hamed Gholamian
|