Access自定義自動(dòng)編號(hào) 月份重新開(kāi)始

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

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

 一個(gè)用于自定義自動(dòng)編號(hào)的通用函數(shù)（支持?jǐn)?shù)字型、文本型編號(hào)，支持?jǐn)嗵?hào)重續(xù)）

高效的年月日的自動(dòng)編號(hào)函數(shù)

但是有時(shí)需要設(shè)置每月都從頭開(kāi)始，即每月都重新開(kāi)始編號(hào)，

如前面四位前綴，二位年二位月+三位檔案號(hào)。即后面這三位檔案號(hào)只要到下個(gè)月自動(dòng)斷號(hào)從001再開(kāi)始。

月份自動(dòng)重新編號(hào)詳細(xì)函數(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)用代碼：在窗體中添加一個(gè)按鈕，其中，“bbbb”是前綴，“3”是后綴位數(shù)，“aa”為字段名，“tbldte”是表名

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