display message when can't find the searching result

[Guest_imported]

hi, again

i got some coding here which is using for searhing the case number ( primary key in my db). i suppose to put several line of code which can display message when can't find searhing number. help!!
thanks.
Private Sub GoBtn_Click()
Dim CaseNum As String
Dim digit As String

If IsNull(Forms!frmCases_pages!FindCaseNo) Then
DoCmd.CancelEvent
MsgBox "You Have Not Entered a Case Number!", [vbOKOnly]
DoCmd.GoToControl ("FindCaseNo&quot
Exit Sub
Else

DoCmd.GoToControl ("Case_number&quot
DoCmd.FindRecord CaseNum, , True, , True

End If

 

[TrojanRabbit]

It depends on how it reacts to finding no record meeting the criteria. Help doesn't explain that situation (not surprising). It probably returns an error, in which case you can use an error handler to handle no match.