Compactar BD Access desde otra aplicacion Access

cloack
23 de Febrero del 2004
Hola. Tengo una base de datos en Access dividida, por un lado los formularios, informes... y por otro los datos. ¿Como puedo hacer para compactar la base de datos que contiene los datos desde un formulario de la BD de los programas? La idea es hacer un sistema de copia de seguridad, que de paso compacte la base de datos cada vez que se ejecute. Muchas Gracias

cloack
23 de Febrero del 2004
Ya lo tengo. Venia en la ayuda del Access ;->
Por si le interesa a alguien es una cosa asi:

Dim db As Database
Dim nomdbO, nomdbC As String
nomdbO = "C:BDOrigen.mdb"
nomdbC = "A:BDDestino.mdb"
Set db = OpenDatabase(nomdbO)
If Dir(nomdbC) <> "" Then _
Kill nomdbC
'Cierro la base de datos origen
db.Close

' Esta instrucción crea una versión compactada de
' la base de datos origen en otra destino
DBEngine.CompactDatabase nomdbO, nomdbC