コンボボックスで新規登録する場合
こんにちはアクセス初心者です。
コンボボックスの扱いについて行き詰っています。
説明が下手ですがどうぞよろしくおねがいします
フォームＡで
コンボＡとコンボＢの
２つのコンボボックスを連動しています
コンボＡで選んだ発注者名を選択して詳細項目を表示し、
その担当者をコンボＢで絞込み
担当者の詳細情報を表示しています
コンボＡに項目がない場合、
別ウィンドウで入力フォームが開き
新規登録後、その値が即座に反映され、
コンボＢにはその抽出された値が表示され、
更にコンボＢに項目が無い場合も同様に
登録作業をしたいのですが
どういう方法が一番いいのでしょうか？
一番の理想としては
コンボＡを選択すると
Ａ社
Ｂ社
Ｃ社
新規登録
というようなリストが表示され
新規登録を選択すると
別ウィンドウで登録フォーム開き
複数項目を入力、ＯＫを押すとその内容が
フォームＡに反映され
コンボＢの選択へ。
コンボＢには
田中
佐藤
新規登録
と表示されている状態が理想です
コンボＡで顧客コードを選択すると
他の内容を下記のように
ＶＢＡでフォーム上のテキストボックスに反映させています
Private Sub コンボＡ_AfterUpdate()
Me!担当者名コンボ.Requery
'内容反映
Me.〒 = Me.顧客名コンボ.Column(2)
Me.現住所 = Me.顧客名コンボ.Column(3)
Me.電話番号 = Me.顧客名コンボ.Column(4)
コンボＡ
SELECT
顧客マスタ.顧客コード, 顧客マスタ.顧客名, 顧客マスタ.〒, 顧客マスタ.現住所, 顧客マスタ.電話番号
FROM 顧客マスタ
ORDER BY 顧客マスタ.顧客コード;
コンボＢ
SELECT
担当者マスタ.担当者コード, 担当者マスタ.担当者名, 担当者マスタ.携帯番号, 担当者マスタ.顧客コード
FROM 担当者マスタ
WHERE (((担当者マスタ.顧客コード)=[forms]![フォームＡ]![コンボＡ]))
ORDER BY 担当者マスタ.担当者コード;
別ボタンで新規登録をつくり
リストに無い場合はフォームを表示させ
テーブルに保存させるという方法も試しましたが
デザイン上の問題があって
とても小さなスペースしかとれず、
コマンドボタンをおくスペースもとるのが難しい感じなので
できればコンボボックスだけで解決したいのですが。。
どなかた教えていただけると助かります
どうぞよろしくおねがいいたします
