类似含有年月日的自动编号函数
时 间:2011-05-25 10:08:31
作 者:风行 ID:16058 城市:江阴
摘 要:Me![报销号] = AutoNumStr("报销申请单表", "报销号", 3, "NB", "yyyymmdd-")
得出以NB20110525-001开始自动编号
AutoNumStr("报销申请单表", "报销号", 4,, "yyyymm-")---
以201105-0001开始编号
AutoNumStr("报销申请单表", "报销号", 5, "CH-", "yymm")
以CH-110500001开始编号
正 文:
'Me.xsddid = AutoNumStr("tblxsddzj", "xsddid", 4, "XS", "yyyymm")------XS2011050001
'这自动编号代码复制到模块里,就可以引用AutoNumStr()函数自动编号了
'函数名称: AutoNumStr
'函数描述: 文本型自动编号函数
'输入参数: TableName 表名
' FieldName 字段名
' Digit 顺序号位数
' Prefixal 前缀字符,可选
' Dateformat 日期部分的格式,可选
'返回参数: 调用成功返回新的编号,调用失败返回Null
'调用示例: =AutoNumStr("员工表","工号", 5, "YG") 返回YG00001
' =AutoNumStr("订单表","订单号",3,"XS","yyyymmdd-") 返回 XS20100101-001
'作者:红尘如烟
'===============================================================================================
Public Function AutoNumStr(TableName As String, _
FieldName As String, _
Digit As Integer, _
Optional Prefixal As String, _
Optional DateFormat As String)
On Error GoTo ErrorHandler
Dim strPrefixal As String
Dim strTemp As String
strPrefixal = Prefixal
If DateFormat <> "" Then strPrefixal = strPrefixal & Format(Date, DateFormat)
If strPrefixal <> "" Then strTemp = "[" & FieldName & "] Like '" & strPrefixal & "*'"
strTemp = Nz(DMax(FieldName, TableName, strTemp), "0")
strTemp = Val(Mid(strTemp, Len(strPrefixal) + 1)) + 1
strTemp = Format(strTemp, String(Digit, "0"))
AutoNumStr = strPrefixal & strTemp
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窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)