Office中国论坛/Access中国论坛

标题: 自动生成入库单号 [打印本页]

作者: 海军下士 时间: 2013-6-9 10:22
标题: 自动生成入库单号
各位长官：我做了个仓库管理系统，然后每次输入单号的时候都要手动添加，很麻烦，能不能让他自动生成，比如201306000001.然后是2013060000002...谢了，各位~

作者: 枯木一线 时间: 2014-3-18 12:10
Dim strNo As String
Dim lngMaxNo As Long
Dim strSQL As String
strNo = Nz(DMax("FID", "tblExample", "FID like '" & Format(Date, "yymm") & "*'"))
lngMaxNo = Val(Mid(Right(strNo, 6), 6)) + 1

strNo = Year(Now()) & Format(Month(Now()), "00") & Format(lngMaxNo, "000000")

strSQL = "insert into tblexample (fid) values ('" & (Nz(strNo)) & "')"
DoCmd.RunSQL strSQL

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