２つのコンボボックスを連動し表示させる－Access

フォームに2つのコンボボックスを配置し、1つ目を選択すると、それに関連するリストが2つ目に表示されるようにします。

ポイントは選択クエリで抽出することと、1つ目が選択された時に2つ目を更新することです。更新は、更新後処理イベントのVBAで行います。
ここでは都道府県を選択すると、その都道府県にある市町村のリストから選択できるようにします。

クエリを作成し、抽出条件を設定する

リボンの［作成］～［クエリ デザイン］をクリックします。


テーブルの表示ダイアログが開くので、T-市町村テーブルを選択します。


１．全てのフィールドをダブルクリックし、下の表に移動します。
２．都道府県コードフィールドの抽出条件欄で右クリックし、表示されるメニューの［ビルド］をクリックします。


式ビルダーが開きます。
１．式の要素から、使用しているデータベース内の「F-都道府県」フォームを選択します。
２．式のカテゴリから、上で作成したコンボボックスの「コンボ0」を選択しダブルクリックします。
［OK］ボタンをクリックし、式ビルダーを閉じます。


１．抽出条件に、式ビルダで作成した式が入力されていることを確認してください。
２．クエリを保存します。ここでは「Q-市町村」にしました。

２つのコンボボックスを連動するようにリンクする

１．リボンの［フォーム デザインツール］～［デザイン］から［コンボボックス］を選択します。
２．フォームに配置します。
３．コンボボックス ウィザードが開始します。　取得元にクエリを選択します。
４．上で作成した「Q-市町村」を選択します。後は1つ目のコンボボックスと同様に設定します。


作成した２つ目のコンボボックスを選択し、列幅プロパティの「市町村ID」と「都道府県ID」の列幅を0に変更します。


以上で２つのコンボボックスはリンクできましたが、この時点では1つ目のコンボボックスの値が変更された場合、２つ目のコンボボックスに反映されないため更新するようにします。

1つ目のコンボボックスを選択した状態で、更新後処理プロパティから［イベント プロシージャ］を選択します。


更新後処理イベントのVBAです。


・２つ目のコンボボックスの値をNULLにします。
・Requeryを実行し更新します。

Private Sub コンボ0_AfterUpdate()
    Me!コンボ2 = Null
    Me!コンボ2.Requery
End Sub

これで2つのコンボボックスを連動させることができました。
下の画面では、青森県を選択すると、青森県にある市町村のリストが表示され選択できます。