以下の例は既に存在するテーブルに分類別に連番をレコードセットを使用し付ける例です。
このとき、連番を付けるフィールドを追加して、既存フィールドはそのままの状態とします。
Sub Renban()
Dim db As DAO.Database
Dim rs as DAO.Recordset
Dim fld as DAO.Field
Dim fldID as String
Dim stSQL As String
Dim i As Integer
stSQL = “SELECT * FROM T_テーブル order by 分類”
Set db= CurrentDb()
Set rs =db.Openrecordset(stSQL,dbOpenDynaset)
Set fld = rs.Fields(“分類連番”)
If rs.BOF = False Then
rs.MoveFirst
i = 1
fldID = “”
Do Until rs.EOF
rs.Edit
If fldID <> rs!分類 Then
i = 1
fldID = rs!分類
End Iｆ
fld = i
rs.Update
i = i + 1
rs.MoveNext
Loop
End If
rs.Close : Set rs =Nothing
db.Close : Set db = Nothing
End Sub
