Private Sub 前缀一_AfterUpdate()
    前缀二_AfterUpdate
End Sub

Private Sub 前缀二_AfterUpdate()
    Me.客户ID = 自动编号(Nz(Me.前缀一 & "-" & Me.前缀二 & "-"), "tbl客户", "客户ID", 3)  ' 客户ID： "前缀一-前缀二-001"
End Sub

Private Function 自动编号(前缀 As String, 表名称 As String, 编号字段名称 As String, 位数 As Long) As String
    自动编号 = Nz(DMax(编号字段名称, 表名称, 编号字段名称 & " Like '" & 前缀 & "*'"), 0)
    自动编号 = Val(Right(自动编号, 位数)) + 1
    自动编号 = Format(自动编号, String(位数, "0"))
    自动编号 = 前缀 & 自动编号
End Function

附   件:

点击下载附件

图   示: