| |
２つのコンボボックスが同フォーム(仮にフォームAとします)上に
あると仮定します。
テーブル:部署マスタ
部署ID:数値型 (主キー)
部署名:テキスト型
※予めレコードを入れておくこと
テーブル:社員マスタ(担当者マスタでも可)
社員ID:数値型(主キー)
社員名:テキスト型
部署ID:数値型
※予めレコードを入れておくこと
部署選択用コンボボックスをウィザードで作成してください。
作成後、プロパティの「名前」を「cmb部署」としてください。
同プロパティで以下を確認してください。
値集合タイプ:テーブル/クエリ
値集合ソース:部署マスタ…テーブル名です。
列数:2
連結列:1
担当者選択用コンボボックスを作成します。
ウィザードで初めに開くダイアログでキャンセルを押してください。
コンボボックスがフォーム上にできので、プロパティに...
名前:cmb担当者
値集合タイプ:テーブル/クエリ
値集合ソース:SELCT 社員ID, 社員名 FROM 社員マスタ WHERE 部署ID = Forms!フォームA!部署ID
列数:2
連結列:1
とします。
※このときフォーム上に社員名を表示したいなら非連結テキストボックスを作成し
コントロールソースを「=cmb担当者.Column(1)」としてください。
最後に部署選択用コンボボックスのプロパティ/イベント/「更新後処理」に
Me.cmb担当者.Requery
とすればできあがりです。
|
|
クロ
- 04/11/19(金) 9:21 -
