关于日期编号的写法

欧阳空竹　发表于：2011-04-15 14:39:49 　

复制

请老师赐教关于日期编号的写法：

新增窗体中有 “领用日期”字段

领用编号= “TJ-领用日期-01” 例如“TJ-20110415-01”

请老师赐教写法

Top

小学生发表于：2011-04-15 15:04:12

请问这是自动编号么？

如果今天（4月15日）领用3次，那么编号应该是：TJ-20110415-01、TJ-20110415-02、TJ-20110415-03

4月16日领用2次，那么编号应该是：TJ-20110406-01、TJ-20110416-02

4月17日领用6次，那么编号应该是：TJ-20110417-01、TJ-20110417-02、TJ-20110417-03、TJ-20110417-04、TJ-20110417-05、TJ-20110417-06

Top

lyxiong 发表于：2011-04-15 15:16:03

请参考：http://www.accessoft.com/blog/article-show.asp?userid=2790&Id=5322 中的入库单号

Top

小学生发表于：2011-04-15 16:10:47

Private Sub 领用日期_AfterUpdate()
Me.领用编号 = "TJ-" & Format(领用日期, "yyyymmdd") & Format(Nz(DMax("Right(领用编号, 2)", "领用表", "left(领用编号,12)='" & Format(领用日期, "yyyymmdd") & "'")) + 1, "00")

End Sub

点击下载此附件

怎么也不对啊

Top

小学生发表于：2011-04-15 17:00:49

我已经按照论坛中的“日期编号”示例更改完成，代码如下：

Dim a, c, strSQL, strSQL1 As String
    Dim b, bh As Long
    c = Format(领用日期, "yy") & Format(领用日期, "mm") & Format(领用日期, "dd")
    strSQL = "TJ"
    strSQL1 = strSQL & c
    bh = Val(Nz(Right(DMax("领用编号", "领用表", "Left([领用编号],InStr([领用编号],'-')-1) & (Left(Right([领用编号],10),6)) = '" & strSQL1 & "'"), 3))) + 1
    If strSQL <> a Then
        Me.领用编号 = strSQL & "-" & c & "-" & Format(bh, "000")
    Else
        Me.领用编号 = strSQL & "-" & c & "-" & "001"
    End If

Top

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

Access交流中心

关于日期编号的写法