Office中国论坛/Access中国论坛

标题: [求助]自动编号问题 [打印本页]

作者: luyipei 时间: 2007-1-30 06:53
标题: [求助]自动编号问题
我参照本论坛的资料做了一个自动编号的东东，我设想的规则是年＋月＋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 时间: 2007-1-30 16:53
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 时间: 2007-1-30 18:37
就是这样的，弄好了，非常感谢[color="#61b713"]zyz218

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)