求助：关于自动遍号

xjzhw1

如何使表的自动遍号按照指定方式递增，如1-1，1-2，1-3……

paul16

1、自动编号
Private Sub NewId()
Dim ID, date2 As String
If IsNull([客户ID]) Or IsNull([日期]) Then
   Me.单据编号 = Null
Else
   date2 = "CG" & Format([日期], "YYYYMM")
   ID = DMax("[单据编号]", "[出入库表]", "[单据编号] Like '" & date2 & "???'")
   If IsNull(ID) Then
      Me.单据编号 = date2 & "001"
   Else
      Me.单据编号 = date2 & Format(CStr(CInt(Right(ID, 3)) + 1), "000")
   End If
End If
End Sub

Access爱好者

可以用宏的方式实现吗？