findrecord help

[James]

I have findrecord working, but if there is nothing with the search value it
doesn't display a message. It add a record on a new form or changes info on
an existing info. This is what I have:

----------start code------------

Me.PackageID.SetFocus
DoCmd.FindRecord Me.GoToTrackingNo, acStart
If IsNull(Me.PickUpDate) Then
Me.PickUpDate = Now()
MsgBox "Package ID No: " & Me.PackageID & " -- Tracking #: " &
Me.TrackingNo, , "Package pick-up information was saved successfully."
Me.GoToTrackingNo.SetFocus
Else
MsgBox "This package has already been picked up!"
Me.GoToTrackingNo.SetFocus
End If
-------end code----------