アクセス 同じ内容のVBAをまとめる

質問

アクセスのVBAを使用しています。
フォーム上で複数のコンボボックスを連結させた行があるとし、そこにVBA(コードビルダ）を使って色々なを動きをさせています。また、同じ内容の動きをするものを複数並べているのですが、すべてのコンボボックスにVBAを入力せずにまとめることはできないでしょうか

A 　コンボ1-コンボ2-コンボ3
B　 コンボ4-コンボ5-コンボ6
C　 コンボ7-コンボ8-コンボ9

A,B,C（実際には12個並べています）は同じ動きをします。
AのVBAをB,Cに同じ動きをさせることができるようにまとめるたいのですが…。

アクセスは素人のためよろしくお願いします。

回答No.1

venzou

例：共通のサブルーチンを作る

Private Sub コンボ1_AfterUpdate()
　MySub コンボ1, コンボ2, コンボ3
End Sub

Private Sub コンボ4_AfterUpdate()
　MySub コンボ4, コンボ5, コンボ6
End Sub

Private Sub MySub(c1 As ComboBox, c2 As ComboBox, c3 As ComboBox)
　Debug.Print c1.Value
　Debug.Print c2.Value
　Debug.Print c3.Value
End Sub
--------------------------
例：ループでまとめて処理する

Private Sub コンボ1_AfterUpdate()
　MySub_All
End Sub

Private Sub コンボ4_AfterUpdate()
　MySub_All
End Sub

Private Sub MySub_All()
　Dim i As Long

　For i = 1 To 36 Step 3
　　Debug.Print Me.Controls("コンボ" & (i)).Value
　　Debug.Print Me.Controls("コンボ" & (i + 1)).Value
　　Debug.Print Me.Controls("コンボ" & (i + 2)).Value
　Next
End Sub
--------------------------

具体的な内容が分からないので、どういう方法が適しているか分かりませんが、色々やり方はあると思いますよ。