Access VBAでフォームのコントロールイベント共通化

前回紹介したExcel VBAのユーザーフォームに動的メニューを追加する方法を紹介した。
thom.hateblo.jp

ただ、実は作りたかったのはAccessで、連票フォームのフッター領域にそれを配置したかったのだ。
f:id:t-hom:20171216122925p:plain

慣れないAccessと格闘する前にまずExcelフォームでプロトタイプを作ろうと思い立ったのが前回の記事。

Accessフォームで発生した問題

さて、Accessに移植するにあたり、ひとつハマったことがある。
すごく単純なことだけど、コントロールイベントをクラスで検知しようとした際に、うまく動かなかったのだ。
原因はボタンのクリック時イベントに、[イベントプロシージャ]を選択していなかったこと。

今回はこれについて順を追って説明する。

まず以下のようなフォームを作成した。
f:id:t-hom:20171216123618p:plain

それからVBEでクラスモジュールを挿入し、オブジェクト名をButtonWrapperとした。
コードは以下のとおり。

Public WithEvents btn As CommandButton

Private Sub btn_Click()
    MsgBox btn.Caption & "がクリックされました。"
End Sub

フォーム本体のコードは次の通り。

Private Buttons As Collection
Private Sub Form_Load()
    Set Buttons = New Collection
    For i = 0 To 4
        Dim b As ButtonWrapper
        Set b = New ButtonWrapper
        Set b.btn = Me.Controls("コマンド" & i)
        Buttons.Add b
    Next
End Sub

こうすると、コマンド0からコマンド4までの5つのボタンがButtonWrapperオブジェクトに包まれてCollection(Buttons)に格納される。
ButtonWrapper内ではボタン用の変数btnがWithEventsで宣言されているので、ボタンごとにイベントを書かなくてもこれでイベントを検知できる。

これだけで動くと思っていた。
実際、Excel VBAならこれだけで動く。

ところがフォームを起動してボタンを押してもうんともすんとも言わない。