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

多次數據添加後的，數據如錶所示：