4章 カスタマイズ4-3フォーム

参照が自動で展開する[Access]


コンボボックスのフィールドにカーソルが来た時点で一覧を自動展開することができます。
コンボボックスフィールドのプロパティの[フォーカス取得時]イベントに以下のイベントプロシージャを追加してください。
Private Sub XXX_Enter()
    If IsNull(Me![XXX]) Then
        XXX.Dropdown
    End If
End Sub
(”XXX”はフィールド名)
[参照自動展開]
イベントプロシージャ内で命令、関数等の意味がわからない場合、わからない単語にカーソルをおき[F1]キーを押してください。その単語のヘルプ画面が表れます。


<「明細」フォームの例>
  1. [商品番号1]の[フォーカス取得時]イベントプロシージャの内容
    Private Sub 商品番号1_Enter()
        If IsNull(Me![商品番号1]) Then
            商品番号1.Dropdown
        End If
    End Sub
    

<参照>
  1. Accessの[ヘルプ]−[トピックの検索]
    [キーワード]−”Dropdown メソッド”
  2. 書籍「できるAccess97」
    56目的地を一覧から選ぶには(p170)