Code to return 'No Record exists'

[coach32]

I have a command button on my form that when pressed will search for a number....

Private Sub Command8_Click()
Dim str As String
str = InputBox("What is the Business Number?", "Company")
str = "*" & str & "*"
Me.DataEntry = False
DoCmd.FindRecord str, , False, , True
End Sub

If the number doesn't exist in the list, the form shows the first number in the list.
How do I bring up a message that says the 'Number does not exist'. And if I press 'Cancel' on the button when searching , that also shows the first number on the list, which I would prefer it didn't do.
Thank you for any help you can give.

[June7]

InputBox function not best tool for user input - too hard to validate. Why not a combobox or textbox?

I've never used FindRecord. Alternatives:

1. Bookmarks and RecordsetClone to go to record

2. construct filter criteria and set form Filter property, review: http://www.allenbrowne.com/ser-62.html

[nick404]

I don't know much about FindRecord.. but could you do an If statement...?
If IsNull(FindRecord) Then MsgBox "No record exists"
Just a though,=t.

Definitely take a look at June' s link. Good reference.