I have used the code DoCmd.SetWarnings False and DoCmd.SetWarnings True to turn off errors if some one clicks cancel on a command button. The main concern I have is when I have this code in a command button and when I click cancel, it gives a VBA error window that says the user has canceled the operation. Is there a way to turn off other messages as well with VBA code or is SetWarnings the only way?

SetWarnings False won't do it. You need to trap the 2501 Err code (cancel) in the code that initiated the action. Typically, you're trying to open a form or report, and the Open event cancels the open. Use On Error and test for the code in your error code.


John Viescas, author
"Microsoft Office Access 2003 Inside Out"
"Running Microsoft Access 2000"
"SQL Queries for Mere Mortals"

That second warning message is a VBA run-time warning telling you that your code is failing. That's something you DON'T want to turn off, but as JLovell suggested, you can trap the error and either create a more meaningful error message or not display anything.

I don't recommend the latter because if something is really wrong, you want to know it or your form is unreliable and may bomb out.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Thank you for the help. I was able to trap the error so I think I have that problem resolved. I just have a question regarding the process of trapping errors in general. I copied some code from a different command button and tried using that. It worked for the most part until VBA saw the following line of code:

(Copy Source)
Private Sub cmdCloseReports_Click()
    On Error GoTo Err_cmdCloseReports_Click
    DoCmd.Close
Exit_cmdCloseReports_Click:
    Exit Sub
Err_cmdCloseReports_Click:
    MsgBox Err.Description
    Resume Exit_cmdCloseReports_Click
End Sub


(Copy Destination)
Private Sub cmdDisplayReport_Click()
    On Error GoTo Err_cmdDisplayReportCancel_Click
    'Open the selected report in Datasheet view.
    DoCmd.SetWarnings False
    DoCmd.OpenReport Me.lboxReportList, acViewPreview
    DoCmd.SetWarnings True
'Exit_cmdDisplayReportCancel_Click
    Exit Sub

Err_cmdDisplayReportCancel_Click:
    MsgBox Err.Description
    'Resume Exit_cmdDisplayReportCancel_Click

End Sub

When I copied the error trap(I guess that is what you call it) from cmdCloseReports and after I changed the code to reflect the new command button, it didn't like the Resume command I have formatted in bold above and it gave a run time error.

As you can see I commented the code:
 'Resume Exit_cmdDisplayReportCancel_Click for cmdDisplayReport to see if that would eliminate the run time error(and it did). I just want to know what the purpose of the Resume command was in the first place and what was causing the run time error. Please let me know if my question makes sense. I placed the code for the two command buttons to better explain what I was getting at.

Thanks again?

Chad

You need a colon after every label:

Exit_cmdDisplayReportCancel_Click:


John Viescas, author
"Microsoft Office Access 2003 Inside Out"
"Running Microsoft Access 2000"
"SQL Queries for Mere Mortals"