回答編集履歴
1
サンプルコードにコメントを追加
answer
CHANGED
|
@@ -15,13 +15,13 @@
|
|
|
15
15
|
Option Explicit
|
|
16
16
|
|
|
17
17
|
Private Sub Form_AfterDelConfirm(Status As Integer)
|
|
18
|
-
If Status <> acDeleteOK Then Exit Sub
|
|
18
|
+
If Status <> acDeleteOK Then Exit Sub '削除を取り消したら何もしない
|
|
19
|
-
If Me.NewRecord Then Exit Sub
|
|
19
|
+
If Me.NewRecord Then Exit Sub '新規レコードの場合も何もしない
|
|
20
20
|
With Me.RecordsetClone
|
|
21
|
-
.Bookmark = Me.Bookmark
|
|
21
|
+
.Bookmark = Me.Bookmark 'フォームのカレントレコードへ移動
|
|
22
|
-
Do Until .EOF
|
|
22
|
+
Do Until .EOF 'レコードセットの最後まで
|
|
23
23
|
.Edit
|
|
24
|
-
!F_LineNum = .AbsolutePosition + 1
|
|
24
|
+
!F_LineNum = .AbsolutePosition + 1 '行番号更新
|
|
25
25
|
.Update
|
|
26
26
|
.MoveNext
|
|
27
27
|
Loop
|