两年份+五自然数生成编号简单示例

时　间:2013-10-16 22:25:26
作　者:沈军   ID：2469  城市：东莞
摘　要:应网友要求制作这个比较简单的自动编号处理过程示例，仅根据其要求两位年份+五位自然数构成的自动编号生成过程

正　文:

点击下载此附件

'自动编号生成处理过程
'格式：后两位年份+五位基本从1开始的顺序数
'使用方法单击按钮自动生成
Private Sub Command22_Click()
    Me.Recalc
    Dim sjNF As String, sjTJFS As Long
    sjNF = Format(Now(), "yy")
    sjTJFS = DCount("*", "本年单据查询")
    If Not IsNull(Me.ID) Then
        If Not IsNull(Me.编号) Then
            MsgBox "本项单据已编号，无法重新编辑！"
        Else
            If sjTJFS = 0 Then
                Me.编号 = CLng(sjNF & "00001")
            Else
                Me.编号 = DMax("编号", "报销单据流水单") + 1
            End If
            MsgBox "单据编号生成成功！"
        End If
    Else
        MsgBox "无法给空白记录编号，请先创建记录后再生成编号！"
    End If
End Sub