Office中国论坛/Access中国论坛

标题: 求教如何给纪录自动编号 [打印本页]

作者: kele030 时间: 2009-1-23 22:02
标题: 求教如何给纪录自动编号
我想在窗体内给录入的纪录按照当天的日期和记录数自动编号？
例如：20090109001
20090109002
前八位是当天的日期后三位是当天录入纪录的条数。第二天后三位再从001开始记录。求教各位高人给各方法吧。谢谢

作者: Henry D. Sy 时间: 2009-1-24 06:09
传例子

作者: Henry D. Sy 时间: 2009-1-24 08:30
Dim strNo As String
Dim Criteria As String
Criteria = "Left(编号,8)='" & Format(Date, "yyyymmdd") & "'"
strNo = Val(Nz(Right(DMax("编号", "表1", Criteria), 3))) + 1
strNo = Format(Date, "yyyymmdd") & Format(strNo, "000")
Me.编号 = strNo

作者: todaynew 时间: 2009-1-24 08:45
dim sql as string
sql="INSERT INTO 表 ( 记录ID)" &" "
sql=sql+"SELECT iif(max(记录ID) is null, format(date(),'yyyymmdd') & '001', format(max(记录ID)+1,'00000000000'))" & " "
sql=sql+"FROM 表 where mid(记录ID,1,8)=format(date(),'yyyymmdd');"
docmd.runsql sql

[:50]

作者: ycxchen 时间: 2009-1-24 15:02
我也学习，多谢两位！

作者: kele030 时间: 2009-1-27 22:09
十分感谢各位了。

作者: njy6000 时间: 2009-1-30 19:36
删除以后会出现什么情况?

作者: wnsm007 时间: 2009-1-30 19:38
為何下載的db1.mdb裡什麼也沒有?

作者: 阿六爱狗 时间: 2009-4-8 13:44
下载什么也没有

作者: dddd042821 时间: 2009-8-17 15:20
為何下載的db1.mdb裡什麼也沒有?

作者: deathhana 时间: 2009-8-25 11:37
呃我也没看到还是不懂作孽

作者: deathhana 时间: 2009-8-25 11:37
刚我也发贴问了下这个问题

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