为什么“单号”不能自动增加

半夜罗　发表于：2014-06-11 16:42:16 　

请教老师，我的自动编号不能自动进行，代码为：

Dim a As String

a = Nz(DMax("单号", "单据表", ""), 0)
If Left(a, 6) <> Format(Date, "yyyymmdd") Then
Me.单号 = Format(Date, "yyyymmdd") & "0001"
Else

Me.单号 = Format(Date, "yyyymmdd") & Format(Val(Right(a, 2)) + 1, "0000")

End If

沈军发表于：2014-06-11 19:42:05

应该这样写这个函数：DMax("单号", "单据表")，“单号”字段须为“数据型字段”，如果主文本字段需要进行转换。

zhaoyoulong 发表于：2014-06-13 14:08:32

Dim a As String

a =nz(DMax("单号", "单据表","Left$([单号],8)='" & Format$(Date, "yyyymmdd") &"'"))

if len(a)=0 then

Me.单号 = Format(Date, "yyyymmdd") & "0001"

Else

Me.单号 =left$(a,8) & format$(clng(right(a,4))+1,"0000")

End If

总记录：2篇页次：1/1 9 1 :

Access交流中心