voila une petite procédure pour compacter ta base dans ton programme
un impératif
il faut que ta base soit fermée
If Dir("s.mdb") <> "" Then Kill "s.mdb" DBEngine.CompactDatabase "TA_BASE.mdb", "s.mdb", dbLangGeneral Kill "TA_BASE.mdb" DBEngine.CompactDatabase "s.mdb", "TA_BASE.mdb", dbLangGeneral Kill "s.mdb"
|