一行代码,实现带年度的自动编号-符鸿敏
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


一行代码,实现带年度的自动编号

发表时间:2011/9/6 10:47:46 评论(7) 浏览(7820)  评论 | 加入收藏 | 复制
   
摘 要:只需一行代码,就可实现带年度的自动编号。
正 文:

一行代码,实现带年度的自动编号 

  示例一,简单的年度加编号:  Me.ID = IIf(IsNull(DLookup("ID", "学生表", "Mid([ID], 1, 4) =" & "'" & Year(Date) & "'")),  Year(Date)  & "001",  Year(Date) &  Format(((Right(DLookup("max(ID)", "学生表", "Mid([ID], 1, 4) =" & "'" & Year(Date) & "'"), 3)) + 1), "000"))   

 示例二, 带特殊标识的年度加编号:Me.ID = IIf(IsNull(DLookup("ID", "订单表", "Mid([ID], 5, 4) =" & "'" & Year(Date) & "'")), "仪运稽[" & Year(Date) & "]" & "00001", "仪运稽[" & Year(Date) & "]" & Format(((Right(DLookup("max(ID)", "订单表", "Mid([ID], 5, 4) =" & "'" & Year(Date) & "'"), 5)) + 1), "00000"))   

照此,可以生成变化繁复的、适合自己所需的千万种 自动编号方法。

附件:

点击下载此附件


Access软件网交流QQ群(群号:198465573)
 
 相关文章
把自动编号设置成“当前年月日”+“四位数编号”的示例  【王樵民  2011/10/17】
可带前缀和后缀的自动编号函数  【wsl  2012/2/8】
高效的年月日的自动编号函数  【LiShiping  2012/8/18】
高效的自动编号函数  【网行者  2013/1/18】
【Access示例】子窗体按主窗体字段进行自动编号的2种方法示例  【漏蛧尐魚℡  2013/1/31】
 
 访客评论
2014/12/19木木森
赞一个,从你的代码里得到帮助解决了困扰好久的问题

2013/12/15zhbw
("ID", "学生表", "Mid([ID], 1, 4) = 的“1"代表什么?

2011/9/8符鸿敏
为解消 DT 的疑问,附件作了修改。

2011/9/8DT
为何编号不变化,(前缀名[2011]0001)

2011/9/8杜超
不错

2011/9/6麥田

总记录:6篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

符鸿敏

文章分类

文章存档

友情链接