ACCESSのコンボボックスの連動について

ACCESS2010を利用しています。

下記のテーブルがあります。

すべて、テキスト型で、MT_商品管理とします。


申込商品 申込コース キャンペーン 　　　キャンペーン1
TV 　　　Aコース キャッシュバック2万円 　5000円商品券
TV 　　　Aコース キャッシュバック1万円 　5000円商品券
TV 　　　Aコース キャッシュバック3万円 　5000円商品券
TV 　　　Aコース キャッシュバック4万円 　5000円商品券
PS4 　　　Aコース ビール1ダース 　　　　無
PS4 　　　Aコース ビール2ダース 　　　　無
PS4 　　　Aコース ビール3ダース 　　　　無
PS4 　　　Aコース キャッシュバック1万円 　無
PS4 　　　Aコース キャッシュバック2万円 　無　
iphone Aコース 設定無料+キャッシュバック1万円 無
iphone Aコース 設定無料+キャッシュバック2万円 無
iphone Aコース 設定無料+キャッシュバック3万円 無
iphone Aコース 設定無料+キャッシュバック3万円 無
iphone Aコース 設定無料+キャッシュバック4万円 無
iphone Aコース 設定無料+キャッシュバック4万円 無
ガラケー Bコース ウィスキー1本 　　　　　　　　5000円商品券
ガラケー Bコース ウィスキー2本 　　　　　　　　5000円商品券
ガラケー Bコース ウィスキー3本 　　　　　　　　無
ガラケー Bコース ウィスキー4本 　　　　　　　　無
ミキサー Bコース ウィスキー5本 　　　　　　　　無


別途に、MT_商品とういテーブルがあり　
F_商品というフォームにコンボボックスを作成しました。
そのテーブルに　申込商品、申込コース、キャンペーン、キャンペーン1というフィールドを作成ました。
元になっているのはMT_商品管理で、コンボボックスを作成しました。


SELECT MT_商品管理.申込商品 FROM MT_商品管理;

SELECT MT_商品管理.申込コース FROM MT_商品管理;

SELECT MT_商品管理.キャンペーン FROM MT_商品管理;

SELECT MT_商品管理.キャンペーン1 FROM MT_商品管理;

この4つのコンボボックスを連動させたいのです。

2つの連動までは、私の知識でできるのですが、3つの連動からできないです。
WEBでも調べたのですが、コンボボックスに何も表示されません。

参考にしたURL
http://detail.chiebukuro.yahoo.co.jp/qa/question …

http://detail.chiebukuro.yahoo.co.jp/qa/question …

ご教授お願いします。

私は、上記のコードを下記のコードに変更しました。

SELECT DISTINCT 申込商品 FROM MT_商品
SELECT DISTINCT 申込コース FROM MT_商品 WHERE 申込商品=[申込商品];
SELECT DISTINCT キャンペーン MT_商品 WHERE 申込コース=[申込コース]　AND　申込商品=[申込商品];

マルパクリなので、動くとは思いませんでしたが、これが限界でした。

No.1 ベストアンサー 回答者： xMAKISHIx 回答日時： 2015/11/09 09:50

フォーム名がわからないのでフォーム名はfrmMainとします。

コンボボックスは「申込商品」のコンボボックスを1、「申込コース」を2、
「キャンペーン」を3、「キャンペーン1」を4としています。
まず、申込商品のコンボボックスの値集合ソースに
SELECT DISTINCT
　　MT_商品管理.申込商品
FROM
　　MT_商品管理

次に、申込コースの値集合ソースに
SELECT DISTINCT
　　MT_商品管理.申込コース
FROM
　　MT_商品管理
WHERE
　　MT_商品管理.申込商品 = [Forms]![frmMain]![コンボ1]

キャンペーンの値集合ソースに
SELECT DISTINCT
　　MT_商品管理.[キャンペーン]
FROM
　　MT_商品管理
WHERE
　　MT_商品管理.申込商品 = [Forms]![frmMain]![コンボ1]
　　AND MT_商品管理.申込コース = [Forms]![frmMain]![コンボ2]

キャンペーンの値集合ソースに
SELECT DISTINCT
　　MT_商品管理.[キャンペーン1]
FROM
　　MT_商品管理
WHERE
　　MT_商品管理.申込商品 = [Forms]![frmMain]![コンボ1]
　　AND MT_商品管理.申込コース = [Forms]![frmMain]![コンボ2]
　　AND MT_商品管理.[キャンペーン] = [Forms]![frmMain]![コンボ3]

そして、コンボ2のフォーカス取得時に
Private Sub コンボ2_Enter()
Me.コンボ2.Requery
End Sub

コンボ3のフォーカス取得時
Private Sub コンボ3_Enter()
Me.コンボ3.Requery
End Sub

コンボ4のフォーカス取得時
Private Sub コンボ4_Enter()
Me.コンボ4.Requery
End Sub

を記入して頂ければいけると思います。

この回答へのお礼

すごいです。感動しました。

7つのコンボを連動させるのですが、5つめ以降は同じことをすればいいのですね。

ありがとうございました。

お礼日時：2015/11/09 23:01