关于用acchelp_autoid函数创建项目序号的问题

狼挤天涯　发表于：2012-12-11 22:37:12 　

复制

如图，我想在一张表中存储不同类型的项目，合同年度“2013”、项目类型“HP”和签订类型“Q”都是要根据情况改变的

然后项目ID生成了，但发现一个问题：

之前存在的ID是：2013HPY001

我现在需要重新生成的是2013HPQ001而不是如图所示的2013HPQ002，

能否让此函数检查“合同年度”“项目类型”“签订类型”三个项目ID组成部分？

Top

狼挤天涯发表于：2012-12-11 22:40:13

代码：

Private Sub HeTH_GotFocus()
Dim hthstr As String
Dim i As String
hthstr = Me.htnd & Me.xmlx & Me.qdlx
i = acchelp_autoid(hthstr, 3, "tbl_xmjbxx", "xmid")
Me.XMID = i
End Sub

Top

风行发表于：2012-12-11 23:04:00

Private Sub HeTH_GotFocus()
Me.XMID = 自动编号(Nz(Me.htnd & Me.xmlx & Me.qdlx), "tbl_xmjbxx", "xmid", 3)

End Sub

Private Function 自动编号(前缀 As String, 表名称 As String, 编号字段名称 As String, 位数 As Long) As String
    自动编号 = Nz(DMax(编号字段名称, 表名称, 编号字段名称 & " Like '" & 前缀 & "*'"), 0)
    自动编号 = Val(Right(自动编号, 位数)) + 1
    自动编号 = Format(自动编号, String(位数, "0"))
    自动编号 = 前缀 & 自动编号
End Function

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

[5分]关于用acchelp_autoid函数创建项目序号的问题