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

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

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

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

自定義自動(dòng)編號(hào)函數(shù)：

Function AutoNumerical(strQz As String, FieldName As String, TableName As String)
    
    Dim Auto As String
    
    Auto = Nz(DMax("val(mid(編號(hào)," & Len(strQz) + 1 & "))", TableName)) + 1
    AutoNumerical = strQz & Auto
    

End Function

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

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

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