Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5768 / 9994

←次へ　｜　前へ→


	【7440】Re:コンボボックスの絞込み

小僧 - 06/3/3(金) 14:24 -


	引用なし

	パスワード

▼木蓮さん：
こんにちは。

>テーブル１
>｜名前　　　｜文書番号　 |コメント　｜
>｜キリン　　｜１，２，３ |あいうえお｜
>｜さる　　　｜１，５，６ |かきくけこ｜
>｜うさぎ　　｜４，５　　 |さしすせそ｜
>｜かめ　　　｜５　　　　 |たちつてと｜

ご提示のデータはデータベースとしては相応しくない値の持ち方だと思われます。
Web検索等で「データベース」「正規化」をキーワードに調べてみて下さい。

テーブル1
名前　　　　文書番号
キリン　　　　1
さる　　　　　1
キリン　　　　2
キリン　　　　3
うさぎ　　　　4
さる　　　　　5
うさぎ　　　　5
かめ　　　　　5
さる　　　　　6

テーブル2
名前　　　　文書番号
りんご　　　　1
りんご　　　　2
バナナ　　　　3
オレンジ　　　1
オレンジ　　　4
オレンジ　　　6

このようなデータであれば、
フォーム上にコンボボックス「cmb1」「Cmb2」を配置。

Cmb1
値集合ソース：SELECT 名前 FROM テーブル1 GROUP BY 名前;

Cmb2
値集合ソース：SELECT テーブル2.名前 FROM テーブル1
　　　　　　　INNER JOIN テーブル2 ON テーブル1.文書番号 = テーブル2.文書番号
　　　　　　　WHERE テーブル1.名前=[Forms]![フォーム名]![Cmb1]
　　　　　　　GROUP BY テーブル2.名前;

の様に設定し、Cmb1の更新後処理に

Private Sub cmb1_AfterUpdate()
　　Me.Cmb2.Requery
End Sub

という様なコードを書くとコンボボックスが連動するかと思います。

292 hits

▼

【7439】コンボボックスの絞込み 木蓮 06/3/3(金) 13:32