回答編集履歴
1
サンプルコードにコメントを追加
test
CHANGED
|
@@ -32,19 +32,19 @@
|
|
|
32
32
|
|
|
33
33
|
Private Sub Form_AfterDelConfirm(Status As Integer)
|
|
34
34
|
|
|
35
|
-
If Status <> acDeleteOK Then Exit Sub
|
|
35
|
+
If Status <> acDeleteOK Then Exit Sub '削除を取り消したら何もしない
|
|
36
36
|
|
|
37
|
-
If Me.NewRecord Then Exit Sub
|
|
37
|
+
If Me.NewRecord Then Exit Sub '新規レコードの場合も何もしない
|
|
38
38
|
|
|
39
39
|
With Me.RecordsetClone
|
|
40
40
|
|
|
41
|
-
.Bookmark = Me.Bookmark
|
|
41
|
+
.Bookmark = Me.Bookmark 'フォームのカレントレコードへ移動
|
|
42
42
|
|
|
43
|
-
Do Until .EOF
|
|
43
|
+
Do Until .EOF 'レコードセットの最後まで
|
|
44
44
|
|
|
45
45
|
.Edit
|
|
46
46
|
|
|
47
|
-
!F_LineNum = .AbsolutePosition + 1
|
|
47
|
+
!F_LineNum = .AbsolutePosition + 1 '行番号更新
|
|
48
48
|
|
|
49
49
|
.Update
|
|
50
50
|
|