Access ダイアログボックス

Question

Access について質問です。
以下のようなフォームを作成してます。

●フォームA
テキストボックス1、ボタン1
ボタン1を押下すると、テキストボックス1へ入力した値をpublic変数s_codeへ代入し、
フォームBを開き、フォームAを閉じる。

●フォームB
・テキストボックス1～5
テーブルAの変数s_codeに合致するレコードの各フィールドの値を
テキストボックス1～5へ表示（フォームBアクティブ時のイベントとして）
・ボタン1
フォームCを開く。

●フォームC
・ボタン1
テーブルAの変数s_codeに合致するレコードの各フィールドの値を書き換える。
フォームCを閉じる

【 質問 】
フォームCでボタン1を押下したら、フォームBのテキストボックス１～５はすぐ書き換わるようになっておりましたが、フォームB又はフォームCを「ポップアップ」に設定すると書き換わらなくなりました（テーブルのデータは書き換わっています）

【 調べたこと 】
フォームをダイアログやポップアップに設定するとアクティブイベントにひっかからなくなるようです。ダイアログやポップアップで、フォームCからフォームBへ戻ったときのイベントとしては、どのようなイベントにすると良いでしょうか。
結構いろいろ試したのですが、どのイベントにひっかからず・・・

Answer 1

タイトルと質問内容から、フォームC をダイアログボックス的な仕様にしたいということと推測しました。
具体的には下記のような仕様。

フォームBで該当データを表示させる（閲覧）
ボタン1でフォームCを呼び出して、そこで該当データを更新する。
フォームCを閉じると、フォームBは更新が反映されている。

一般的にダイアログボックスを開いているときはそれ以外での操作はできないようになります。
(InputBox, Msgbox, ファイル選択ダイアログなど）

現状の問題点は、「ポップアップ」に設定するとアクティブイベントが発生しないというという点ですね（これはAccessの仕様のようです。）

あと「ポップアップ」を設定するだけでは、他のフォームの操作ができてしまうというのも問題だと思います。

フォームCを開いている間にフォームBでデータ操作したり、閉じたりしたすると、いろいろ複雑になりバグの元になります。

自分ならフォームBのボタン1のクリック時のイベントプロシージャを下記のようなコードにします。

Private Sub ShowDate()
    'テーブルAの変数s_codeに合致するレコードの各フィールドの値を
    'テキストボックス1～5へ表示するコード
End Sub

Private Sub Form_Load()
    Call ShowDate
End Sub

Private Sub ボタン1_Click()
    DoCmd.OpenForm "フォームC", WindowMode:=acDialog 'ダイアログモードで開く
    Call ShowDate
End Sub

ダイアログモード(WindowMode:=acDialog)で開くと、フォームはポップアップかつ他のオブジェクトは操作できない状態で開く。さらに、開いたフォームが閉じるまで、次のコードは実行されない。というダイアログボックスと同様の仕様になります。

---

質問内容とはずれますが、

ボタン1を押下すると、テキストボックス1へ入力した値をpublic変数s_codeへ代入し、

フォームBを開き、フォームAを閉じる。

public変数は、複雑なシステムになってくると想定外に書き変わっていたりとかのバグの元になるので、できる限り使用しないというのが定説です。

OpenFormメソッドには、OpenArgs引数という値を渡すことのできる引数がありますので、それを利用するのが得策だと思います。

フォームA

Private Sub ボタン1_Click()
    DoCmd.OpenForm "フォームB", OpenArgs:=Me.テキストボックス1.Value
    DoCmd.Close acForm, Me.Name
End Sub

フォームB

Private s_code

Private Sub ShowDate()
    'テーブルAの変数s_codeに合致するレコードの各フィールドの値を
    'テキストボックス1～5へ表示するコード
End Sub

'フォームの読み込み時
Private Sub Form_Load()
    s_code = Me.OpenArgs
    Call ShowDate
End Sub

Comments

[access]

お返事遅くなり失礼しました。
おっしゃるとおりにモジュールを分けましたら
簡単に実現できました。

Private Sub ShowDate()
'テーブルAの変数s_codeに合致するレコードの各フィールドの値を
'テキストボックス1～5へ表示するコード
End Sub

Public変数についてもアドバイス有難うございます。
openformにOpenArgsなんていう引数があったのですね。
勉強になります。