[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”查询，临时调用。