Office中国论坛/Access中国论坛

标题: 以年为单位从1开始的另类序号 [打印本页]

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

作者: t小宝 时间: 2008-3-20 20:20
知道2008001的做法，就知道001的做法，原理是一样的

作者: 小何 时间: 2008-3-20 22:04
试了好久没成功,帮我修改一下代码好吗?

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

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