Office中国论坛/Access中国论坛

标题: （新问题，急救）如何自动给自定义序号补号 [打印本页]

作者: 小何 时间: 2008-4-2 10:25
标题: （新问题，急救）如何自动给自定义序号补号
我的自动序号是以年为单位的一个顺序号，代码如下：
Me.NO = Format(Date, "yyyy") & Format(Nz(Right(DMax("[NO]", "受托明细", "left([NO],4)='" & Format(Date, "yyyy") & " '"), 3)) + 1, "000")

目前发现当删除一条记录时，就会断号了而不会自动补号回去。

请大家帮我想想办法，如果当删除2008032号时，那么从2008033号开始到最后全部顺序号都提前一位数，也就是说将2008033补号到2008032，将2008034补到2008033，以此推理这样的一个序号如何做啊？

[ 本帖最后由小何于 2008-4-2 10:42 编辑 ]

作者: andymark 时间: 2008-4-2 11:16
在执行DMAX前应查检号码的连续性(前后者的之差为1, 大于1的代表存在断号)

作者: 小何 时间: 2008-4-2 13:36
我不知道怎么做,麻烦管理员能不能帮我修改一下啊?

作者: 小何 时间: 2008-4-2 15:30
不知道有没有人帮忙我修改一下啊

作者: 小何 时间: 2008-4-2 19:11
请高手们帮帮忙吧

作者: andymark 时间: 2008-4-2 22:57
供参考
http://www.office-cn.net/vvb/thread-60878-1-1.html

作者: andymark 时间: 2008-4-3 11:14
供参考

作者: wang1950317 时间: 2008-4-3 12:31
andymark版主的自定義函數真不錯啊！謝謝！收藏啦！

作者: goto2008 时间: 2008-4-3 14:12
学习一下。。。。[:24]

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