回答編集履歴

1

コメントで指摘を受けた部分を修正

2016/09/18 08:46

投稿

hatena19
hatena19

スコア34367

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
+ ※コメントで指摘を受けた部分を修正しました。