请教高手:如何产生如:2006-0001,2006-0002这样的自动编号字段

stxboy

如题

hamajing

唉  这多天都没人给回答???     





我帮你把     虽然不是我写的代码!!!!!!!


******************************************   





Dim a As String  


    a = Nz(DMax("销售单号", "销售帐单", ""), 0)


If Left(a, 6) <> Format(Date, "yyyymm") Then


    销售单号 = Format(Date, "yyyymm") & "01"


  Else


    销售单号 = Format(Date, "yyyymm") & Format(Val(Right(a, 2)) + 1, "00")


End If


这段代码写出来 的  格式是     例200601001


"销售单号"改成你要自动编号的 标题  .    "销售帐单"改成你的表名   


如果你要的格式是  2006-01-01    的话     就在"销售单号"的输入掩码中设置格式  就ok!!!!!!


****************************************************************


记我Q群    22105039                 拜拜