dim BaseDeDatos as string
BaseDeDatos= "Base.mdb"
'COMPACTAR
DBEngine.CompactDatabase BaseDeDatos, App.Path & "\Nueva.mdb", dbLangSpanish
'Compacto en otra base de datos (base de paso)
DoEvents
Kill BaseDeDatos
'Elimino base original
FileCopy App.Path & "\Nueva.mdb", BaseDeDatos
'Copio base de paso con nombre anterior
Kill App.Path & "\Nueva.mdb"
'Elimino base de paso
'REPARAR
DBEngine.RepairDatabase BaseDeDatos
Salu2 y felices fiestas!
