ACCESSコンポボックス

1つ目のコンボボックスの「変更時イベント」に２つ目のコンボのRowSourceを入れ替える
コードを記述します。

詳しい状況が書かれていませんので、例えば「部問コンボ」の値を変更したとき、
「担当コンボ」のRowSourceを入れ替えるには、下記のようなコードになります。

Private Sub 部問コンボ_AfterUpdate()
　　Me.担当コンボ.RowSource = "Select 担当名,担当CODE From 担当TBL Where 部問名 = " & _
　　Me.部問コンボ.Value & " ORDER BY 担当CODE"
End Sub

投稿日時 - 2003-11-06 16:13:13