Office中国论坛/Access中国论坛

标题: 关于对已有记录按日期和记录数编号的问题? [打印本页]

---

作者: wktt6833    时间: 2007-3-12 01:27
标题: 关于对已有记录按日期和记录数编号的问题?
关于对已有记录按日期和记录数编号的问题?


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


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


请问这段代码应写在何处?





[attach]23476[/attach]

[此贴子已经被作者于2007-3-11 17:36:53编辑过]

---

作者: andymark    时间: 2007-3-12 04:02
放在窗体,执行后全部更新tbl表的编号

---

作者: wktt6833    时间: 2007-3-12 17:52
程序执行到一半就无响应是何原因,打开tbl1表,只有少部分数据更新.

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3