Search Textbox not responding

[Linda W. via AccessMonster.com]

I have a text box on my for named "TextJO". I'm using it to search for
either a Job order number or the tracking number. The Job order number has a
hyphen so I'm using it as text field. But when I enter a job number or a
tracking no, it does nothing. Here's my code.

Private Sub TextJO_AfterUpdate()
Dim rs As Object
Set rs = Me.RecordsetClone

If Val(Me.TextJO) = 0 Then
'(Name Search code goes here)
rs.FindFirst "JobOrder = """ & [TextJO] & """"
If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
Else
'(Number Search code goes here)
rs.FindFirst "TrackingNo = " & Str(Nz(Me![TextJO], 0))
If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
End If


End Sub

Thanks,
Linda

 

[Marshall Barton]

I have a text box on my for named "TextJO". I'm using it to search for
either a Job order number or the tracking number. The Job order number has a
hyphen so I'm using it as text field. But when I enter a job number or a
tracking no, it does nothing. Here's my code.

Private Sub TextJO_AfterUpdate()
Dim rs As Object
Set rs = Me.RecordsetClone

If Val(Me.TextJO) = 0 Then
'(Name Search code goes here)
rs.FindFirst "JobOrder = """ & [TextJO] & """"
If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
Else
'(Number Search code goes here)
rs.FindFirst "TrackingNo = " & Str(Nz(Me![TextJO], 0))
If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
End If

Val will not return 0 unless the job number starts with a
non numeric character. You may be better off using:

If Me.TextJO Like "*[!0-9]*" Then