アクセス　コンボボックス　VBA

解決済

質問者：naop73
質問日時：2005/04/14 15:44
回答数：2件

コンボボックスが２つあり片方をＡもう一方をBとします。
Aのリストは１～１０まであります。
Bのリストは１００～２００まであるとします。
Ａのリストで1を選んだとすると、Bのリストでは１００～
１１０までしか選べない(表示されない)ようにするVBAを教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「VBA アクセス」に関するQ&A：アクセス　VBAが使えれば、マクロは覚える必要はな

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： yoko3333
回答日時：2005/04/14 16:47

コンボBの「値集合タイプ」は「テーブル/クエリー」でしょうか？

それとも「値リスト」でしょうか？

「テーブル/クエリー」なら、コンボAの「変更時」か「更新後処理」のイベントに

Me!コンボB.RowSource = _
　　"SELECT フィールド名 FROM テーブル名 " & _
　　"WHERE 条件フィールド名=" & Me!コンボA & ";"

という感じでSelect文を入れ替えてやれば良いです。

「値リスト」なら

select Case Me!コンボA
Case 10
　　Me!コンボB.RowSource = _
　　　　"100;101;・・・・・;110"

Case 20
　　・
　　・
　　・

という感じになるかと思います。

- 0
- 件

通報する

No.2

回答者： ja7awu
回答日時：2005/04/14 17:26

コンボA のクリック時のイベントに次のように記述します。

> Ａのリストで1を選んだとすると、Bのリストでは１００～
　１１０までしか選べない(表示されない)ようにする

多分、2を選ぶと、111～120 の10個にしたいのではないかと思いますので、
1のときは、 100からでなく 101～110 にしております。

Private Sub コンボA_Click()
Dim RowList As String
Dim N As Integer
For N = 1 To 10
　　RowList = RowList & 100 + N + (Me.コンボA.Value - 1) * 10 & ";"
Next
Me.コンボB.RowSourceType = "Value List"
Me.コンボB.RowSource = RowList
End Sub