調用單獨的錯誤處理模塊，不要繼續？

我有一個有一系列函數調用的Access 2007數據庫。我在錯誤轉到Error_Handler在所有的子和函數調用一個錯誤處理子更新與錯誤信息表併發送錯誤通知電子郵件。我這樣設置，所以我可以只有一個錯誤處理模塊可以被任何子或函數調用。調用單獨的錯誤處理模塊，不要繼續？

當「非主要」子程序或函數之一發生錯誤時發生的情況是錯誤處理函數被調用（如預期的那樣並且正常工作），但是隨後代碼在主程序中繼續執行之後，導致錯誤的子（在我的情況下，發送一個虛假的「成功」電子郵件）。要清楚，我所有的潛艇和函數都有「On Error Goto Error_Handler」，所以它不是On Error Resume Next問題。

有沒有辦法讓一個子調用單獨的錯誤處理函數並讓「main」過程停止執行？（在這種情況下，我們在定時器上有一個表單，每秒鐘循環一次記錄集，並且不會嘗試重新執行任何記錄有錯誤的事件，因此需要退出該過程以防止錯誤的成功指示。）

來源

2013-03-29 Hugh Seagraves

如果我正在閱讀你正在做的事情，那麼當我第一次開始做類似事情時，我陷入了同樣的陷阱。問題是，因爲錯誤正在非主程序中「處理」，所以就錯誤處理系統而言，它已經完成並被丟棄;當程序控制流程返回到主程序時，則不再有錯誤情況。讓我看看，如果我能在僞代碼說明：

MainFunction() 

    On Error Goto ErrorHandler 

    Call MySubFunction 

    CodeToSendSuccessEmail  

ExitPoint: 
'Here we do any necessary cleanup. 

Exit Function 

ErrorHandler: 

    Call MyErrorRoutine 
    Resume ExitPoint 

End Function 


Function MySubFunction() 

    On Error Goto ErrorHandler 

    DoStuffThatCauseAnError 

ExitPoint: 
Exit Function 

ErrorHandler: 

    Call MyErrorRoutine 
    Resume ExitPoint 

End Function

好了，什麼時候在MySubFunction出現錯誤會發生什麼？它將跳轉到ErrorHandler：標籤在該功能。這樣做後，就錯誤處理系統而言，錯誤已經被處理，所以它將離開該函數（在我的情況下，通過ExitPoint：標籤和Exit Function語句）並返回到MainFunction。當它這樣做時，將不再有效果的錯誤，因爲它已經被處理，因此「成功」電子郵件將被髮送。

處理這種情況的最快和最骯髒的方法是不要在子程序中放置任何錯誤處理。在這種情況下，當發生錯誤時，它會立即拋出調用堆棧，直到它遇到一個錯誤處理程序，在這種情況下，它將在您的MainFunction中。當它這樣做時，它會直接跳到MainFunction的ErrorHandler：標籤。

這樣做的缺點是，您不能確切地跟蹤錯誤發生在哪個函數。我在練習中做的是讓我的子例程錯誤處理程序執行此操作：（a）Call my跟蹤程序將錯誤（及其位置）寫入我的應用程序的日誌文件; （b）注意變量中的Err.Number和Err.Description;然後（c）使用這些變量中的值在我返回到ExitPoint：標籤後重新提升錯誤，以便它返回堆棧。

這樣可以確保我知道錯誤來自哪裏，但錯誤消息主要顯示給用戶（在您的情況下，通過寫入表格併發送電子郵件）會發生一次，只有一次;也就是說，只通過我的頂級函數調用我的主要錯誤例程。

另一方面，我對VB中使用的Try/Catch語法非常感興趣。Net和T-SQL，但實際上它在錯誤處理方面提供了很多優勢，包括在出現錯誤時不需要追蹤堆棧。這並不是說你在Access中使用VBA的時候一點都不好;正如我所說，它只是一個旁觀。

來源

2013-03-29 05:54:19

調用單獨的錯誤處理模塊，不要繼續？

回答

相關問題