|
挨拶・自己紹介: | |
|
[記事一覧、バックナンバーを見る] | |
2010-07-20
XXXXさんへ Accessで2つのコンボボックスを連動？させるには？
>テーブルに仕入先 仕入先ID 仕入先名
> 担当者 担当者ID 担当者名 仕入先ID
>があります。
>
>フォームに仕入先と担当者を選択するコンポボックスがあります。
>
>やりたいことは仕入先名をコンポボックスから選択したら、
>担当者の方は仕入先名と同じ会社の担当者のみ表示したい。
>
>いまだと全部の仕入先の担当者が表示されてしまいます。
>
>その方法を教えてください。
やりたいことは、
コンボボックスを２つ作り、
第1 上のコンボボックスで選択されたグループだけを
第2 下のコンボボックスで選択する、
絞り込みながらの選択ですね。
たとえが いいか／適切か わかりませんが、
AKB48のメンバーをテストデータにして、
絞り込みのコンボボックスの練習をしてみたいと思います。
第1 上のコンボボックスで グループを選択する
第2 下のコンボボックスで上記グループのメンバーのみ表示する
現物を動かしながら が わかりやすいと思うので
http://www.ken3.org/vba/zip/qa0720db.zip
を保存して、遊んでみてください。
そのまま、二つのコンボボックスを作成してみた
まずは、何も処理を入れないで、通常の方法でコンボボックスをします。
Accessのフォーム処理で、ウィザードでフォームをざっくり作ります。
その後、マスターを参照したいので、
テキストボックスをコントロールの変更でコンボボックスに変更します。
コンボボックスの値を クエリービルダーを使用して、
マスターテーブルと連動させます。
そんな下準備の操作動画 http://www.youtube.com/watch?v=v5tvuWjfqRI です
↑準備で時間がかかりすぎてるけど、、、
やっと、連動処理を入れてみる
ここで、やっと、
Accessのフォーム処理で、
コンボボックス２つを使って、
マスターデータを絞り込む そんな処理をざっくり作ります。
1つ目でグループを選択、
2つ目のコンボボックスは1の値を利用してデータを絞る、そんな処理です。
ポイントは、クエリービルダーを使用して、画面の値とテーブルを連動させます。
1の値が [Forms]![メモinput]![課ID] なので、これを条件に入れる(指定します)
たったこれだけなのですが、
データは生き物？じゃないけど、各処理のタイミングでデータを絞り込んだり、クリアしたりします。
そのために、コードを２つ入れます。
再クエリー .Requery でデータを再度絞り込む
1.コンボボックス２に入ってきたときに、再クエリー処理で、データをきれいにします。
単純に のイベント フォーカス取得時の _Enterにコードを書きます。
Private Sub 担当者ID_Enter() Me.担当者ID.Requery '再クエリー更新 End Sub
Me.担当者ID.Requery 自分自身に対して、再クエリーをかけて、1で選択されたグループのみにデータを絞り込みます。
グループが変更されたら、下のコンボボックスをクリアする
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
を保存して、遊んでみてください。
コンボボックス２つの連動処理の参考となれば、、、うれしいです。
三流プログラマー Ken3
Accessの処理と関係ない 広告 人気商品です
下記、アクセスのコンボボックスしょりとまったく関係・関連性のないリンクです。
[フリーウェイ] FREE WAY 腕時計 ストラップコレクション ラウ 7月20日...[続きを見る]
【送料無料】 ≪お徳用≫有機ルイボスティー3g×50包 → 7月20日...[続きを見る]
★送料無料★話題沸騰の美脚マシン たった1分間で簡単ダイエット＆エクササ 7月20日...[続きを見る]
2点Set!★ＫＡＴＯＪＩ【カトージ】 かるい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日...[続きを見る]
ごぼう茶国産３ｇ×３０ｐ → 7月20日...[続きを見る]
コンポジット(Composite) プール用電動エアーポンプ a0674 7月20日...[続きを見る]
デクスター シーズン4 コンプリートBOX 7月20日...[続きを見る]
デニムブックカバー 【カーキ】 B6サイズ → 7月20日...[続きを見る]
もし高校野球の女子マネージャーがドラッカーの『マネジメント』を読んだら 現在人気の もし高校野球の女子マネージャーがドラッカーの『マネジメント』を読んだら など 本・書籍を紹介する(...[続きを見る]
ワコーズ(WAKO’S) チェーンルブCHL(浸透性チェーン用防錆潤滑剤 7月20日...[続きを見る]
夏の恋は虹色に輝く オリジナル・サウンドトラック → 7月20日...[続きを見る]
炭酸キーパー ライトブルー → 7月20日...[続きを見る]
Permalink | コメント(0) | トラックバック(1) | 12:53
[記事一覧、バックナンバーを見る]
.