【Access】コンボボックスを下矢印キー押下時に開く方法

コンボボックスを下矢印（↓）押下時に開く（ドロップダウン）する方法についてご紹介します。
通常Accessのコンボボックスはマウスで選択するようなつくりになっていて
マウス派の私でも、時々普通に操作している際に、少しだけ不便を感じることがあります。
そんな時は、キーイベントを応用すると使い勝手がよくなります。

キークリック時イベント

コンボボックスのキークリック時イベントを開きます

KeyDownイベント

Private Sub cboテーブル_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
    '↓キーならコンボをドロップダウン
    cboテーブル.Dropdown
  End If
End Sub

下矢印キーを押下した時に、コンボボックスを開きます。
これを応用すると、他のキーでも良いです。

参考）
Keycode 定数