Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Reset Autonumber Field 5
- Thread starter lshields
- Start date
ZmrAbdulla
Technical User
Do a compact & repiar
TOOLS > DATABASE UTILITIES > ....
________________________________________
Zameer Abdulla
Visit Me
There is only one perfect child in this world. Every mother has it.
TOOLS > DATABASE UTILITIES > ....
________________________________________
Zameer Abdulla
Visit Me
There is only one perfect child in this world. Every mother has it.
-
5
- #3
flyover789
Programmer
you don't have to do the compact/repair thing. you can do it during runtime using the following code:
if your autonumber field (in the code I call it [ID]) is the primary key in yourtable, use:
if it's not the primary key, use:
if you don't wish to index the ID field at all, use:
hth,
fly
[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]
Martin Serra Jr.
[blue]Shared Database_Systems and _Applications across all Business_Areas[/blue]
if your autonumber field (in the code I call it [ID]) is the primary key in yourtable, use:
Code:
Function resetautonumber()
DoCmd.RunSQL "ALTER TABLE yourTable DROP CONSTRAINT [ID];"
DoCmd.RunSQL "ALTER TABLE yourTable DROP COLUMN [ID];"
DoCmd.RunSQL "ALTER TABLE yourTable ADD COLUMN [ID] COUNTER CONSTRAINT [ID] PRIMARY KEY;"
End Functionif it's not the primary key, use:
Code:
Function resetautonumber()
DoCmd.RunSQL "ALTER TABLE yourTable DROP CONSTRAINT [ID];"
DoCmd.RunSQL "ALTER TABLE yourTable DROP COLUMN [ID];"
DoCmd.RunSQL "ALTER TABLE yourTable ADD COLUMN [ID] COUNTER CONSTRAINT [ID] UNIQUE;"
End Functionif you don't wish to index the ID field at all, use:
Code:
Function resetautonumber()
DoCmd.RunSQL "ALTER TABLE yourTable DROP COLUMN [ID];"
DoCmd.RunSQL "ALTER TABLE yourTable ADD COLUMN [ID] COUNTER;"
End Functionhth,
fly
[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]
Martin Serra Jr.
[blue]Shared Database_Systems and _Applications across all Business_Areas[/blue]
ZmrAbdulla
Technical User
That was a fantastic reminder
Thank you.
________________________________________
Zameer Abdulla
Visit Me
A child may not be able to lift too much.
But it can certainly hold a marriage together
Thank you.
________________________________________
Zameer Abdulla
Visit Me
A child may not be able to lift too much.
But it can certainly hold a marriage together
- Status
