L
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
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