●詳細●
コンボボックスまたはリストボックスのリストの項目を、クリックされたコマンドボタンや、フォーカスのあるテキストボックスによって変えたい、といった時は、コントロールのイベントが発生したときに、値集合ソースの内容を変更するイベントプロシージャを作成します。
●準備●
- テーブル「都道府県名」と「郵便番号簿」を作成します。
- フォームにコンボボックス「コンボ0」と、コマンドボタン「コマンド1」と「コマンド2」を2つ配置してください。
コマンド1のプロパティシートを表示して、[イベント]タブの[クリック時]に次のイベントプロシージャを作成します。
Private Sub コマンド1_Click()
Me!コンボ0.RowSource = "都道府県名"
End Sub
コマンド2のプロパティシートを表示して、[イベント]タブの[クリック時]に次のイベントプロシージャを作成します。
Private Sub コマンド2_Click()
Me!コンボ0.RowSource = "郵便番号簿"
End Sub
●実行手順●
フォームを開いて、それぞれのコマンドボタンをクリックして、コンボボックスのリスト項目が変更されることを確認します。
●補足説明●
テキストボックスのフォーカスの移動と合わせてリスト項目を変更する場合は、テキストボックスのプロパティシートを表示して、[イベント]タブの[フォーカス取得後]に次のようなイベントプロシージャを作成します。
テキストボックスの名前を「テキスト1」とします。
Private Sub テキスト1_GotFocus()
Me!コンボ0.RowSource = "都道府県名"
End Sub
