在ACCESS中，怎么实现自定义的格式自动编号？

grantliping

我建立了一个字段名，用于单据的单据编号，我想让每输入一条新的记录，自动按“单据类型－日期－×××”的格式生成单据编号，哪位高手有办法？

grantliping

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