自动生成入库单号

海军下士

各位长官：我做了个仓库管理系统，然后每次输入单号的时候都要手动添加，很麻烦，能不能让他自动生成，比如201306000001.然后是2013060000002...谢了，各位~

枯木一线

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