How to cancel a parameter query cleanly

[HarryStamper]

I have a parameter query that is invoked from a form...
If the user clicks cancel from the parameter query...they get an ugly kind of message...is there a cleaner way to exit a parameter query.

 

[Remou]

How about:

Private Sub cmdQuery_Click()
On Error GoTo Err_cmdQuery_Click

    Dim stDocName As String

    stDocName = "qryQuery"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_cmdQuery_Click:
    Exit Sub

Err_cmdQuery_Click:
    Select Case Err.Number
        Case 2001
            MsgBox "You cancelled " & stDocName
            Resume Exit_cmdQuery_Click
        Case Else
            MsgBox Err.Description
            Resume Exit_cmdQuery_Click
    End Select
End Sub