access創建自定義遞增自動編號(不固定位數)

2018-04-28 07:59:00
黃善超
原創
1269

有網友在使用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



多次數據添加後的,數據如錶所示:

    分享