Automated Compact and Repair

[LB79]

Hello,

I want to add a code to run when a database is closed that performs the Compact and Repair function.

I found the code listed below, but I having trouble making it work.
Also, if I can get this code working, does anyone know if I can prevent the database from reopening after this function?

Thanks

Public Sub CompactDB()
CommandBars("Menu Bar").Controls("Tools").Controls("Databaseutilities").Controls("Compact and repair database...").accDoDefaultAction
End Sub

 

[Kafrin]

Controls("Databaseutilitie s")

Try removing the space and see if it works then.

I don't about stopping the database reopening though.

 

[Rabbie]

You can select Compact on Close in your database Options. This will not reopen the the Database. Remember the database will only be compacted if no other user has the DB open.

 

[LB79]

Thats great!! Thanks very much