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

在論罎中，我們可以輕鬆搜索到自定義的自動編號函數(shù)?？梢灾苯诱{(diào)用使用，如下：

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

 一箇用於自定義自動編號的通用函數(shù)（支持數(shù)字型、文本型編號，支持斷號重續(xù)）

高效的年月日的自動編號函數(shù)

但是有時需要設(shè)置每月都從頭開始，卽每月都重新開始編號，

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

月份自動重新編號詳細函數(shù)：

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

調(diào)用代碼：在窗體中添加一箇按鈕，其中，“bbbb”是前綴，“3”是後綴位數(shù)，“aa”爲字段名，“tbldte”是錶名

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