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

红尘如烟

表1








日期


编号








2004-01-02


20040102-01





2004-01-02


20040102-02





2004-01-05


20040105-01





2004-01-08


20040108-01





2004-01-08


20040108-02





2004-01-08


20040108-03





2004-01-09


20040109-01





2004-01-09


20040109-02





2004-01-09


20040109-03





2004-01-09


20040109-04





2004-01-13


20040113-01





2004-01-13


20040113-02





2004-01-13


20040113-03





2004-01-13


20040113-04





2004-01-13


20040113-05





如上所示，如何把左边的日期转换为转换为右边的编号：


按日期的记录数编号，如日期值为2004-01-13的记录有5条，则此日期值的编号为200401

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

一点通

请修正一下,现在见到的是乱码,另最好上传示例,以便测试

红尘如烟

已经解决，原来是我的电脑出了问题（失去编译状态，无法恢复，重装了一遍Access就行了），晕死，多谢两位高人的的热心帮助



[em20][em20][em20][em20][em20][em20]

[em22][em22][em22][em22][em22][em22]

czsjw

高手如云