Office中国论坛/Access中国论坛
标题:
[求教]关于对已有记录按日期和记录数编号的问题
[打印本页]
作者:
红尘如烟
时间:
2007-2-27 09:01
标题:
[求教]关于对已有记录按日期和记录数编号的问题
表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
时间:
2007-2-27 17:28
可以先在表中增加一个“编号”的空字段,文本型。再循环写入你需要的编号。
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
作者:
一点通
时间:
2007-2-27 17:33
请修正一下,现在见到的是乱码,另最好上传示例,以便测试
作者:
红尘如烟
时间:
2007-2-28 03:29
已经解决,原来是我的电脑出了问题(失去编译状态,无法恢复,重装了一遍Access就行了),晕死,多谢两位高人的的热心帮助
[em20][em20][em20][em20][em20][em20]
[em22][em22][em22][em22][em22][em22]
作者:
czsjw
时间:
2009-6-5 23:12
高手如云
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3