Using VBA to compact a Dbase

[davisto01]

In VBA:
How would I go about compacting the entire database after "DELETE * FROM Update_Table1"-ing thousands of records?
Is there a simple command?

Thanks
TD

 

[zevw]

Use this function

DBEngine.CompactDatabase "Northwind.mdb", "NwindKorean.mdb"

 

[davisto01]

Do you have a full sample? There are about 4 of 5 arguments and I don't quite see how they all peice into the subroutine.

 

[zevw]

This Command works fine.

It compacts the database into a new database.

Essentaily Microsoft Comapcts the Database to db1.mdb and then renames it to the current name.

I ran this and then close the Database rename the compacted database to the current name and then open it again with the same script.