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

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