回答編集履歴

1

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

2016/09/18 08:46

投稿

hatena19
hatena19

スコア34367

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