Compact and Repair Database Using VBA 3

[JesseH]

I would like to 'compact and repair' the database using VBA code so that I would not have to rely on the user to do this. Can anybody provide the code necessary to do this.

Thanks in Advance.

JesseH

 

[PHV]

Depending of the version of access you may choose the option of compacting the database on close.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[JesseH]

Thanks PHV, we are using Access 2000. The database is too unwieldy to compact on exit. I was trying to compact weekly.

 

[drctx]

you could setup a scheduled task to run and use the /compact switch to compact the database.

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "C:\Documents and Settings\DC57873\Desktop\Database.mdb" /compact

 

[combo]

Since office (access) 2000 it is possible to use hidden interface IAccessible to compact DB on demand, by code:

Sub CompactThisDB()
Dim conCompact As Office.CommandBarControl
Set conCompact = CommandBars.FindControl(Id:=2071)
conCompact.accDoDefaultAction
End Sub

combo