三位数自动递增编号函数_access创建自定义递增自动编号（不固定位数）

有网友在使用access通用平台中用到自动编号。但是平台定义的所有自动编号格式是前缀+固定位数的编号。

这位网友希望的格式是前缀+编号(位数是不固定的)。即自然数1向上递增到2位数，就是自然增长.如C-1....到C-10

如图所示，每一次添加数据都会递增1，如此类推

自定义自动编号函数：

Function AutoNumerical(strQz As String, FieldName As String, TableName As String)

Dim Auto As String

Auto = Nz(DMax("val(mid(编号," & Len(strQz) + 1 & "))", TableName)) + 1

AutoNumerical = strQz & Auto

End Function

在窗体中调用该函数

Private Sub Form_Current()

Me.编号 = AutoNumerical("FC", "编号", "tbl1")

End Sub

多次数据添加后的，数据如表所示：