Office中国论坛/Access中国论坛

标题: 自动编号的问题 [打印本页]

作者: weiwei3990 时间: 2003-7-13 01:00
标题: 自动编号的问题
我想有自动编号，标式为“YYYYMMDDXXX”，YYYY为年，MM为月，DD为日，XXX为当天的序列号，怎么实现啊？

作者: 徐阿鹏 时间: 2003-7-13 16:58
自己编程序解决

作者: 徐阿鹏 时间: 2003-7-13 17:00
标题: 给你个代码例子看看
[attach]1136[/attach]

作者: goodcash 时间: 2003-7-13 20:34
为什么看不明白你的例子啊?

作者: 徐阿鹏 时间: 2003-7-14 20:01
要看看vba的代码啊！

作者: 小白 时间: 2003-7-14 23:59
你的VBA代码在哪里呀？找不到

作者: 徐阿鹏 时间: 2003-7-15 02:06
看看这个例子

作者: 徐阿鹏 时间: 2003-7-15 02:08
[attach]1156[/attach]
不行把你的程序发上来，我帮你改

作者: weiwei3990 时间: 2003-7-17 02:29
徐大侠可能没有看明白，我要的不是这种
要求前面的8位是日期，而后面的3位是当天的序列号。

作者: qianbocz 时间: 2003-7-17 04:31
我也碰到这种情况,请帮忙解决.谢谢!

作者: weiwei3990 时间: 2003-7-29 18:53
标题: 我自己解决了这个问题，但又有了个新问题
我已经解决了这个问题，但又出了一个新的问题
在我已经解决的方法中，是按当前的日期来生成编号，但有可能我会在今天录入前几天的数据，因此我想用输入的日期来决定自动生成的编号，而那天可能有，也可能没有数据，希望大家能帮忙解决一下
[attach]1276[/attach]

作者: Airin 时间: 2003-7-30 02:25
編號產生的結構可以如下﹕年月日+編號
例﹕20030729001
20030729002
20030730001
也就是誰先節選出前8位相同的數﹐再判斷最大值﹐再最大值加1

作者: 小白 时间: 2003-7-30 23:19
把代码改成这样试试：
TODAYFIRST = Format(Year(DLookup("日期", "自动排号", "[序号]=dmax('序号','自动排号')")), "0000") & Format(Month(DLookup("日期", "自动排号", "[序号]=dmax('序号','自动排号')")), "00") & Format(Day(DLookup("日期", "自动排号", "[序号]=dmax('序号','自动排号')")), "00") & "001"

作者: weiwei3990 时间: 2003-7-31 00:16
Airin说的不太清楚，能不能在原来的例子上改一改再传上来，谢谢了！

作者: dxlz 时间: 2003-7-31 14:59
如果最大值到了999回返回001吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)