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