Office中国论坛/Access中国论坛

标题: [推荐]一句代码就搞定按日期自动编号的代码 [打印本页]

作者: 520cwb 时间: 2006-3-25 06:29
标题: [推荐]一句代码就搞定按日期自动编号的代码
=========================================================================================

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 时间: 2006-3-25 19:00
如果表记录行超10000，速度会严重的慢，为什么不可以将日期单号 ...分别存储不同字段，然后通过查询合并成一个字段？[attach]16655[/attach]

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

作者: sszssz 时间: 2008-12-14 13:45
[:32] [:32] [:32]

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