|
摘 要：在實際工作中，如果您采用了自動編號字段，當(dāng)刪除一條記錄時，自動編號將沒有連續(xù)性，而這時侯你可能需要連續(xù)值或是希望自動編號從某值開始，這時我們可以采用下面的代碼來實現(xiàn)。
正 文：
首先在模塊中定義下面的函數(shù)。
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
執(zhí)行下面代碼：
'tblCustomer是指表名 CustomerID是該表中的一個字段名
'下面代碼是將表tblCustomer的字段CustomerID的自動編號起始值從1000開始。
Call sSetAutoNumber("tblCustomer","CustomerID",1000)
編輯：北京信誠IT保姆IT外包部 http:// www.aboverow.cn www.xcit.com.cn |
當(dāng)前位置：
