[原创源码分享]只有几行代码的自定义自动编号函数

红尘如烟 · 发表于 2008-6-10 16:43:27

头几天做东西的时候想到的一个思路，现在空下来完善一下发上来和大家分享

'========================================================================================
'-函数名： AutoNumber
'-函数用途：设置自定义自动编号
'-参数说明：参数1：Prefixal----编号前缀
'- 参数2：Digit----编号位数
'- 参数3：FieldName----自动编号所在字段名
'- 参数4：TableName----自动编号所在表名
'-返回参数：调用成功返回将要向新记录中添加的最大编号，调用失败返回空字符串""
'-调用方法：在窗体的Current(当前)事件中调用
'-调用示例： Me.自动编号.DefautValue = AutoNumber("[审]",7,"自动编号","审核表")
'-使用注意：表中的自动编号字段数据类型要设成文本型
'-作者：红尘如烟
'-
'=============================================================================================
Function AutoNumber(Prefixal As String, Digit As Integer, FieldName As String, TableName As String) As String
On Error GoTo AutoNumber_Err
Dim strMaxID As Long
Dim strNumberFormat As String
Dim i As Integer
strMaxID = Nz(DMax("Right( " & FieldName & "," & Digit & ")", TableName)) + 1
For i = 1 To Digit
strNumberFormat = strNumberFormat & "0"
Next
AutoNumber = """" & Prefixal & Format(strMaxID, strNumberFormat) & """"
AutoNumber_Exit:
Exit Function
AutoNumber_Err:
AutoNumber = ""
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "自动编号出错"
Resume AutoNumber_Exit
End Function

复制代码

游客，如果您要查看本帖隐藏内容请回复

andymark · 发表于 2008-6-10 17:17:16

很实用的功能 [:12]

laiguiyou · 发表于 2008-6-10 17:27:19

支持

[:24]

tmtony · 发表于 2008-6-10 17:59:42

不能不支持一下!

红尘如烟 · 发表于 2008-6-10 18:13:03

奇怪，我在１楼的代码是直接复制过来的，最后错误处理那儿应该是AutoNumber=""的，怎么只显示Aut，改都改不了

chenwm1973 · 发表于 2008-6-10 19:06:40

学习
[:50] [:50] [:50]

liaug · 发表于 2008-6-10 21:23:54

[:34] [:34] [:34]

wang1950317 · 发表于 2008-6-10 22:46:46

学习！谢谢！[:50]

tmtony · 发表于 2008-6-11 00:55:02

复制到写字板,再复制过来是否可以?

红尘如烟 · 发表于 2008-6-11 01:32:14

站长老大,还是不行啊,我手动改过后不行,复制到记事本和写字板后再复制过来全都不行,是被屏蔽掉了,还是怎么回事,太奇怪了

帐号		自动登录	找回密码
密码			注册

[模块/函数] [原创源码分享]只有几行代码的自定义自动编号函数

群介绍
主题无相 (随机显示版	同地区群块其他地区)