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

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

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") & "')"