根据已知日期生成日期流水号

haemon　发表于：2011-06-11 20:23:55 　

复制

年月日+3位编号

日期2011/6/1 编号自动生成20110601001

日期2011/5/25 编号自动生成20110525001

日期2011/6/11 编号自动生成20110611001

日期2011/6/11 编号自动生成20110611002

日期2011/6/11 编号自动生成20110611003

点击下载此附件

Top

liaohk 发表于：2011-06-11 21:56:00

Dim a, c, strSQL, strSQL1 As String
    Dim b, bh As Long
    c = Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd")
    strSQL = HZ2PY(Me.仓库名称)
    strSQL = "L" & strSQL
    strSQL1 = strSQL & c
    bh = Val(Nz(Right(DMax("入库单ID", "Tabl入库记录表", "Left([入库单ID],InStr([入库单ID],'-')-1) & (Left(Right([入库单ID],10),6)) = '" & strSQL1 & "'"), 3))) + 1
    If strSQL <> a Then
        Me.入库单ID = strSQL & "-" & c & "-" & Format(bh, "000")
    Else
        Me.入库单ID = strSQL & "-" & c & "-" & "001"
    End If
    Exit Sub
    Me.入库部门 = ""
    Me.入库部门.Requery
    Me.经手人 = ""
    Me.经手人.Requery
    Me.入库性质 = ""
    Me.入库性质.Requery
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Top

haemon 发表于：2011-06-11 22:13:21

谢谢..我没建窗体，能直接显示在表里吗，模块，查询有办法吗

Top

liaohk 发表于：2011-06-12 10:09:11

那就直接在表中利用日期来作编号

Top

大夏发表于：2011-06-12 22:31:09

点击下载此附件

刚在这里学的，不知是不是你想要的。

Top

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

Access交流中心

[5分]根据已知日期生成日期流水号