frog.raindrop.jp.knowledge

'イベントプロシージャ
Option Explicit
Private Const MODULE_NAME	As String = "Form1"

'------------------------------------------------------------------
'プロシージャ名:  :Form_Initialize
'説明:            :
'------------------------------------------------------------------
Private Sub Form_Initialize()
'============= Declare ==============
'============= Initiarize ===========
On Error GoTo ErrorHandler
    
'============= Main =================

    ' 処理...
    
'============= Release ==============
ExitHandler:
    Exit Sub
'============= Error ================
ErrorHandler:
    Call HandleError(Err.Number, Err.Source, Err.Description, MODULE_NAME & ".Form_Initialize")

    Resume ExitHandler
End Sub

HandleError って関数の中で、ログをはくなりしましょうってイメージ。

で、その他のプロシージャ。要するに間接的に呼び出されるやつ。ここでは、Err.Source にコールスタックを格納していきます。

'その他プロシージャ
Option Explicit
Private Const MODULE_NAME	As String = "Module1"

'******************************************************************
'プロシージャ名:  :MyGeneralProcedure
'説明:            :エラー処理に注目
'******************************************************************
Public Sub MyGeneralProcedure()
'============= Declare ==============
'============= Initiarize ===========
On Error GoTo ErrorHandler
    
'============= Main =================
    
    ' 処理...
    
'============= Release ==============
ExitHandler:
    Exit Sub
'============= Error ================
ErrorHandler:
    Call Err.Raise(Err.Number, MODULE_NAME & ".MyGeneralProcedure ← " & Err.Source, Err.Description, Err.HelpFile, Err.HelpContext)
End Sub

こんな感じで、たとえば Class1 というクラスモジュールに MyProperty というプロパティがあり、そのなかで、Module1 という標準モジュールの MyGeneralProcedure をコールしていて、そこで実行時エラーが起こった場合、呼出元に返った時の、Err.Source は、

Class1.MyProperty ← Module1.MyGeneralProcedure ← OriginalErrorSource

のようになります。障害時の追跡に決行役に立つものです。