Jag har en Access-databas som jag vill komprimera innan jag säkerhetskopierar den. Detta vill jag ska ske i "runtime" när jag klickar på en formulärknapp.
Nu undrar jag hur kan VB-koden se ut för att åstadkomma detta?

/Gunnar

Lägg till en referens till "Microsoft Jet and Replication Objects 2.6 Library". Du kan nu komprimera och säkerhetskopiera i ett och samma steg:
<code>
Dim JetEngine As JRO.JetEngine
Set JetEngine = New JRO.JetEngine
JetEngine.CompactDatabase "C:\db1.mdb", "C:\db1_" & Year(Date) & Month(Date) & Day(Date) & "_" & Hour(Date) & Minute(Date) & Second(Date) & ".mdb"
</code>