以年为单位从1开始的另类序号

小何

以年为单位从1开始的序号在论坛里看到很多人做的，样本是2008001开始的序号。我现在也想以年为单位从1开始的序号，但是不要有年份。比如是2008年第1条记录时，就显示序号为001，不要有2008字，但是必须以年为单位，如果2009年又要从001开始。这样的序号如何做呢？

t小宝

知道2008001的做法，就知道001的做法，原理是一样的

小何

试了好久没成功,帮我修改一下代码好吗?

Dim mydate As String
Dim mysearial As String
mydate = Format(Date, "yyyy")
If IsNull(DMax("NO", "受托明细", "Left ([NO],6) ='" & mydate & "'")) Then
Me![NO] = mydate & "001"
Else
mysearial = DMax("NO", "受托明细", "Left ([NO],6) = '" & mydate & "'")
Me![NO] = Left(mysearial, 6) & Format(Right(mysearial, 3) + 1, "000")
End If