Access 複数のコンボボックスを連動し選択したデータに合致したレコードをフォーム表示する。
要約
Office Accessで名簿データ（T01-名簿）からフォームの２つのコンボボックス所属「部選択」と「課選択」を連動し該当するデータだけ表示する方法です。
この事例は、テーブル「T01-名簿」のレコードから」の「部選択」コンボボックスから、その「部」だけの「課選択」コンボボックスを表示し、その「課」に該当するレコードだけを名簿表示する方法です。
１．元となるテーブル
２．フォーム表示に必要なクエリー
１）「F22-帳票」用クエリー「Q21-部名簿」Step１：デザインと表示結果
２）「F22-帳票」用クエリー「Q22-部課名簿」Step２：デザインと表示結果
３）「課コンボ」用クエリー「Q12-課表示」：デザインと表示結果
このデザインは、５．コンボの連動設定で「部コンボ」と「課コンボ」を連動させるので、「部コード」に抽出条件を記述することになります。
３．フォームの作成
このフォームは、フォームウィザードで作成し、デザインをプロパティで修正したものです。ウィザードの手順は、
| Step | 説 明 |
| １） | 「作成」メニュー → 「フォームウィザード」 |
| ２） | 元となるクエリー：「Q22-部課名簿」を選択し、全データを選択する。右図がこの時の画像。 |
| ３） | 「次へ」のボタンをクリック |
| ４） | レイアウト設定で、「表形式」を選択し、「次へ」をクリック |
| ５） | フォーム名を修正し「フォームのデザインを編集する」にチェックを入れ「完了」ボタンをクリック。 |
４．フォーム「F22-部課名簿」をデザインで開きコンボボックス設置
１）「部」を表示するコンボボックス
（１）「デザイン」 → 「コンボボックス」をフォームにドラッグ → 「次へ」
（２）テーブル「T11-部」を選択し「次へ」
（３）「 > > 」全てのフィールド → 「次へ」
（４）「全てのフィールド」が選択され「次へ」
（５）「部コード 」を選択し → 「次へ」
（６）「部のデータ」が表示される →「次へ」
（７）「後の作業で使用する 」を確認し → 「次へ」
（８）「部選択」（任意名）と入力 →「完了」
（９）コンボボックスが作成された後のフォーム
非連結エリアのプロパティで名前を「部コンボ」と入力
（１０）右端の下矢印をクリックすると部名が表示される。
２）「課」のコンボボックス作成
（１）課「コンボボックス」用クエリー作成
このデザインは、後で「部コンボ」と連動するように修正します
（２）ステップ（１）の表示結果
（３）「デザイン」 → 「コンボボックス」をフォームにドラッグ → 「次へ」
（４）クエリー「Q12-課表示」を選択し「次へ」
（５）「 > > 」 → 全フィールドを選択 → 「次へ」
（６）全フィールドが選択され、→「次へ」
（７）昇順の設定 → 「次へ」
（８）「課コンボボックス」が表示される→「次へ」
（９）「課コード」を選択し → 「次へ」
（１０）「後の作業で使用する」にチェック → 「次へ」
（１１）「課選択」と入力し → 「完了」
（１２」）「課コンボボックス」が作成された。
この「課コンボボックス」を以下の編集（プロパティを表示）
①名前 コンボnn → 課コンボ
②ラベル及び表示域の位置調整
③前景色（文字色）、背景色、幅や高さなど
以上の編集して表示したのが次の（１３）
（１３）「課コンボ」の右端下矢印をクリックして表示した状態
（１４）「課コンボ」の表示調整
ウィザードで幅を指定していないので、適当な幅で作成されている。
２番目をそのままで、その他は非表示で「0cm」に変更。
↓
（１５）「課コンボ」表示が課名だけになった。
５．コンボボックスの連動設置
（１６）「部」に連動するクエリー「Q12-課表示」のデザイン修正
抽出条件：部コード
|
1 |
[Forms]![F22-部課名簿]![部コンボ] |
（１７）「F22-部課名簿」の「課コンボ」の「更新後処理」にマクロ作成
（１８）マクロ記述
（１９）「部コンボ」と連動した「課コンボ」の課名が表示がされる。
where条件式
|
1 |
[Forms]![F22-部課名簿]![課コンボ]=[Q22-部課名簿]![課コード] |
（２０）「部選択」を変えた時、それに対応した課が選択されるよう「部コンボ」にイベントプロシージャを挿入する。
|
1 2 3 4 |
Private Sub 課コンボ_AfterUpdate() Me!課コンボ = Null Me!課コンボ.Requery End Sub |
★ 部コンボ」の「更新後処理」イベントプロシージャで、
①「課コンボ」をNull値に
②「課コンボ」を再クエリーする。