アクセスでコンボボックスが開きません

質問

アクセスで入力画面を作っているのですが、
マウスを使わずに、エンターキーだけを使って、次のコントロールに飛びたいのですが、コンボボックスにきたときに、コンボボックスのプルダウンが開きません。コンボボックスが開けば、矢印キーとエンターキーだけで操作できるのですが。。
この違いだけで、入力作業は格段に早くなるのですが・・・。
ご存知の方教えてください。よろしくお願いいたします。m(__)m

回答No.1

noname#140971 · ベストアンサー

Private Sub 銀行名_GotFocus()
　　Me.銀行名.Dropdown
　　If Len(Me.銀行名.Value & "") = 0 Then
　　　　Me.銀行名.Value = Me.銀行名.ItemData(0)
　　End If
End Sub

１、フォーカス取得時に Dropdown する。
２、非選択状態ならば先頭の値を選ぶ。

Private Sub 銀行名_GotFocus()
　　If Len(Me.銀行名.Value & "") = 0 Then
　　　　Me.銀行名.Dropdown
　　　　Me.銀行名.Value = Me.銀行名.ItemData(0)
　　End If
End Sub

選択状態にあれば Dropdown させる必要もないので、通常は後者の書き方かと思います。

お礼

早速のご回答ありがとうございますっ～～～。
非常に助かりました。
ありがとうございました。m(__)m