求教如何给纪录自动编号

kele030 · 发表于 2009-1-23 22:02:05

我想在窗体内给录入的纪录按照当天的日期和记录数自动编号？
例如：20090109001
20090109002
前八位是当天的日期后三位是当天录入纪录的条数。第二天后三位再从001开始记录。求教各位高人给各方法吧。谢谢

Henry D. Sy · 发表于 2009-1-24 06:09:29

传例子

Henry D. Sy · 发表于 2009-1-24 08:30:42

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:13

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:31

我也学习，多谢两位！

kele030 · 发表于 2009-1-27 22:09:27

十分感谢各位了。

njy6000 · 发表于 2009-1-30 19:36:58

删除以后会出现什么情况?

wnsm007 · 发表于 2009-1-30 19:38:34

為何下載的db1.mdb裡什麼也沒有?

阿六爱狗 · 发表于 2009-4-8 13:44:09

下载什么也没有

dddd042821 · 发表于 2009-8-17 15:20:35

為何下載的db1.mdb裡什麼也沒有?

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 求教如何给纪录自动编号

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)