主题：ACCESS的自动编号代码

在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