返回首页
当前位置: 主页 > 其他教程 > Access教程 >

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

时间:2012-02-18 01:12来源:Office教程学习网 www.office68.com编辑:麦田守望者

摘 要:在实际工作中,如果您采用了自动编号字段,当删除一条记录时,自动编号将没有连续性,而这时侯你可能需要连续值或是希望自动编号从某值开始,这时我们可以采用下面的代码来实现。

正 文:

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

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)

顶一下
(2)
100%
踩一下
(0)
0%
标签(Tag):access access数据库 数据库 access视频教程 access教程 access技巧 access下载
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣