Reset MS Access AutoInc Field

[David de Argentina]

Save as "Reset_Autoinc" into the Functions Folder

Code: Select all

{NeoBook Function}
Version=5.80
Language=NeoBook
Param=[%1]|Text|Database ID
Param=[%2]|Text|Table Name
Param=[%3]|Text|AutoInc Field
{End}
dbpExecSQL "[%1]" "SELECT * INTO TempTable FROM [%2];" ""
dbpOpenTable "[%1]" "TempTable" ""
dbpDropField "[%1]" "TempTable" "[%3]"
dbpAddField "[%1]" "TempTable" "[%3]" "AutoInc"
dbpDropTable "[%1]" "[%2]"
dbpExecSQL "[%1]" "SELECT * INTO [%2] FROM TempTable;" ""
dbpDropTable "[%1]" "TempTable"

Usage:

Code: Select all

Call "Reset_AutoInc" "DB" "TableName" "ID"

Enjoy !
David de Argentina

[dpayer]

Save as "Reset_Autoinc" into the Functions Folder
Enjoy !
David de Argentina

David, just to be clear, is the goal of this function to take an Access DB table, delete/modify the autoincrement column and then renumber from 1 (or from 0) the records in that column?

David P.