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/)