根据两个字段自动生成编号示例\Access双字段编号\Access多字段组合编号；Access自定义多字段编码

时　间:2013-01-18 09:17:57
作　者:风行   ID：16058  城市：江阴
摘　要:以 前缀一-前缀二-001 开始自动编号示例。
正　文:

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

附   件:

点击下载附件

图   示: