office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access创建自定义递增自动编号(不固定位数)

2018-04-28 07:59:00
tmtony8
原创
12945

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



多次数据添加后的,数据如表所示:

    分享