Office中国论坛/Access中国论坛
标题:
在ACCESS中,怎么实现自定义的格式自动编号?
[打印本页]
作者:
grantliping
时间:
2003-5-27 17:17
标题:
在ACCESS中,怎么实现自定义的格式自动编号?
我建立了一个字段名,用于单据的单据编号,我想让每输入一条新的记录,自动按“单据类型-日期-×××”的格式生成单据编号,哪位高手有办法?
作者:
grantliping
时间:
2003-5-29 05:53
If IsNull([日期]) Then
Me.单据编号 = Null
Else
CKBM = Me.仓库编码
RQ = CKBM & Format([日期], "yyyymmdd")
ID = DMax("[单据编号]", "[进出单据]", "[单据编号] like '" & RQ & "???'")
If IsNull(ID) Then
Me.单据编号 = RQ & "001"
Else
AUTO_ID = RQ & Format(CStr(CInt(Right(ID, 3)) + 1), "000")
DJBH = AUTO_ID
Me.单据编号 = DJBH
End If
End If
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3