2016-08-28 51 views
0

所以我改變了我的代碼基於研究錯誤和如何處理,但它不工作。任何幫助表示讚賞。只有當我取消導出報告時纔會出現錯誤。如果我試圖將報告導出爲pdf,請告訴我。由於取消導出爲PDF時,如何處理錯誤2501?

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 

回答

0

試試這個:

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

我得到同樣的錯誤消息。不知道爲什麼我不能取消導出到PDF。任何想法如何我可以給用戶一個提示,說你想出口到PDF?也許這樣,如果他們說不,它會取消所有。 – New2This

+0

我無法重現錯誤,對不起。如果我取消文件選擇,則子會按預期默默退出 – Gustav