自动编号函数--当日编号不能重复,若重复,日期推后1天
时 间:2018-03-13 08:05:54
作 者:杨雪 ID:42182 城市:南京
摘 要:分享一段自动编号函数,当日编号不能重复,若重复,日期累加1(日期推后一天)
正 文:
'调用示例: =AutoNumStr("tbl_合成组","批号","产品编号","组长编号","P","yymmdd-") 返回 P170816-目录表里的编号 固定5位 P170816-CQ380738 '=============================================================================================== Public Function AutoNumStr(TableName As String, _ FieldName As String, _ ProductNumber As String, _ GroupNumber As String, _ ProductDate As Date, _ Optional Prefixal As String, _ Optional DateFormat As String) On Error GoTo ErrorHandler Dim strPrefixal As String Dim strTemp As String Dim lngI As Integer '循环 For lngI = 0 To 365 '按日期合成编码 strPrefixal = Prefixal & Format(DateAdd("d", lngI, ProductDate), DateFormat) & GroupNumber & ProductNumber '检查是否存在重复批号,存在重复,日期继续累加1检查 If Nz(DLookup(FieldName, TableName, "[" & FieldName & "] = '" & strPrefixal & "'"), "") = "" Then AutoNumStr = strPrefixal Exit For End If Next Done: Exit Function ErrorHandler: MsgBox "错误编号: #" & Err & vbCrLf & _ "错误来源: " & Err.Source & vbCrLf & _ "错误信息: " & Err.Description, vbCritical, "出错" Resume Done End Function
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)