Find first (Access 2000)

Topic

New Reply

Why is my function not working.I am not able to find the customer with this function :

Dim f As Form
Set f = Forms!FCustomers
Dim strCustomerID As String
strCustomerID = InputBox(“Enter customer number ? “)
If strCustomerID = “” Then
Exit Sub
End If
f.RecordsetClone.FindFirst “CustomerID = ” & strCustomerID
If f.RecordsetClone.NoMatch Then
MsgBox “customer ” & strCustomerID & ” does not exist!!”
End If

Reply | Quote

Replies

Because you don’t do anything if the record is found. Access does not try to guess what you might have intended.

Change

If f.RecordsetClone.NoMatch Then
MsgBox “customer ” & strCustomerID & ” does not exist!!”
End If

to

If f.RecordsetClone.NoMatch Then
MsgBox “customer ” & strCustomerID & ” does not exist!”
Else
‘ Move to the record
f.Bookmark = f.RecordsetClone.Bookmark
End If

Reply | Quote

really grateful ! Thanks a lot !

Reply | Quote