根据UMV 软件的灵感和样式做了自动编号管理，因为在UMV软件中只是给了个函数，所以特此还原了部分自动编号的功能作为可移植的窗体和函数方便使用。此类管理的好处是可以把众多的表的编号规则统一管理。所有自动编号通过在编号规则窗体填好编号的规则后，调用自动编号函数进行自动编号处理，非常方便。

'***********************************************************
'程序功能：本程序是用来配合自动编号管理的窗体完成自动编号
'
'程序名称：自动编号
'
'程序参数：输入编号规则名称
'
'使用范围：适合所有access
'
'使用范例：直接在程序中调用即可  rs!序号=自动编号（表名_序号[规则名称]）
'
'程序作者：月皓星隐
'
'编外的话：为了方便查看，所以变量用中文的
'
'编写时间：2015-09-01
'************************************************************


Function 自动编号(ByVal 规则名称 As String)
  
Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
 
Dim 循环次数 As Integer
Dim 日期前缀 As String
Dim 流水号 As Long
Dim 流水号后缀 As String
 
'1.先根据规则名称找到记录
Set cn = CurrentProject.Connection
rs.Open "自动编号管理", cn, adOpenKeyset, adLockOptimistic
rs.Filter = "[规则名称]='" & 规则名称 & "'"
 
'2.根据情况进行编号
If rs.EOF or rs.BOF Then MsgBox "没有有效的规则，请确定是否规则名称输入正确": Exit Function

     If IsNull(rs!最后编号) Then
        流水号 = 1
    Else
        流水号 = Val(Right(rs!最后编号, rs!顺序号位数)) + 1
    End If
 
For 循环次数 = 1 To rs!顺序号位数
 流水号后缀 = 流水号后缀 & "0"
Next 循环次数
 
'2.1有日期形式加入的情况
If IsNull(rs!日期格式) = False Then
    日期前缀 = Format(Now(), rs!日期格式)
    自动编号 = rs!编号前缀 & 日期前缀 & Format(流水号, 流水号后缀)
    rs!最后编号 = 自动编号
    rs.Update
Else
'2.2没有日期加入编号的情况
     自动编号 = rs!编号前缀 & Format(流水号, 流水号后缀)
     rs!最后编号 = 自动编号
     rs.Update
    
End If
Set rs = Nothing
Set cn = Nothing
 
End Function

比如我输入了一个规则 规则名为：’表1_ID‘ ,编号头为’NNN‘，流水号为4位数，当我增加数据时，自动编号根据规则就编写了NNN0001的编号。其他详细的代码见附件，不多赘述了

附   件:

点击下载此附件