Datenbank komprimieren und reparieren

Hallo,
ich würde gern in Access o. g. Lauf automatisieren.
Kann mir da jemand helfen?

DANKE und Gruß
Sylvia

Unter EXTRAS - OPTIONEN - ALLGEMEIN kann man ankreuzen: beim Schliessen komprimieren

In VBA (Verweis Microsoft Jet and Replication Objects setzen!)

Sub RepairAndCompare (name as String)

DIM je AS NEW JRO.JetEngie

je.CompactDatabase „Data Source=“ & name & „;“, _
„Data Source=“ & name & „.bak“ & „;“

Kill name
Name name „.bak“ As name

End Sub

ab Access 2002 (XP):

Application.CompactDatabase („Ursprungsdatei“,„Zieldatei“)