Error al compactar y reparar base de datos access 2003

Estoy utilizando un código para reparar y compactar la base de datos desde la aplicación y al ejecutarla me da un error aún teniendo activado la referencia Microsoft Jet and Replication Objects 2.6 Library y me da este error

este es el código

Private Sub Form_Close()
' Compactar una base de datos con ADO
Dim sDBTmp As String
Dim je As JRO.JetEngine
'
On Error GoTo ErrCompactar
'
Set je = New JRO.JetEngine
'
' Crear un nombre "medio" aleatorio
sDBTmp = "D:\SG RADIO\DBT_Datos_SGR_v2.mdb"
' Asegurarnos de que no existe una base con el nombre temporal
If Len(Dir$(sDBTmp)) Then
Kill sDBTmp
End If
'
'MsgBox " Compactando la base de datos..."
' Compactar la base de datos
je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\SG RADIO\DatosSGRv2.mdb;Jet OLEDB:Database Password=c1906d2023;", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBTmp & ";Jet OLEDB:Database Password=c1906d2023;"
'
' Eliminar la base de datos original
Kill "D:\SG RADIO\DatosSGRv2.mdb"
'
' Renombrar la base temporal con el original
Name "D:\SG RADIO\DBT_Datos_SGR_v2.mdb" As "D:\SG RADIO\DatosSGRv2.mdb"
'
'MsgBox " Base de datos compactada."
'
Exit Sub
'
ErrCompactar:
' Mostrar el mensaje de error
MsgBox "Error al compactar la base de datos:" & vbCrLf & _
Err.Number & " " & Err.Description, _
vbExclamation, "Error al compactar la base de datos"
Err.Clear
MsgBox " *** Error al compactar la base de datos ***"
End Sub

¿Qué puede suceder? Si me pudieran ofrecer otro método.

1 Respuesta

Respuesta
1

Carlos le dejo esta función que use hace muchos años, debe ajustar la ruta y nombre de la base de datos.

Function CompactaBackEnd()
    On Error GoTo CompactaBackEnd_Err
    Dim strPath As String
    DoCmd.Echo True, "Compactando el BackEnd ....."
    DoCmd.Hourglass True
    strPath = CurrentProject.Path    '& "\" & "dbRifas_bs.mdb"
    ' Borramos los registros de la tabla tblTemBoletas
    CurrentDb.Execute "DELETE * FROM tblTemBoletas"
    DBEngine.CompactDatabase strPath & "\dbRifas_bs.mdb", strPath & "\tem.mdb"
    If Err.Number = 0 Then    ' Borrar la base datos original y renombra el archivo temporal
        Kill strPath & "\dbRifas_bs.mdb"
        Name strPath & "\tem.mdb" As strPath & "\dbRifas_bs.mdb"
    End If
    DoCmd.Hourglass False
    DoCmd.Echo False
    MsgBox "BacKend Compactado satisfactoriamente !!", vbInformation, "Compactando Tablas del sistema "
CompactaBackEnd_Err_Exit:
    DoCmd.Echo False
    DoCmd.Hourglass False
    Exit Function
CompactaBackEnd_Err:
    MsgBox "Ha ocurrido en siguiente error . " & Err.Description, vbExclamation, "Error al compactar tablas del sistema"
    Resume CompactaBackEnd_Err_Exit
End Function

Esta función se llama desde el FronEnd y compacta el BackEnd.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir formulario para pagar con una tecla

Necesito saber si se puede tengo un formulario y subformulario de Ventas2 y DetalleVenta en ventas2 tengo un campo METODO_PAGO el cual el enfoque para cuando termine en detalleventa la selección de productos aplaste una tecla por ejemplo esc y salga...
2 respuestas

Copia de seguridad BD completa Access

Quiero saber si es posible mediante un botón en un formulario en Access crear una copia de seguridad de TODA la base de datos en una unidad USB al pulsar el botón. La unidad está en la ruta: D:\14gb\ Cuando digo TODA la BD son tablas, consultas, etc..
2 respuestas

Indices en tablas

Tengo 8 tablas dentro de la base de datos, y todas tiene en común el mismo campo, exactamente no se como relacionar todas las tablas es decir en que campo relacionarlas, si de una a muchos o todas contra todas, ademas no se si colocarles un indice a...
3 respuestas

Como pasar una importaciones guardada en Access a vba

Estoy trabajando con datos que provienen desde una base de datos de SQL server, hago los pasos de importación y los guardo en importaciones guardadas, funciona de maravilla, pero cuando no hay conectividad con el servidor falla, ya que previa a la...
2 respuestas

Consulta Expresión Demasiado Compleja Access

Soy usuario inicial de Access y quiero utilizar la expresión "SILNM" Tengo una base de datos de vehículos por VIN. En el VIN de un vehículo el 10mo. Dígito me indica el año de fabricación, es decir que si es a=2010, b=2011, c=2012; etc... Cuando...
4 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
3 respuestas

Como se copia todos los datos de un subformulario a otro subformulario

Estoy copiando datos de un formulario a otro formulario, ambos con subformularios, el problema esta en que los registros del subformulario solo me copia la primera fila. Estas son los datos: Formulario "Cotizacion" Con Subformulario...
3 respuestas

Asignar un valor a un campo y que lo repita hasta que el usuario cambie ese valor manualmente

Es usted muy amable. Siempre ayudando a quienes no contamos con suficientes conocimientos. Mi problema es el siguiente. Tengo una tabla relacionada con otras tres. Quiero en el formulario que el usuario fije un valor y añada varios registros, que...
7 respuestas

Migrar desde Access a BBDD web

Tengo una base de datos Access en red con 20 equipos conectados. Es muy extensa y consta de muchas tablas, consultas, formularios e informes. Sobre todo se trabaja con formularios para recoger datos de diferentes áreas del servicio. Estos formularios...
2 respuestas

Envio de Wasap desde Acces

Tengo una base de datos que manda wasap desde la ficha del cliente, el código que uso es el siguiente Private Sub Comando19_Click() CreateObject("Shell.Application").Open "https://api.whatsapp.com/send?phone=" + Me.telefono_cliente + "&text=" +...
1 respuesta