Compactar en Access
Hola drsefus, soy simbadelmari en todoexpertos. Tengo un problema con el código para compactar una base de datos. Estoy utilizando el siguiente código pero no me funciona.
-Application.CloseCurrentDatabase
-Dim NombreBaseDatos As String
-NombreBaseDatos = CurrentDb().Name
-DBEngine.CompactDatabase NombreBaseDatos, NombreBaseDatos
-MsgBox "La Base de Datos ha sido compactada"
¿Serías tan amable de orientarme en esta tarea y decirme en qué me equivoco?.
Muchas gracias
-Application.CloseCurrentDatabase
-Dim NombreBaseDatos As String
-NombreBaseDatos = CurrentDb().Name
-DBEngine.CompactDatabase NombreBaseDatos, NombreBaseDatos
-MsgBox "La Base de Datos ha sido compactada"
¿Serías tan amable de orientarme en esta tarea y decirme en qué me equivoco?.
Muchas gracias
Respuesta de drsefus
1
1) Para compactar una base de datos necesitas tenerla abierta en modo exclusivo.
2) Una BD no se puede compactar a sí misma. (Lo más habitual es que tengas los datos en otra BD, entonce sí puedes, pero recuerda el punto 1).
3) Existe un truco para compactar la base de datos activa que es enviar (sendkeys) la combinación de teclas correspondientes a escoger la opción Repararar/Compactar la BD que tienes abierta en ese momento, porque como habrás visto eso access sí lo hace desde la BD activa, pero también la tienes que tener abierta en modo exclusivo.
2) Una BD no se puede compactar a sí misma. (Lo más habitual es que tengas los datos en otra BD, entonce sí puedes, pero recuerda el punto 1).
3) Existe un truco para compactar la base de datos activa que es enviar (sendkeys) la combinación de teclas correspondientes a escoger la opción Repararar/Compactar la BD que tienes abierta en ese momento, porque como habrás visto eso access sí lo hace desde la BD activa, pero también la tienes que tener abierta en modo exclusivo.
