VBAでOnClickイベントのイベントハンドラをプログラムで特定する

Question

MS Access VBAで実行パスをトレースするアプリケーションで作業しています。しかし、私は問題に遭遇しました。 VBAでは、OnClickやその他のイベントを制御するためにハンドラを動的に割り当てることができますが、これらのコントロールからイベントを読み取る方法はありません。例：

With Forms("Order Entry").Controls("OK") 
If .OnClick = "" Then 
.OnClick = "fnProcessOrder" 
End If 
End With 

これは、機能「fnProcessOrder」を「OK」ボタンに動的に割り当てます。あなたがそのボタンの値を取得しようとする場合は、あなたはこれを取得：

With Forms("Order Entry").Controls("OK") 
    Debug.Print "My Handler -->" + .OnClick 
EndWith 

結果で：

--> [Event Procedure] 

、それ以上の詳細。これは、Microsoftがここに記載した動作であると思われます。 https://msdn.microsoft.com/en-us/vba/access-vba/articles/commandbutton-onclick-property-access

しかし、それ以上に進むにはどうしたらいいのでしょうか。

私はその情報がMSysObjectsテーブルとMSysQueriesテーブルにあると思っていましたが、そこには表示されません。私は、データベースDocumenterを使用して私のテストデータベースを抽出しようとしましたが、私は生成されたドキュメントからもその価値を得ています。

コントロールに割り当てられたVBA関数を見つける方法はありますか？

Answer 1

実際、コードは私には見えません。イベントプロシージャにVBA関数を割り当てる場合は、次のような構文を使用する必要があります。=と()は、Accessが関数を呼び出すことを認識させるために必須です。

は、追加の考慮事項として、あなたはこのようなコードがあるクラスモジュール（のがObserverを呼びましょう）を持つことができます。

Private WithEvents ctlInterest As Access.Textbox 

Public Sub Init(TargetControl As Access.Control) 
    Set ctlInterest = TargetControl 
    With ctlInterst 
    If .OnClick = "" Then 
     .OnClick = "[Event Procedure]" 
    End If 
    End With 
End Sub 

Private ctlInterest_OnClick() 
    fnProcess() 
End Sub 

を、あなたはそのように状にクラスを展開することができます....同じ結果を得、そしてあなたが複数イベントハンドラで終わるだろう

Private objObserver As Observer 

Private Sub Form_Load() 
    Set objObserver = New Observer 
    objObserver.Init(Me.txtInterest) 
End Sub 

。

詳細についてはthisが参考になる場合があります。

関数式が可能であり、いつでも動的に割り当てることができるという事実に関連して、一般的にすべてのイベントハンドラの可能なエントリポイントを特定するコードパス解析が必要です。つまり、そのためにはRubberduckのパーサが必要です。静的なコードパス解析は計画されていますが、まだ実装されていないことに注意してください。

また、エラー処理のためにコールスタックトレースを作成することを意図している場合は、サードパーティのアドインを参照する必要があります。たとえば、市販の製品であるvbWatchDogは、その情報をVBAで提供することができます。

Answer 2

これは、イベントの完全なコードを返します。そのイベントの中で1つのサブを使うだけなら、それはうまくいくはずです。

Public Sub TestModulePrinter() 
    Dim subName As String 
    With Forms("Order Entry").Controls("OK") 
     subName = "Private Sub " & .Name & "_OnClick()" 
    End With 
    Dim i As Long 
    Dim IsPrinting As Boolean 
    With Forms("Order Entry").Module 
     For i = 1 To .CountOfLines 
      If Not IsPrinting Then 
       If Trim(.Lines(i, 1)) = subName Then 
        IsPrinting = True 
       End If 
      Else 
       If Trim(.Lines(i, 1)) = "End Sub" Then 
        IsPrinting = False 
       Else 
        Debug.Print .Lines(i, 1) 
       End If 
      End If 
     Next i 
    End With 
End Sub