office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Access自定義自動編號 月份重新開始

2018-09-05 11:05:00
tmtony8
原創
8123

在論罎中,我們可以輕鬆搜索到自定義的自動編號函數。可以直接調用使用,如下:


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

 一箇用於自定義自動編號的通用函數(支持數字型、文本型編號,支持斷號重續)

高效的年月日的自動編號函數


但是有時需要設置每月都從頭開始,卽每月都重新開始編號,

如前麵四位前綴,二位年二位月+三位檔案號。卽後麵這三位檔案號隻要到下箇月自動斷號從001再開始。


月份自動重新編號詳細函數:

Public Function AutoNumber(Prefixal As String, Digit As Integer, FieldName As String, TableName As String) As String
    
    
    Dim strMaxID As Long
    Dim strNumberFormat As String
    Dim i As Integer
    

    strMaxID = Nz(DMax("Right( " & FieldName & "," & Digit & ")", TableName, "Mid(" & FieldName & ", Len('" & Prefixal & "') + 1, 4)=" & Format(Date, "yymm") & "")) + 1
    
    
    For i = 1 To Digit
        strNumberFormat = strNumberFormat & "0"
    Next
    AutoNumber = "" & Prefixal & Format(Date, "yymm") & Format(strMaxID, strNumberFormat) & ""
    

End Function



調用代碼:在窗體中添加一箇按鈕,其中,“bbbb”是前綴,“3”是後綴位數,“aa”爲字段名,“tbldte”是錶名

    CurrentDb.Execute "insert into tbldte(aa) values ('" & AutoNumber("bbbb", 3, "aa", "tbldte") & "')"

    分享