access創(chuàng)建自定義遞增自動編號（不固定位數(shù)）

有網(wǎng)友在使用access通用平臺中用到自動編號。但是平臺定義的所有自動編號格式是前綴+固定位數(shù)的編號。

這位網(wǎng)友希望的格式是前綴+編號（位數(shù)是不固定的）。即自然數(shù)1向上遞增到2位數(shù)，就是自然增長.如C-1....到C-10

如圖所示，每一次添加數(shù)據(jù)都會遞增1，如此類推

自定義自動編號函數(shù)：

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

在窗體中調(diào)用該函數(shù)

Private Sub Form_Current()    
    Me.編號 = AutoNumerical("FC", "編號", "tbl1")    
End Sub

多次數(shù)據(jù)添加后的，數(shù)據(jù)如表所示：