Create a button that runs "Compact and Repair Database"

[Silvera]

The basic rule is:

"You cannot compact the open database by running a macro or Visual Basic code.
Instead of using a macro or code, dick the File tab and then dick Compact and Repair Database."

I found by searching by the title above:

"This is truth, but this is not whole truth ;-) Following VBA code compacts
current database:

CommandBars.FindControl(id:=2071).accDoDefaultActi on

Krzysztof Pozorek [MVP], Dec 20, 2007"



My problem is how to implement this. I tried using a button to execute this code but it is of course the code was within Visual Basic and I got the basic rule message.

Any idea how he accomplished it or was that only working in 2007?

[June7]

Fairly common topic. Search forum. Here is one https://www.accessforums.net/access/...sue-53698.html

[Silvera]

Thank you, so split or at the end or not at all. My purpose is to get these simple databases running smoothly. I've seen DBs that do not allow the user to see the ribbon. I would like to do that and have a convenient way for someone to C&R. Currently I have a small note at the bottom of what I call the main menu, which is the opening screen, which reads Note occasionally go to "Database Tools" [In the Ribbon] and click on "Compact and Repair Database".

[June7]

Review https://www.accessforums.net/access/...ers-48543.html

[Missinglinq]

Somewhere in the links June7 gave you I suspect that there will be a caveat, it being that you can only do a C & R, on a multi-user database, if no other users are working on it.

Additionally, before doing a C & R you should always make a backup copy of the file, as compacting, itself, is a recognized cause of corruption and data loss!

And I simply have to ask...why do you feel the need to give end users the ability to do this?

Linq ;0)>