回答編集履歴
1
直しました。書き方がよくわからなかったので。。。すみません。
answer
CHANGED
|
@@ -5,8 +5,9 @@
|
|
|
5
5
|
3 iii jjj kkk lll 「並び順フィールドは 3」
|
|
6
6
|
|
|
7
7
|
2番目のレコードを削除したときには、次のようなプログラムを走らせます
|
|
8
|
+
```ここに言語を入力
|
|
8
9
|
|
|
9
|
-
|
|
10
|
+
Sub 並び順振り直し()
|
|
10
11
|
|
|
11
12
|
Dim rs As DAO.Recordset
|
|
12
13
|
Dim i As Long
|
|
@@ -31,7 +32,11 @@
|
|
|
31
32
|
End With
|
|
32
33
|
End If
|
|
33
34
|
|
|
35
|
+
Me.Requery
|
|
36
|
+
|
|
34
37
|
Err_Renumber:
|
|
35
38
|
rs.Close
|
|
36
|
-
|
|
39
|
+
|
|
37
|
-
End Sub
|
|
40
|
+
End Sub
|
|
41
|
+
コード
|
|
42
|
+
```
|