[求教]关于对已有记录按日期和记录数编号的问题

sgrshh29

可以先在表中增加一个“编号”的空字段，文本型。再循环写入你需要的编号。

Dim rs As Object
Set rs = CurrentDb.OpenRecordset("tbl")
rs.MoveFirst
For i = 1 To rs.RecordCount
rs.Edit
rs("编号") = Format(rs("日期"), "yyyymmdd") & "-" & Format(Nz(DMax("Right(编号, 2)", "tbl", "left(编号,8)='" & Format(rs("日期"), "yyyymmdd") & "'")) + 1, "00")
rs.Update
rs.MoveNext
Next i
Set rs = Nothing