Accessのフォーム その２

質問

すいません、以前にも同じ質問をしたのですが、私の質問の仕方が悪くてうまくいきませんでした。
回答してくださった方、ありがとうございました！
もう一度、詳しく質問しなおします。

顧客データを登録しているのですが、テーブルを元に登録フォームを作成しました。
商品がたくさんあって、４つのコードに分かれています。フォームの中に[Ａ][Ｂ][Ｃ][Ｄ]と４つのコンボボックスを作成し、絞込み検索ができるようにはしました。

しかし、選んだデータの[Ａ]しかテーブルに表示されません。例えば[Ａ]のコンボボックスの中から[１０１０]を選択、[Ｂ]のコンボボックスから選択しようとしても空っぽです。
テーブルを見ると、[Ａ]で選んだ[１０１０]だけが表示されています。
非連結のときはうまく出てたんですが・・。
もしかして連結列が間違ってるのでしょうか？？
元になるテーブルは
Ａコード　Ａ　
Ｂコード　Ｂ　Ａコード
Ｃコード　Ｃ　Ｂコード
Ｄコード　Ｄ　Ｃコード

この２列目を表示したいのです。（２列目が[１０１０]など表示したいデータ）
列数はそれぞれ「２」で連結列は「２」です。

更新後処理は以下の通りです。

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

Private Sub コンボ2_AfterUpdate()
Me!コンボ4.Requery
End Sub

Private Sub コンボ4_AfterUpdate()
Me!コンボ6.Requery
End Sub

ぜひよろしくお願いします。

回答No.2

keikan · ベストアンサー

こんな感じではどうでしょうか、

○単価表テーブル名：販売単価表（項目：販売先コード、品名、サイズ、単価）

○データ登録テーブル名：納入データ（項目：販売先コード、品名、サイズ、単価、etc。このソース類には出てきませんが明確にするために書いておきます。）

○フォーム名：納入登録　連結テーブル：納入データ

販売先コード（コンボボックス）値集合ソース： SELECT 販売単価表.販売先コード FROM 販売単価表 GROUP BY 販売単価表.販売先コード;

品名（コンボボックス）値集合ソース：SELECT 販売単価表.品名 FROM 販売単価表 GROUP BY 販売単価表.品名, 販売単価表.販売先コード HAVING (((販売単価表.販売先コード)=[Forms]![納入登録]![販売先コード]));

サイズ（コンボボックス）値集合ソース：SELECT 販売単価表.サイズ, 販売単価表.単価 FROM 販売単価表 GROUP BY 販売単価表.サイズ, 販売単価表.単価, 販売単価表.販売先コード, 販売単価表.品名 HAVING (((販売単価表.販売先コード)=[Forms]![納入登録]![販売先コード]) AND ((販売単価表.品名)=[Forms]![納入登録]![品名]));

単価（テキストボックス）：イベント
　　　Private Sub サイズ_AfterUpdate()
　　　　　単価 = サイズ.Column(1)
　　　End Sub

販売先コード、品名はカラム数を１
サイズはカラム数を２にしてください。

サイズ.column(1)でサイズコンボボックスで表示される２つめの項目の値を呼び出します。

サイズコンボボックスを変更した際に単価テキストボックスに該当する単価を代入します。

○各コンボボックスの値集合ソースは表示の都合上SQL文でかいてありますが、そのままコピーしてクエリーとしてみていただければシンプルなのでわかると思います。

がんばってみてください。

お礼

返事が遅くなりました。

出来ました～！！
ほんっとにありがとうございました！！
助かりました！！
また質問した際にはよろしくお願いします。

補足

keikanさん、前回に続きありがとうございます！！
これからやってみて、また報告します。
ほんとにありがとうございます。

回答No.1

tonjiru

前の質問を拝見していないのですが、
コンボボックスの絞込みをしたい、ということでしょうか？
コンボボックスの値集合ソースを表示していただかないとお答えしようがありませんが・・・

参考URLで解決できませんか？

参考URL：

http://www.accessclub.jp/samplefile/samplefile_192.htm

補足

おっしゃるとおりです・・・すみません・・。

Ａのコンボボックスの値集合ソース　
Aコード（入力用）

Ｂの値集合ソース
SELECT [Bコード（入力用）].[Bコード], [Bコード（入力用）].[B], [Bコード（入力用）].[Aコード] FROM Bコード（入力用） WHERE ((([Bコード（入力用）].[Aコード])=[forms]![ベリ入力用]![コンボ0]))

Ｃの値集合ソース
SELECT Cコード（入力用）].[Cコード（入力用）].[C], [Cコード（入力用）].[Bコード] FROM Cコード（入力用） WHERE ((([Cコード（入力用）].[Bコード])=[forms]![ベリ入力用]![コンボ2]));

Ｄの値集合ソース
SELECT [Dコード（入力用）].[Dコード], [Dコード（入力用）].[D], [Dコード（入力用）].[Cコード] FROM Dコード（入力用） WHERE ((([Dコード（入力用）].[Cコード])=[forms]![ベリ入力用]![コンボ4]));

最初はうまく絞り込みができてたのですが、急にできなくなりました。