Delete Records from Table then Append with Autonumber 1

[jrmiv]

I need to delete the records from a table before appending the new results. The table has an autonumber which also needs to be reset. I am currently having to manually delete the records and then compacting and repairing the database to reset the autonumber. Any help would be greatly appreciated.

The Table Name is Document Number and the fields are:
*Document (Autonumber)
*Whse
*Location
*Kit Qty
*Kit
*Kit Desc
*Kit Lot
*Prod Cls
*Minor Cls

 

[PHV]

What about this VBA code ?
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [Document Number]"
DoCmd.RunSQL "ALTER TABLE [Document Number] ALTER COLUMN Document COUNTER(1,1)"
DoCmd.SetWarnings True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jrmiv]

Thanks PHV! This code was great...jrmiv