MSAccess database comprimeren vanuit een Module/Macro

[anoniem]

Op verschillende manieren getracht de actieve database vanuit een module ervan te comprimeren: lukt niet omdat de CompactDatabase methode eist dat de database gesloten is..... maar bijv in Access97 kun je via de menu structuur: Extra->Databasehulpprogramma's->Database comprimeren lukt e.e.a dus prima!!!! Hoe doe je dit dus nu vanuit een Macro/Module van de actieve database????

[anoniem]

Als je dat doet vanuit het menu, dan sluit hij hem op. Kan je niet gewoon het beste een snelkoppeling doen met als optie /compact.

[anoniem]

Je zult toch echt eerst moeten zorgen dat iedereen uit de database is. Om te comprimeren moet je de database exclusief kunnen locken en dat gaat niet zolang er nog iemand in zit. Als het een singleuser database is is het natuurlijk eenvoudig genoeg. Dan sluit je gewoon de database en kun je hem daarna comprimeren. [code:1:fa4ebbfff3] 'sluit database <jouw database>.Close 'Of, als je datacontrols gebruikt, in een klap alle databases dichtgooien Dim cntControl As Control Dim dbfDataBase As Dao.Database For Each frmForm In Forms For Each cntControl In frmForm.Controls If TypeOf cntControl Is Data Then Set dbfDataBase = cntControl.Database dbfDataBase.Close End If Next cntControl Next frmForm 'En dan: DBEngine.CompactDatabase <naam oude db>, <naam nieuwe db>, , , ";PWD=<eventueel password>" [/code:1:fa4ebbfff3]