Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间: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





Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助