Compact Access 2000/XP Databases with one line of Code. Fast. Easy.

Compact Access Databases with one line of Code! "One line of Code", like this: ;-) CompactDB Database, ShowResume, Password or this example: CompactDB App.Path & "\Datos.mdb", True, "Joselo.11·#" Private Sub CompactDB_Click() If DB Is Nothing Then 'the database is Closed CompactDB App.Path & "\Datos.mdb", True, "Joselo.11·#" 'compact Else 'the database is open DB.Close 'close CompactDB App.Path & "\Datos.mdb", True, "Joselo.11·#" 'compact [Call your Routine to load database] 'Open database End If End Sub Works fine with Access 2000 and XP Actual Revision - Jan/20/2004 Jan/20/2004 · some Form changes. · fixed some variables declarations. (Variants in place of Strings). · added Compact Password protected databases. · added some Comments. · added some Code examples. · added a compress level indicator. Jul/25/2003 · Initial Release