Cann't compact database

[Dou]

On the main form, I put a button to compact current database, the code:

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

I have referenced Microsft Office 11.0 Object Library, it still cann't work.
Why? Thanks

 

[Van T. Dinh]

Not sure but try:

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

HTH
Van T. Dinh
MVP (Access)

 

[shirley Lu]

Cann't run, Have any other way?
The error message is:

Invalid procedure or Parameter

Thanks

 

[Van T. Dinh]

Have you tried the accDoDefaultAction? This definitely works for A2000,
A2002 but I am not sure about A2003.

 

[Van T. Dinh]

Also, the desperate method is to use SendKeys but this has been out of
flavour since the bug with SendKeys in A97.

--
HTH
Van T. Dinh
MVP (Access)

Cann't run, Have any other way?
The error message is:

Invalid procedure or Parameter

Thanks

Not sure but try:

CommandBars("Menu Bar").Controls("Tools").Controls("Database

utilities").

_
Controls("Compact and repair database...").Execute

HTH
Van T. Dinh
MVP (Access)