标题：ACCESS的自动编号代码

1楼

月缺月圆 发表于：2008/9/19 8:45:00

在access中把自定义自动编号的控件的默认值设置为 =Left(Format(Format(Date(),'yyyymmdd'))+Format(DCount("ID","表1","时间 = date()")+1),8) & Choose(12-Len(Format(Format(Date(),'yyyymmdd'))+Format(DCount("ID","表1","时间 = date()")+1)),"0","00","000") & Right(Format(Format(Date(),'yyyymmdd'))+Format(DCount("ID","表1","时间 = date()")+1),(Len(Format(Format(Date(),'yyyymmdd'))+Format(DCount("ID","表1","时间 = date()")+1))-8)) 呵呵，代码是长了些，有没有高手简化一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自己设计的自动编号.rar

2楼

lxl 发表于：2008/9/19 16:08:00

你的那个太麻烦了。直接用
Format(Date(),'yyyymmdd')+Format(DCount("ID","表1","时间 = date()")+1,"0000")
就行了

3楼

月缺月圆 发表于：2008/9/19 16:21:00

好啊，又学了一手。FORMAT(,"0000")

共3 条记录, 每页显示 10 条, 页签: [1]