[求助]自动编号问题

luyipei

我参照本论坛的资料做了一个自动编号的东东，我设想的规则是年＋月＋001，后面三位递增，当月发生变化时，又从001开始，现在的问题是当月发生变化时，它接着上次的往下递增，请问怎么做才好


Private Sub 组合1_AfterUpdate()
  
  Me.组合1.SetFocus

  Me.部门 = Me.组合1.Column(1)
  

  Me.工号 = Format(Date, "yyyy") & Format(Date, "mm") & Format(Nz(Right(DMax("[工号]", "职员表", "left([工号],4)='" & Format(Date, "yyyy") & "' & '" & "'"), 3)) + 1, "000")

End Sub

[此贴子已经被作者于2007-1-29 22:56:15编辑过]

zyz218

Private Sub 组合1_AfterUpdate()

Dim a As String
a = Nz(DMax("工号", "职员表", ""), 0)
    If Left(a, 6) <> Format(Date(), "yyyymm") Then
        Me.工号 = Format(Date(), "yyyymm") & "001"
    Else
        Me.工号 = Format(Date(), "yyyymm") & Format(Val(Right(a, 3)) + 1, "000")
    End If
End Sub

[此贴子已经被作者于2007-1-30 8:59:28编辑过]

luyipei

就是这样的，弄好了，非常感谢[color="#61b713"]zyz218