追加したデータをコンボボックスへ即反映させたい。

質問

困っておりますので（私の勝手で申し訳ないですが）、アドバイスをお願いします。

【現状と状況のご説明】
収集した情報を活用する為にＡＣＣＥＳＳでデータを保存しております。登録した情報を絞込んで検索する為に、入力時に３つの定型項目をコンボボックスを使ったプルダウンメニューの形式で入力しています。

定型項目（３項目）への新たな項目追加は、個別（３つ）のテーブルを作成。そのテーブルからフォームを個別に３つ作成し、情報登録フォーム上にボタン（フォームを開くマクロ）を配して新たな項目を追加しています。

【簡単に構成をご説明】
・テーブル名：情報登録テーブル（１つのテーブル）
・入力フォーム名：情報登録フォーム（３つのコンボボックス：Ａ・Ｂ・Ｃ）

・テーブル名：情報項目テーブル（３つのテーブル）
・情報項目フォーム名：Ａフォーム、Ｂフォーム、Ｃフォーム

【困っていること】
情報登録フォームから情報項目フォーム（A・B・C）を開いて、項目を追加したあと情報項目フォームを閉じても、開いている情報登録フォームのコンボボックスへ反映させられず（コンボボックスのメニューに未反映）、一度、情報登録フォームを終了させて、再度情報登録フォームを起動させるしかない状況です（そうすれば、コンボボックスのメニューに反映）。

【希望】
情報登録フォームを開いたままで、情報項目フォーム（Ａ・Ｂ・Ｃ）に追加した項目をコンボボックスへ即反映させ、情報登録力フォームへの即入力を可能にさせたい。

以上ですが、宜しくお願いします。

回答No.1

noname#231195 · ベストアンサー

フォームをなにもいじるつもりがないなら、「更新」ボタンで「すべて更新」を押せばコンボボックスも更新されるはずです。
情報登録フォームに戻ってきたときに「すべて更新」を押すことにするのです。

ただ、私はそういうときは、それは情報を編集した後、目的のコンボボックスをリクエリしています。例えばAというテキストボックスの更新前処理としてこんなプロシージャを埋め込んでおきます。
Private Sub A_BeforeUpdate(Cancel As Integer)
Me![Combo].Requery
End Sub
これでAを編集するたびにComboというコンボボックスをリクエリします。

お礼

早速ありがとございました。組み込みマクロに全て更新があることを知りませんでした。ありがとうございます。

回答No.2

hatena1989

情報項目フォーム（A・B・C）を閉じる時のイベントで、情報登録フォームのコンボボックスを再クエリすればいいでしょう。
VBAでするなら、例えば、Ａフォームの閉じるときのイベントプロシージャを下記のように記述します。
Private Sub Form_Close()
Forms!情報登録フォーム!A.Requery
End Sub

あるいは、コンボボックスのフォーカス取得時に再クエリするようにすれば、
どこで、情報項目テーブルを更新しようが、常に最新の状態でリストが表示されます。

Private Sub A_Enter()
Me!A.Requery
End Sub

お礼

すいません。お礼と補足コメントの記入欄を間違えました。
ありがとうございました。ご丁寧に分かりやすい記述（内容）で、しかも、ピンポイント対処と包括的対処の２つの対処方法をアドバイスいただきました。ありがとうございます。

補足

ありがとうございました。ご丁寧に分かりやすい記述（内容）で、しかも、ピンポイント対処と包括的対処の２つの対処方法をアドバイスいただきました。ありがとうございます。