Stop debug when a docmd operation is cancelled

I am using the following code to open a form

Private Sub License_Certificate_Click()
DoCmd.OpenForm ("edit records")

End Sub

The record source for the form is a query which asks for the license number before opening. Everything works fine except for when you forget the license number and click cancel on the message box. This gives an error and opens the dedugging dialog box.

How do I stop the code from activating dedug when someone press cancel on the message box  
LVL 16
SheilsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Leigh PurvisDatabase DeveloperCommented:
Alas the answer is merely one of best practice anyway.
i.e. Error Handling.

It can be as blanketing as:

Private Sub License_Certificate_Click()
On Error Resume Next
    DoCmd.OpenForm "edit records"
End Sub

or decisive as:

Private Sub License_Certificate_Click()
On Error Goto ErrHere
    DoCmd.OpenForm "edit records"
    Exit Sub
ErrHere:
    If Err <> 2501 Then
        Msgbox "Error other than form cancelled opening :-)"
    End If
End Sub

However the handling must be performed in the calling procedure.
For the error is raised in the method which attempted to open the form.  The form itself remains innocent. :-)
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
SheilsAuthor Commented:
Thanks LPurvis
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.