回答編集履歴
1
コメントで指摘を受けた部分を修正
answer
CHANGED
@@ -7,9 +7,12 @@
|
|
7
7
|
Set pfrm = Me
|
8
8
|
|
9
9
|
On Error Resume Next
|
10
|
-
Do Until Err <> 0
|
10
|
+
Do Until Err.Number <> 0
|
11
11
|
Set pfrm = pfrm.Parent
|
12
12
|
Loop
|
13
|
+
On Error GoTo 0
|
13
14
|
|
14
15
|
DoCmd.Close acForm, pfrm.Name
|
15
|
-
```
|
16
|
+
```
|
17
|
+
|
18
|
+
※コメントで指摘を受けた部分を修正しました。
|