（新问题，急救）如何自动给自定义序号补号

小何

我的自动序号是以年为单位的一个顺序号，代码如下：
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

在执行DMAX前应查检号码的连续性(前后者的之差为1, 大于1的代表存在断号)

小何

我不知道怎么做,麻烦管理员能不能帮我修改一下啊?

小何

不知道有没有人帮忙我修改一下啊

小何

请高手们帮帮忙吧

andymark

供参考
http://www.office-cn.net/vvb/thread-60878-1-1.html

andymark

供参考

wang1950317

andymark版主的自定義函數真不錯啊！謝謝！收藏啦！

goto2008

学习一下。。。。[:24]