Office中国论坛/Access中国论坛

标题: [原创源码分享]只有几行代码的自定义自动编号函数 [打印本页]
作者: 红尘如烟    时间: 2008-6-10 16:43
标题: [原创源码分享]只有几行代码的自定义自动编号函数
头几天做东西的时候想到的一个思路，现在空下来完善一下发上来和大家分享
  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

  18. Dim strMaxID As Long
  19. Dim strNumberFormat As String
  20. Dim i As Integer

  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) & """"

  28. AutoNumber_Exit:
  29. Exit Function

  31. AutoNumber_Err:
  32. AutoNumber = ""
  33. MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "自动编号出错"
  34. Resume AutoNumber_Exit
  35. End Function
复制代码
作者: andymark    时间: 2008-6-10 17:17
很实用的功能 [:12]
作者: laiguiyou    时间: 2008-6-10 17:27
支持 [:24]
作者: tmtony    时间: 2008-6-10 17:59
不能不支持一下!
作者: 红尘如烟    时间: 2008-6-10 18:13
奇怪，我在１楼的代码是直接复制过来的，最后错误处理那儿应该是AutoNumber=""的，怎么只显示Aut，改都改不了

作者: chenwm1973    时间: 2008-6-10 19:06
学习
[:50] [:50] [:50]
作者: liaug    时间: 2008-6-10 21:23
[:34] [:34] [:34]
作者: wang1950317    时间: 2008-6-10 22:46
学习！谢谢！[:50]
作者: tmtony    时间: 2008-6-11 00:55
复制到写字板,再复制过来是否可以?
作者: 红尘如烟    时间: 2008-6-11 01:32
站长老大,还是不行啊,我手动改过后不行,复制到记事本和写字板后再复制过来全都不行,是被屏蔽掉了,还是怎么回事,太奇怪了
作者: 879672112    时间: 2008-7-3 14:30
实用~！~
作者: yori2007    时间: 2008-7-8 09:03
[:50]
作者: goto2008    时间: 2008-7-8 19:44
[:24] [:50]
作者: 7777777    时间: 2008-8-7 12:14
dddddddd
作者: liaoliao    时间: 2008-8-8 00:14
红尘大器, 俺收了,就得回复.嘿嘿.[:45] [:45] [:45]
作者: chenlugen    时间: 2008-8-20 19:21
正需要....谢了,,,
作者: chenlugen    时间: 2008-8-20 19:40
要是能随日期变化编号就更好了,,,,美中不足...[:30]
作者: duomu    时间: 2008-8-20 20:06
不能不支持一下!
作者: fnsmydyang    时间: 2008-8-20 20:41
支持,值得收藏,谢谢了...
作者: 086-china    时间: 2008-8-21 09:15
很实用的功能
作者: ynjxw    时间: 2008-8-21 10:21
高,,,,,顶
作者: 盗到稻    时间: 2008-8-21 12:10
For i = 1 To Digit
strNumberFormat = strNumberFormat & "0"
Next
三行的改为一行代码
strNumberFormat  = String(Digit, "0")


这样又少了二行代吗了
作者: XWQ2000    时间: 2008-8-31 16:31
很实用的功能
作者: shanghejun    时间: 2008-9-5 11:34
标题: 回复 1# 的帖子
谢谢分享
作者: tanhong    时间: 2008-9-6 18:03
不错!收藏.
作者: 7777777    时间: 2008-9-9 10:29
收下，谢谢
作者: popo559    时间: 2008-11-19 09:38
支持一下!
作者: 668899    时间: 2008-11-19 14:53
11111111111
作者: sheandme0    时间: 2008-11-20 12:44
....................
作者: htlsb    时间: 2008-12-5 18:36
哈哈，找的就是它了，学习下
作者: 13555609005    时间: 2008-12-13 17:28
学习吓
作者: njy6000    时间: 2009-1-17 19:51
看看好东东.
作者: njy6000    时间: 2009-1-17 19:59
删除记录后能不能自动补号呀.
作者: coolabc    时间: 2009-2-10 10:16
恩，原本的太不使用了
作者: luhao    时间: 2009-2-18 19:54
look
作者: 021230ww    时间: 2009-3-10 09:39
look,look
作者: guzhonghua26    时间: 2009-3-14 17:48
学习一下，谢谢。
作者: jiayinlb    时间: 2009-4-9 09:57
学习
作者: mpc-long    时间: 2009-4-9 11:23
学习！谢谢
作者: yanwei82123300    时间: 2009-5-23 10:44
很实用的功能 [:12]
作者: chaojianan    时间: 2009-5-23 11:14
支持，学习下。
作者: yangzhesheng    时间: 2009-6-5 15:32
学习
作者: corot_liu    时间: 2009-6-9 14:09
谢谢分享
作者: jackysu78    时间: 2009-6-14 01:37
谢谢分享
作者: 相当板札    时间: 2009-6-15 12:21
学习学习
作者: lurong    时间: 2009-6-16 13:27
实用
作者: 坡芽歌书    时间: 2009-7-7 11:21
支持一下!
作者: chenyingfengsx    时间: 2009-7-9 16:24
dddddddd
作者: youchytan    时间: 2009-7-18 09:11
实用的功能
作者: winter_ice    时间: 2009-7-18 09:38
不能不支持一下!
作者: yujingchun    时间: 2009-7-18 16:20
支持一下!
作者: yujingchun    时间: 2009-7-18 16:20
学习！谢谢！[:
作者: yujingchun    时间: 2009-7-18 16:28
很实用
作者: yujingchun    时间: 2009-7-18 16:38
谢谢! 学习ing
作者: g7235723    时间: 2009-7-20 11:05
学习
作者: yaozi    时间: 2009-8-6 11:26
学习
作者: zhiyan    时间: 2009-8-7 16:45
很实用的功能
作者: huangyz_xy    时间: 2009-8-15 23:16
调用的时候怎么显示缺少变量或过程，不是模块的告警的！
作者: lmdx    时间: 2009-8-18 05:10
好东西！
作者: 5574916    时间: 2009-8-20 23:56
学习学习 ~谢谢分享
作者: yedaoan    时间: 2009-8-27 14:17
看看先
作者: linag516    时间: 2009-8-28 13:00
作者: Y9X    时间: 2009-9-9 09:12
下载参考
作者: snrvvfb    时间: 2009-9-10 09:20
下载来学习一下．
作者: cumtlaw    时间: 2009-9-22 16:07
看看。我正在找这个东西。
作者: winsign    时间: 2009-9-28 23:40
学习
作者: wdq    时间: 2009-9-29 11:45
作者: cnffmso    时间: 2009-10-1 09:29
实用的好东西，收藏了，谢谢分享
作者: fcghw    时间: 2009-10-9 17:24
支持一下
作者: supercai!    时间: 2009-10-18 12:51
很好很强大滴
作者: 13555609005    时间: 2009-11-4 21:09
作者: yuayua23    时间: 2009-11-4 22:35
作者: smileyoufu    时间: 2009-11-5 16:13
看看好东西
作者: klggd555    时间: 2009-11-20 17:33
学习一下
作者: sillysilly    时间: 2009-11-23 20:58
真是不错啊，呵呵
作者: liaoqiang234    时间: 2009-12-18 18:27
学习！谢谢
作者: 123shusheng    时间: 2010-1-11 21:28
sgrdhtdjfrjtyrfj
作者: sxb2007    时间: 2010-1-13 21:44
支持一下
作者: justnullit    时间: 2010-1-27 12:55
很实用的功能
作者: zzyzzg    时间: 2010-1-27 18:40
很实用的功能
作者: tszysun    时间: 2010-1-30 13:41
学习！谢谢！[:50]
作者: cumtlaw    时间: 2010-4-9 14:45
谢谢分享
作者: cumtlaw    时间: 2010-4-9 14:45
谢谢分享
作者: cumtlaw    时间: 2010-4-9 14:45
谢谢
作者: xiazaidj    时间: 2010-4-12 14:20
看一下,然后立刻收藏
作者: wxf16    时间: 2010-4-13 15:31
学习……
谢谢分享
作者: lupo    时间: 2010-4-15 10:32
实用方便的自定义函数，测试中。
作者: qxqjdy    时间: 2010-5-2 09:22
太奇怪了
作者: zhaofangyuan    时间: 2010-5-2 10:31
谢谢分享！
作者: icefox2008    时间: 2010-5-3 03:51
来学习一下，谢谢分享，大大们的无私让我等后辈很是感激
作者: 82077802    时间: 2010-5-3 05:57
自定义自动编号函数
作者: lp2lp2    时间: 2010-5-5 19:21
kankan
作者: 66364936    时间: 2010-5-6 21:14
作者: yihesmxx    时间: 2010-7-7 17:51
学习学习
作者: yihesmxx    时间: 2010-7-12 13:33
学习学习
作者: bbsliu    时间: 2010-10-15 10:41
牛啊，大大学习了。
作者: li08hua    时间: 2010-10-19 01:06
支持，谢谢！
作者: xiaomin_007    时间: 2010-10-19 09:41
感谢红尘如烟大侠啊
作者: shines    时间: 2011-1-14 12:39
谢谢分享
作者: lwb_hao    时间: 2011-1-28 16:09
好东东



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3