两年份+五自然数生成编号简单示例-沈军
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2013/10/16 22:25:26 评论(3) 浏览(6860)  评论 | 加入收藏 | 复制
   
摘 要:应网友要求制作这个比较简单的自动编号处理过程示例,仅根据其要求两位年份+五位自然数构成的自动编号生成过程
正 文:

点击下载此附件

'自动编号生成处理过程
'格式:后两位年份+五位基本从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群(群号:198465573)
 
 相关文章
[access查询]对竹笛先生的[示例]查询中自动编号的修改   【wqm099  2010/9/1】
【Access源码】分组自动编号\筛选数据后自动分组编号的示例\分...  【麥田  2011/7/26】
【Access源码示例】根据主号生成子编号示例  【金宇  2012/11/12】
日期/月份为变量的自动编号(自动续号)函数  【网行者  2013/7/14】
数据库编号递增,补回中断编号   【周芳(转)  2013/9/24】
常见问答
技术分类
相关资源
文章搜索
关于作者

沈军

文章分类

文章存档

友情链接