Как обрабатывать ошибку 2501 при отмене экспорта в PDF?

Question

Итак, я немного изменил свой код на основе исследования ошибки и того, как обращаться, но он не работает. Любая помощь приветствуется. Ошибка возникает только при отмене экспорта отчета. Пожалуйста, дайте мне знать, если мне удастся экспортировать отчет в pdf. Благодаря

Sub btnExport_Click() 
On Error GoTo MyError 

DoCmd.OutputTo acOutputReport, "rprtPendingEventSummary", acFormatPDF, , , "*.pdf" 


MyExit: 
    Exit Sub 

MyError: 
    If Err.Number = 2501 Then GoTo MyExit 
    MsgBox Err.Description 
    GoTo MyExit 

End Sub 

Answer 1

Попробуйте это:

MyError: 
    If Err.Number <> 2501 Then 
     MsgBox Err.Description 
    End If 
    Resume MyExit