类似含有年月日的自动编号函数
时 间: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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)