access 中實現 年月日+流水號的方法

littlev1011

在網路上找到許多代碼
但一直不知道應該到哪邊去貼上這些代碼
而這些代碼又該做如何的修改
故上來請教各位版大
看是否能提供小弟在Access中實現年月日+流水號的辦法阿( yyyymmdd+000)
拜託拜託

咱家是猫

这个编号里的关键是流水号,建议你建一个表专门来保存分单据类型的最大流水号.每次新建单据时,到这个表里获取到当前流水号然后+1就是新单据的流水号,至于日期的,那就好办了,用当天的就可以了,如:
dim intMax Integer
dim strNewCode as string

intMax=Nz(Dlookup("MaxID","专门记录最大流水号的表名","单据类型='销售单'"),1)
strNewCode=Format(date,"yyyymmdd") & Fromat(intMax,"0000")

这样就会得出一个类似 201211090001的单据编号

要注意的是,当你创建了一个新单据后,需要去更新那个记录最大流水号里的相关记录里的最大流水号值(加1)