HOME > 即効テクニック > AccessVBA > ユーザーインターフェース > コンボボックスのリストを自動的に表示する

即効テクニック

ユーザーインターフェース

コンボボックスのリストを自動的に表示する

(Access 2000/2002)
コンボボックスにカーソルが移動した時、自動的にドロップダウンリストが表示されるように設定します。

●操作手順●
フォームにテキストボックスとコンボボックスを配置します。
コンボボックスの名前は「コンボ0」とします。

(1)コンボボックスのプロパティシートを表示します。

(2)[イベント]タブの[フォーカス取得時]にイベントプロシージャを設定して、[...]ボタンをクリックします。

(3)次のように、ドロップダウンリストを開くためのプロシージャを作成します。

Private Sub コンボ0_Enter()
    Me!コンボ0.Dropdown
End Sub

(4)フォームを保存してから開き、コンボボックスへカーソルを移動するか、タブ移動すると、自動的にドロップダウンリストが開かれます。


●補足●
Dropdownメソッドの機能は、コントロールがフォーカスを得たときにF4キーを押した場合と同じですので、F4キーでドロップダウンリストは開閉されます。