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

重置自动编号,并从自定义值开始

时 间:2004-04-12 00:00:00
作 者:竹笛   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:在实际工作中,如果您采用了自动编号字段,当删除一条记录时,自动编号将没有连续性,而这时侯你可能需要连续值或是希望自动编号从某值开始,这时我们可以采用下面的代码来实现。

正 文:

首先在模块中定义下面的函数。

Sub sSetAutoNumber(strTableName As String, strPKField As String, lngStartNumber As Long)
    On Error GoTo E_Handle
    Dim db As Database
    Set db = DBEngine(0)(0)
    db.Execute "INSERT INTO [" & strTableName & "] ([" & strPKField & "]) valueS(" & lngStartNumber - 1 & ");"
    db.Execute "DELETE * FROM [" & strTableName & "];"
sExit:
    On Error Resume Next
    Set db = Nothing
    Exit Sub
E_Handle:
    MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.Number
    Resume sExit
End Sub 

 

执行下面代码:

'tblCustomer是指表名 CustomerID是该表中的一个字段名

'下面代码是将表tblCustomer的字段CustomerID的自动编号起始值从1000开始。

Call sSetAutoNumber("tblCustomer","CustomerID",1000)



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

常见问答:

技术分类:

相关资源:

专栏作家

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