[Access VBA]スタックせずに次フォームに遷移したい

Question

前提・実現したいこと

Accessで複数フォームを使用したシステムを作っています

各フォームにはコマンドボタンを配置して

• Form_メニュー01
  コマンドボタン [メニュー02呼出]
  コマンドボタン [メニュー03呼出]
  コマンドボタン [業務終了] - Accessを終了

• Form_メニュー02
  コマンドボタン [入力画面02_01呼出]
  コマンドボタン [入力画面02_02呼出]
  コマンドボタン [メニュー01呼出]

• Form_入力画面02_01
  コマンドボタン [メニュー02呼出]

• Form_入力画面02_02
  コマンドボタン [メニュー02呼出]

• Form_メニュー03
  コマンドボタン [入力画面03_01呼出]
  コマンドボタン [入力画面03_02呼出]

• Form_入力画面03_01
  コマンドボタン [メニュー03呼出]

• Form_入力画面03_02
  コマンドボタン [メニュー03呼出]

このような構成にしています

それぞれのコマンドボタンには

DoCmd.OpenForm "呼び出したいフォーム名", , , "", , acDialog
DoCmd.Close acForm, Me.Name, acSaveNo

と記載しています

発生している問題・エラーメッセージ

この方法だと
下図のように元フォームから次フォームを呼び出してもsubを終了せずどんどんネストしていってしまいます

(呼び出し履歴のハードコピー)

Accessを閉じずにフォーム移動を繰り返していると、スタック領域を占有していき、じきに

スタック領域が不足しています。

のエラーとなってしまいます

試したこと

ネストしていく作りであることを前提に

• フォームを呼び出す際は従来の方法を踏襲(フォーム開きっぱなし)
• 戻る際には元フォームを開くのではなく自分を閉じるのみ(元フォームに戻る)

実際のシステムではもっと深く階層化していき改修量がかなり多くなるため、前フォームをしっかり閉じて遷移していく方法が無いかと思案しています

前フォームを閉じる方法、こうしないと実現できない等のアドバイスがあればぜひ教えてください

補足情報

使用しているAccessのバージョン

• Microsoft Access 2010(32bit)
• Microsoft Access 2019(64bit)

Answer 1

コードの順序を入れ替えればいいでしょう。

DoCmd.Close acForm, Me.Name, acSaveNo
DoCmd.OpenForm "呼び出したいフォーム名", , , "", , acDialog

acDialogを設定（ダイアログモード）するとフォームがモーダルで開きます。
モーダルとはフォームが閉じるまで、次のコードが実行されないということです。

質問のコードだと、
呼び出したフォームを閉じない限り（あるいは非表示にするまで）次のコード DoCmd.Close は実行されないということです。

---

別案
呼び出したいフォームの「ポップアップ」プロパティを「はい」、「作業ウィンドウ固定」を「はい」、「境界線スタイル」を「ダイアログ」に設定しておく。acDialogを設定しない。これで動作的にはダイアログウィンドウだか、モーダルにはならない。

DoCmd.OpenForm "呼び出したいフォーム名"
DoCmd.Close acForm, Me.Name, acSaveNo

こちらの方が確実に End Sub まで行くので、スタック領域を占有しないと思います。

Comments

[imprezza]

アドバイスありがとうございます
別案のモーダルではないダイアログウィンドウの方式を試して、スタック領域を使い潰さないフォーム遷移を実現できました
今まで20往復のフォーム遷移でエラーとなっていたものが50往復を複数フォームで遷移してもびくともしません
長い事原因不明のままだましだまし先延ばしにしていた現象を根治出来そうです
ありがとうございました