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


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

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

点击下载此附件

'自动编号生成处理过程
'格式:后两位年份+五位基本从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】
 
 访客评论
2013/10/17杨汉宝
此字段如果是文本型可塑性会更大,可以生成各种不同字头的编号,当然处理方法会有所不同

2013/10/17杨汉宝
当前编号是整型数据类型字段,只能保存纯数字,但可以通过修改这个字段或所在的控件格式属性也可以达到你提的要求。格式属性="PA"0000000

2013/10/17海田
谢谢分享!如果能自动编号及编号前加个字头如"PA"就更好了。

总记录:3篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

杨汉宝

文章分类

文章存档

友情链接