按类别自动编号函数AccHelp_AutoSortID

时　间:2009-03-24 16:12:11
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:AccHelp_AutoSortID函数，仅适合Access开发平台。
正　文:

Function AccHelp_AutoSortID(prefixion As String, IDlength As Integer, tblName As String, fldName As String) As String
'功能：获得某表某字段某类别的下一个编号，在最后一个编号上加1,需引用DAO3.6
'修改历史：2007/4/30
'说明：
'prefixion 编码前缀,如果不需要前缀，可用""代替，如AccHelp_AutoSortID("",5,"表名称","字段名称")
'IDlength 编码位数
'tblName 表名称
'fldName 自增序号的字段名称
'tblName 是指表的名称

使用方法：

debug.print AccHelp_AutoSortID(Me.provID, 3, "tblCodeCity", "cityID")

参考示例：点击这里下载 (在菜单：表/查询-->001按类别自动编号)