- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ACCESS的自动编号代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=603)
-- 发布时间：2008/9/19 8:45:00
-- 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 |
-- 发布时间：2008/9/19 16:08:00
--
你的那个太麻烦了。直接用
Format(Date(),\'yyyymmdd\')+Format(DCount("ID","表1","时间 = date()")+1,"0000")
就行了
-- 发布时间：2008/9/19 16:21:00
--
好啊，又学了一手。FORMAT(,"0000")