A
Afrosheen via AccessMonster.com
Thanks for reading this post.
I have a search routine where I search for an item then when I click on the
"Find Item" it is supposed to to that item. The problem is that before it
goes to the item I get an error. I believe its a data miss match
The field I'm trying to search on is an autonumber field called IdNumber.
Its probably something simple. I'm wondering if it has something to do with
line 50
20 Parent!cmdFind.SetFocus
30 Parent!SubFrmFind.Visible = False
40 With Parent.RecordsetClone
50 .FindFirst "IdNumber = '" & IdNumber & "'"
60 If Not .NoMatch Then
70 Parent.Bookmark = .Bookmark
80 Else
Beep
90 Call MsgBox("This Item is not on this list..", vbInformation,
Application.Name)
100 'FilterOn = False
110 End If
120 End With
Thanks for your help
I have a search routine where I search for an item then when I click on the
"Find Item" it is supposed to to that item. The problem is that before it
goes to the item I get an error. I believe its a data miss match
The field I'm trying to search on is an autonumber field called IdNumber.
Its probably something simple. I'm wondering if it has something to do with
line 50
20 Parent!cmdFind.SetFocus
30 Parent!SubFrmFind.Visible = False
40 With Parent.RecordsetClone
50 .FindFirst "IdNumber = '" & IdNumber & "'"
60 If Not .NoMatch Then
70 Parent.Bookmark = .Bookmark
80 Else
Beep
90 Call MsgBox("This Item is not on this list..", vbInformation,
Application.Name)
100 'FilterOn = False
110 End If
120 End With
Thanks for your help