[推荐]一句代码就搞定按日期自动编号的代码

520cwb

=========================================================================================

  Me.文本13 = Format(Date, "yyyymmdd") & Format(Nz(DMax("Right(退货单号, 4)", "台挂历退货主表", "mid(退货单号,1,8)='" & Format(Date, "yyyymmdd") & "'")) + 1, "0000")
==========================================================================================

    上述代码是本人在Access爱好者论坛上搜索并通过Kangking大哥的改写后而成的,在窗体中可用在绑定窗体和非绑定窗体上,非常方便.在此再次感谢Access爱好者论坛,并郑重感谢kangking大哥一直以来对本人的无私帮助![em04][em04][em04]

j13583

如果表记录行超10000，速度会严重的慢，为什么不可以将 日期 单号 ...分别存储不同字段，然后通过查询合并成一个字段？

[此贴子已经被作者于2006-3-25 11:04:30编辑过]

sszssz

[:32] [:32] [:32]