読者です 読者をやめる 読者になる 読者になる

三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク



XXXXさんへ Accessで2つのコンボボックスを連動?させるには?

>テーブルに仕入先   仕入先ID 仕入先名
>       担当者   担当者ID 担当者名  仕入先ID 
>があります。
>
>フォームに仕入先と担当者を選択するコンポボックスがあります。
>
>やりたいことは仕入先名をコンポボックスから選択したら、
>担当者の方は仕入先名と同じ会社の担当者のみ表示したい。
>
>いまだと全部の仕入先の担当者が表示されてしまいます。
>
>その方法を教えてください。

やりたいことは、
コンボボックスを2つ作り、
第1 上のコンボボックスで選択されたグループだけを
第2 下のコンボボックスで選択する、
絞り込みながらの選択ですね。

たとえが いいか/適切か わかりませんが、
AKB48のメンバーをテストデータにして、
絞り込みのコンボボックスの練習をしてみたいと思います。

第1 上のコンボボックスで グループを選択する
第2 下のコンボボックスで上記グループのメンバーのみ表示する

現物を動かしながら が わかりやすいと思うので
http://www.ken3.org/vba/zip/qa0720db.zip
を保存して、遊んでみてください。

そのまま、二つのコンボボックスを作成してみた

まずは、何も処理を入れないで、通常の方法でコンボボックスをします。

Accessのフォーム処理で、ウィザードでフォームをざっくり作ります。
その後、マスターを参照したいので、
テキストボックスをコントロールの変更でコンボボックスに変更します。
コンボボックスの値を クエリービルダーを使用して、
マスターテーブルと連動させます。

そんな下準備の操作動画 http://www.youtube.com/watch?v=v5tvuWjfqRI です

↑準備で時間がかかりすぎてるけど、、、

やっと、連動処理を入れてみる

ここで、やっと、
Accessのフォーム処理で、
コンボボックス2つを使って、
マスターデータを絞り込む そんな処理をざっくり作ります。

1つ目でグループを選択、
2つ目のコンボボックスは1の値を利用してデータを絞る、そんな処理です。

ポイントは、クエリービルダーを使用して、画面の値とテーブルを連動させます。

1の値が [Forms]![メモinput]![課ID] なので、これを条件に入れる(指定します)
たったこれだけなのですが、
データは生き物?じゃないけど、各処理のタイミングでデータを絞り込んだり、クリアしたりします。

そのために、コードを2つ入れます。

再クエリー .Requery でデータを再度絞り込む
1.コンボボックス2に入ってきたときに、再クエリー処理で、データをきれいにします。
単純に のイベント フォーカス取得時の _Enterにコードを書きます。

Private Sub 担当者ID_Enter()
    Me.担当者ID.Requery  '再クエリー更新
End Sub

Me.担当者ID.Requery 自分自身に対して、再クエリーをかけて、1で選択されたグループのみにデータを絞り込みます。

グループが変更されたら、下のコンボボックスをクリアする

2.上のグループが選択(変更)されたら、2つ目メンバーをクリアーしたいので(グループが変わったので再選択させたい)

単純に更新後の処理 _AfterUpdate で 下のコンボボックスの値を消しただけです。

Private Sub 課ID_AfterUpdate()
    Me.担当者ID.Value = ""  'グループが変更されたらクリア
End Sub

これで、それなりに動くと思います。

試行錯誤の動画、操作・テスト結果は http://www.youtube.com/watch?v=bdrtLlkE-lw を見てください

↑前半、調整に手間取り、後半かけ足で説明してますがよろしくです。

終わりの挨拶

現物を動かしながらがわかりやすいと思うので
http://www.ken3.org/vba/zip/qa0720db.zip
を保存して、遊んでみてください。

コンボボックス2つの連動処理の参考となれば、、、うれしいです。

三流プログラマー Ken3

Accessの処理と関係ない 広告 人気商品です
下記、アクセスのコンボボックスしょりとまったく関係・関連性のないリンクです。

[フリーウェイ] FREE WAY 腕時計 ストラップコレクション ラウ 7月20日...[続きを見る]

【送料無料】 ≪お徳用≫有機ルイボスティー3g×50包 → 7月20日...[続きを見る]

★送料無料★話題沸騰の美脚マシン たった1分間で簡単ダイエット&エクササ 7月20日...[続きを見る]

2点Set!★KATOJI【カトージ】 かるいdeちゅSS-R(2010 7月20日...[続きを見る]

adidasアディダス) 【メンズ】【水着・スイムウェア】3S CBビ 7月20日...[続きを見る]

Case-Mate iPhone4 専用 カードホルダー付ハードケース 7月20日...[続きを見る]

DS陰山メソッド 電脳反復 正しい漢字かきとりくん → 7月19日...[続きを見る]

Folli Follie (フォリフォリ) ハートフォーハートネックレス 7月20日...[続きを見る]

sola ~イツカノソラ~ → 7月20日...[続きを見る]

ギタースタンド GS-103B & スタンドブラジャーセット(97574 7月20日...[続きを見る]

キングダムハーツ アバターマスコットストラップVol.4 セラ → 7月20日...[続きを見る]

ごぼう茶国産3g×30p → 7月20日...[続きを見る]

コンポジット(Composite) プール用電動エアーポンプ a0674 7月20日...[続きを見る]

デクスター シーズン4 コンプリートBOX 7月20日...[続きを見る]

デニムブックカバー 【カーキ】 B6サイズ → 7月20日...[続きを見る]

もし高校野球の女子マネージャーがドラッカーの『マネジメント』を読んだら 現在人気の もし高校野球の女子マネージャーがドラッカーの『マネジメント』を読んだら など 本・書籍を紹介する(...[続きを見る]

ワコーズ(WAKO’S) チェーンルブCHL(浸透性チェーン用防錆潤滑剤 7月20日...[続きを見る]

夏の恋は虹色に輝く オリジナル・サウンドトラック → 7月20日...[続きを見る]

炭酸キーパー ライトブルー → 7月20日...[続きを見る]