複数のコンボボックスに入力無効の処理一括で行いたい

Question

フォーム内にコンボボックスを複数作成（combo_a,combo_b,comb_c)し、選択できるようにしたのですが、
選択し以外に文字の追加や削除ができてしまう為、VBAにて下記を設定しました。

Option Compare Database

Private Sub combo_a_KeyDown(KeyCode As Integer, Shift As Integer)

    'Tab,Enter,Esc以外を無効にする
    If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn And KeyCode <> vbKeyEscape Then
        KeyCode = 0
    End If

End Sub

実際に、こちらを行えば入力等できなくなったのですが、同じ操作を他のコンボボックスでも
行いたい場合に同じものを何個も入力するのではなく、1つにまとめてできないものかと考えました。

もし方法がございましたらご教示いただきたく存じます。
どうぞ宜しくお願いいたします。

Answer 1

フォームの「キーボードイベント取得」を「はい」にしておくと、フォーム上のすべてのキーボードイベントを取得できます。そのうえで、フォームのキークリック時にに記述すると一か所で済みます。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error GoTo erExit  'アクティブコントロールがないときエラーになるので
    If Me.ActiveControl.ControlType = acComboBox Then 'アクティブコントロールがコンボボックスのとき
        'Tab,Enter,Esc以外を無効にする
        If KeyCode <> vbKeyTab And KeyCode <> vbKeyReturn And KeyCode <> vbKeyEscape Then
            KeyCode = 0
        End If
    End If
erExit:
End Sub

Comments

[renger]

無事解決いたしました！大変助かりました。ありがとうございます。