回答編集履歴
1
コメントで指摘を受けた部分を修正
test
CHANGED
@@ -16,14 +16,20 @@
|
|
16
16
|
|
17
17
|
On Error Resume Next
|
18
18
|
|
19
|
-
Do Until Err <> 0
|
19
|
+
Do Until Err.Number <> 0
|
20
20
|
|
21
21
|
Set pfrm = pfrm.Parent
|
22
22
|
|
23
23
|
Loop
|
24
|
+
|
25
|
+
On Error GoTo 0
|
24
26
|
|
25
27
|
|
26
28
|
|
27
29
|
DoCmd.Close acForm, pfrm.Name
|
28
30
|
|
29
31
|
```
|
32
|
+
|
33
|
+
|
34
|
+
|
35
|
+
※コメントで指摘を受けた部分を修正しました。
|