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

红尘如烟

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

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

复制代码

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

六月雪

哦哦哦哦哦哦哦

xu03881523

666666666

xuwenning

学习

xiaowuo2

感谢分享，顶

ziigan

非常好用

zpy2

学习了

远山h

学习

yahycz

这个不错，必须支持。

purplerose

嗯 ，不错，正想学习一下

gaofei186

看看一下