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

[UMV平台]活学活用UMV平台中的acchelp_autoid函数

时 间:2007-10-16 14:41:20
作 者:AskHeart   ID:17  城市:秦皇岛
摘 要:UMV平台自增编号的另一种方案(前缀名根据多个字段组合)
正 文:

针对UMV平台的自增编号函数,在前缀复杂的情况下,如何实现自增编号呢,请参考下列源代码:

Private Sub cmdTS_ButtonClick(ByVal Button As Object)
'若必输项没输入数据时提醒操作员
    If IsNull(Me.bmid) Then
        MsgBox "请输入部门名称", vbCritical, "提示"
        Me.bmid.SetFocus
        Exit Sub
    End If
    '功能:根据bmid给采报日报自动编号
    Dim CodeIp As String
    Dim preF As String
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    '使khID文本框有效,写入数据
    Me.khId.Enabled = True
    Me.khId.SetFocus
    '生成编号前缀,格式为BM20070101,即年四位,月两位,日两位
    preF = Left(Me.bmid, 2)
    strSQL = "select * from tblwldw where left(khid,2) = '" & preF & "'"
    Set qdf = CurrentDb.QueryDefs("qryXlsData")
    qdf.sql = strSQL
    CodeIp = acchelp_autoid(preF, 4, "qryXlsData", "khid")
    Me.khId = CodeIp
    Me.khmc.SetFocus
    '使用khID文本框无效,以防止操作员误修改数据
    Me.khId.Enabled = False
End Sub

背景介绍:采购日报编号规划是:部门编码+6位数年月。

使用前提:在系统中添加一名称为“qryXlsData”查询,临时调用。

 

 

 



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

常见问答:

技术分类:

相关资源:

专栏作家

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