
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