流水号

pq318

流水号H110518A2-0001，110518是年月日，A2也会变化成B2，想要0001递增，如何办到

hjb016

todaynew版主的方法不错.学习了!

pq318

非常感谢版主的代码，关键是您的思路给了我很多启发，因为要大量的复制，所以自动编码就显得非常重要，牛人啊，以后还要多请教啊！

todaynew

pq318 发表于 2011-5-18 09:52
流水号H110518A2-0001，110518是年月日，A2也会变化成B2，想要0001递增，如何办到

假设你表中的编号字段名曰编号，你的表名名曰tbname，你的窗体上有两个控件，其一名曰前缀，其二名曰后缀，你想得到符合前缀和后缀的自动编号，则：
function 自动编号(str0 as string,str1 as string) as string
dim str as string
str=nz(dmax("编号","tbname","left(编号,1)='" & str0 & "' and mid(编号,8,2)='" & str1 & "' and mid(编号,2,6)='" & fromat(date(),"yymmdd")),str0 & fromat(date(),"yymmdd") & str1 & "-0000")
str=left(str,10) & format(Right(str,4)+1,"0000")
if nz(str0,"")="" or nz(str1,"")="" then
    自动编号=""
else
    自动编号=str
end if
end function

假设你的编号字段在子窗体中，则可将自动编码的默认值设为：
=自动编号(forms!主窗体!前缀,forms!主窗体!后缀)

pq318

请教论坛的高手，这个流水号的帖子是有一些，关键是对无规律的流水号怎么办，另外是写代码呢，还是在默认值里解决，非常感谢啊！