回答編集履歴

4

説明の改善

2020/08/19 14:39

投稿

hatena19
hatena19

スコア33763

test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
  **別案**
30
30
 
31
- 呼び出したいフォームの「ポップアップ」プロパティを「はい」、「作業ウィンドウ固定」を「はい」に設定しておく。acDialogを設定しない。
31
+ 呼び出したいフォームの「ポップアップ」プロパティを「はい」、「作業ウィンドウ固定」を「はい」、「境界線スタイル」を「ダイアログ」に設定しておく。acDialogを設定しない。これで動作的にはダイアログウィンドウだか、モーダルにはならない。
32
32
 
33
33
 
34
34
 

3

説明の改善

2020/08/19 14:39

投稿

hatena19
hatena19

スコア33763

test CHANGED
@@ -26,9 +26,9 @@
26
26
 
27
27
  ---
28
28
 
29
- 別案
29
+ **別案**
30
30
 
31
- 呼び出したいフォームの「ポップアップ」プロパティを「はい」、「作業ウィンドウ固定」を「はい」に設定しておく。
31
+ 呼び出したいフォームの「ポップアップ」プロパティを「はい」、「作業ウィンドウ固定」を「はい」に設定しておく。acDialogを設定しない。
32
32
 
33
33
 
34
34
 

2

説明追記

2020/08/19 13:20

投稿

hatena19
hatena19

スコア33763

test CHANGED
@@ -21,3 +21,23 @@
21
21
  質問のコードだと、
22
22
 
23
23
  呼び出したフォームを閉じない限り(あるいは非表示にするまで)次のコード DoCmd.Close は実行されないということです。
24
+
25
+
26
+
27
+ ---
28
+
29
+ 別案
30
+
31
+ 呼び出したいフォームの「ポップアップ」プロパティを「はい」、「作業ウィンドウ固定」を「はい」に設定しておく。
32
+
33
+
34
+
35
+ ```vba
36
+
37
+ DoCmd.OpenForm "呼び出したいフォーム名"
38
+
39
+ DoCmd.Close acForm, Me.Name, acSaveNo
40
+
41
+ ```
42
+
43
+ こちらの方が確実に End Sub まで行くので、スタック領域を占有しないと思います。

1

説明の改善

2020/08/19 13:19

投稿

hatena19
hatena19

スコア33763

test CHANGED
@@ -18,4 +18,6 @@
18
18
 
19
19
 
20
20
 
21
+ 質問のコードだと、
22
+
21
23
  呼び出したフォームを閉じない限り(あるいは非表示にするまで)次のコード DoCmd.Close は実行されないということです。