vba - アクセスフォームを更新する方法

Question

すべてのフォームがモーダルである MS Access アプリケーションを構築しています。ただし、フォームのデータを変更した後、このフォームの親フォームを新しいデータで更新したいと考えています。それを行う方法はありますか。さらに詳しく説明するには:

フォーム A とフォーム B の 2 つのフォームがあるとします。どちらもモーダルフォームです。フォーム A からフォーム B を開始すると、フォーム B にユーザーの注意が向けられます。しかし、フォーム B の終了時にフォーム A を更新したいのですが、それを行う方法はありますか?

score 9 · Accepted Answer

再描画および/または再クエリを実行できます:

フォーム B の終了イベント:

Forms!FormA.Requery

これはあなたが意味するものですか？

score 7 · Accepted Answer

いや、できればForm AのForm_Loadを実行したいようなものです。

-- ヴァルン・マハジャン

これを行う通常の方法は、関連するコードを、両方のフォームで呼び出すことができるプロシージャに入れることです。コードを標準モジュールに配置するのが最善ですが、フォーム a に配置することもできます。

フォーム B:

Sub RunFormALoad()
   Forms!FormA.ToDoOnLoad
End Sub

フォーム A:

Public Sub Form_Load()
    ToDoOnLoad
End Sub    

Sub ToDoOnLoad()
    txtText = "Hi"
End Sub

score 1 · Accepted Answer

REQUERYデータを変更した特定のコンボボックスを使用し、Cmd.Closeステートメントの後にそれを行うことをお勧めします。そうすれば、データを入力していた場合、そのデータも再クエリされます。

DoCmd.Close
Forms![Form_Name]![Combo_Box_Name].Requery

最近変更された値を指すこともできます

Dim id As Integer
id = Me.[Index_Field]
DoCmd.Close
Forms![Form_Name]![Combo_Box_Name].Requery
Forms![Form_Name]![Combo_Box_Name] = id

この例では、2 次テーブルにデータを入力するためにフォームを開いたと想定しています。

School_Index と School_Name を School テーブルに保存し、それを Student テーブル (School_Index フィールドのみを含む) で参照するとします。生徒を編集しているときに、School テーブルにない学校に生徒を関連付ける必要があります。

score 1 · Accepted Answer

「再クエリ」は実際に実行したいことですが、フォーム A の「On Got Focus」イベントで実行できます。Form_Load にコードがある場合は、おそらくそれを Form_Got_Focus に移動できます。

score -2 · Accepted Answer

入力する必要があるフォームを更新する には、クリック時のボタンイベントでme.refresh

5 に答える 5