フォームのOPENとCLOSE(ACCESS VBA)

質問

ACCESS VBAでフォームA(親)→フォームB(子)→フォームC(孫)とフォームを開いています。

今までは順調に動いていたのですが急にフォームCを閉じると、親フォームのオブジェクトを見つけれないという実行時エラー7874が表示されるようになってしまいました。

デバッグをするとフォームBでフォームCを開いた↓
DoCmd.OpenForm "フォームＣ", , , , acFormAdd, acDialog
の部分にエラー原因があるようです。

なぜこの部分にエラーがでるのかよくわかりません。

しかも何度もやっているうちに(何もプログラムの内容はかわっていません)また動くようになりました。
ひとつわかったのは動く時にはフォームＣを閉じた時に
フォームＢのDoCmd.OpenForm "フォームＣ", , , , acFormAdd, acDialogの部分の次に帰っているということです。

とりあえず動いてはいますが、原因がわからず困っています。どなたか理由がわかりましたら教えてください。

回答No.2

keikan · ベストアンサー

>フォームＣではテキストボックス(非連結)に入力された値をＳＱＬ文でＤＢに反映し、それを再度呼び出し、フォームＢのSPREAD(エクセルの表のようなもの？)の指定した行に書き出しています。

書き出した時にフォーカスがフォームBに移ってフォームCを閉じる時にフォームBを閉じようとしてしまっているのでしょうか？しかし、上のような書き込み操作をせずに、ただフォームCを閉じても同じエラーが出ます。

フォームＣを引くときにダイアログにせずに開いてください。

たぶん、ダイアログでフォームＣが開かれてフォームＢのコードが中断されています。そのときにフォームＢに関係する操作を行うため、今までのコード関係が破棄され新たにその操作に対するコードが実行されるのだと思います。
この時点で、ダイアログのフォームＣが閉じたときに戻る呼び出し点が無くなっているために前のコード戻ることが出来ずエラーになったと思われます。

フォームＢのDoCmd.OpenForm "フォームＣ", , , , acFormAdd, acDialogのあとで
msgbox　"てすと"
を入れてみてください。

また

フォームＢのDoCmd.OpenForm "フォームＣ", , , , acFormAdd　のあと
msgbox　"てすと"

と動きを比較してみてください。

またＣｌｏｓｅイベントはそのフォーム等が閉じようとするときに発生し、ＵｎＬｏａｄイベントはメモリ等から解放されるときに発生します。

上記の理由でＣｌｏｓｅ時には元のコードに戻る準備が出来ていない状態でフォームＢに操作を行うためコードの継続が出来ない状態にっているが、ＵｎＬｏａｄイベント時には元の状態に戻る上でコードが継続されるためうまくいっているのではないでしょうか。

お礼

keikanさん、お返事ありがとうございました。
お礼が大変遅くなってしまいすみませんでした。

教えていただいたようにしてみたところうまくいきました。問題が解決できてよかったです。

ありがとうございました。

回答No.1

keikan

＞ひとつわかったのは動く時にはフォームＣを閉じた時に
フォームＢのDoCmd.OpenForm "フォームＣ", , , , acFormAdd, acDialogの部分の次に帰っているということです。

規程の動作です。フォームＣがacDialogで開かれているためにフォームが開いた時点で制御がフォームＣに移ります。その後フォームＣを閉じた時点でフォームを開いたコマンド以降が実施されます。
acDialog以外であればコードは進みます。

問題としてはフォームＣがいつどのように閉じられ(クローズボタンまたはクローズコマンドなど）ているかです。
このときにフォームＢがどのようになっているかです。

（ただ確認したところフォームＢが閉じられていてもコードとしてのオブジェクトが残っていればエラーは出ないみたいです、先ほどの流れで行けばフォームを開いた直後のフォームＢのコードに戻れればエラーは出ない。）

フォームＣでは何が行われていますか？

お礼

Keikanさん、いつもお返事ありがとうございます。

フォームＣではテキストボックス(非連結)に入力された値をＳＱＬ文でＤＢに反映し、それを再度呼び出し、フォームＢのSPREAD(エクセルの表のようなもの？)の指定した行に書き出しています。

書き出した時にフォーカスがフォームBに移ってフォームCを閉じる時にフォームBを閉じようとしてしまっているのでしょうか？しかし、上のような書き込み操作をせずに、ただフォームCを閉じても同じエラーが出ます。

あと、もう一点気になったのが、フォームCのCloseイベントで、フォームCのテキストボックスなどのコントロールやパブリック変数を初期化したり、フォームBを開くコードを書いているのですが、Unloadイベントに同じ内容を書いたところ動くようになりました。

これといった原因がはっきりとせず、困っています。

補足

たびたびすみません。

フォームCでクローズ処理がおこるのは、変更処理が終わったあとにDoCmd.Closeと呼び出すのと、閉じるボタンをクリックした時にDoCmd.Closeを呼び出しています。