Question

I’m generating a query and report through VBA. I have an option of asking the user if they want to output the report as a snapshot. I first ask them if they want to make a snap shot. If they say no, nothing happens. If they say yes, they get a prompt asking where they want to save it.

Everything works great except if they say yes and then click Cancel on the prompt, it raises a runtime error 2501 saying the report action was cancelled. Here is the code.

DoCmd.OpenReport "CONCERNS", acViewPreview, lstFee.Value & " DETAILS"
If MsgBox("Do you wish to create a snapshot of this report?", vbQuestion + vbYesNo) = vbYes Then
    DoCmd.OutputTo acReport, "CONCERNS", "SnapshotFormat(*.snp)", ""
End If

This is also the end of my procedure so I don’t really care if an error happens here since all the important stuff happened already. I just know some monkey somewhere will flip if they ever see it. Is there a way to handle this error? On Error Resume Next is not an option because that would make debugging a nightmare in the future. It sounds like I’m looking for something like a Try/Catch but I don’t think VBA supports that.

Answer 1

There are (at least) two ways to handle this.

1> get the filename and handle possible cancellation in a step before sending the report snapshot. I haven’t done this recently but there’s another way to generate the snapshot report than the DoCmd.OutputTo command, or some variation that doesn’t require the command itself to use a file dialog. I generated report snapshots in an old application and didn’t have to ask the user for a filename. I’ll try to find the code and show an example.

2> use On Error Resume Next, but only right before the DoCmd.OutputTo routine, then see if there’s an error, then turn it back off:

If MsgBox("Do you wish to create a snapshot of this report?", _
    vbQuestion + vbYesNo) = vbYes Then

    On Error Resume Next
    DoCmd.OutputTo acReport, "CONCERNS", "SnapshotFormat(*.snp)", ""
    if Err.Number = 2501 Then
        '' log or ignore error
    Else
        '' log or warn other unexpected errors
    End If
    On Error Goto 0

End If