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

●操作手順●

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

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

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

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

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

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


● 補足説明 ●

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

Access2000



戻る


Excel Word Access VBA! モーグ