Compact and repair using VBA

[Dave]

Hi

Can someone tell me what the VBA is if I want to start off a compact and
repair. I want to put it behind a button on a form.

Thanks for any help

Dave

 

[AB]

This function will compact and repair

Function CompactDatabase()

CommandBars("Menu Bar").Controls("Tools").Controls("Database Utilities"). _
Controls("Compact and repair database..."). _

accDoDefaultAction

End Function

 

[Chris Reveille]

You cannot compact the database you have open from code.
You can check the "Compact on Close" check box in the
tools/options area

Chris

 

[Dave]

Thanks AB.
That worked just great

Dave

This function will compact and repair

Function CompactDatabase()

CommandBars("Menu Bar").Controls("Tools").Controls("Database Utilities"). _
Controls("Compact and repair database..."). _

accDoDefaultAction

End Function

 

[Dave]

Thanks for reply Chris. AB's method seems to work though.

Dave