自动编号前缀二位年二位月加三位编号，怎样操作可以使每个月的编号都从001开始？

写个自动编号函数 如

‘自动编号函数
'Domain 表名/查询名
'Expr 编号字段名
'Digit 编号位数（数字顺序号部分）
'Prefixal 编号前缀，可以是任意字符
Function AutoNumberStr(Domain As String, Expr As String, Digit As Long, Optional Prefixal As String) As String
    AutoNumberStr = Nz(DMax(Expr, Domain, Expr & " Like '" & Prefixal & "*'"))
    AutoNumberStr = Val(Mid(AutoNumberStr, Len(Prefixal) + 1)) + 1
    AutoNumberStr = Prefixal & Format(AutoNumberStr, String(Digit, "0"))
End Function