RE:Compactar base de datos
hola,
muy buen ejemplo. Basándome en el post anterior he hecho la siguiente función:
Public Function CompactDB(ByVal SourceDB As String) As Boolean
Dim filecopia As String
Dim fileold As String
On Error GoTo CompactDBAccess_control
Screen.MousePointer = vbHourglass
filecopia = App.Path & "Basescopia.bak"
fileold = App.Path & "Basescopia.tmp"
If ExisteFichero(filecopia) Then
Kill filecopia
End If
DBEngine.CompactDatabase SourceDB, filecopia
Name SourceDB As fileold
Name filecopia As SourceDB
Name fileold As filecopia
CompactDB = True
salir_CompactDBAccess:
Screen.MousePointer = vbDefault
Exit Function
CompactDBAccess_control:
MsgBox "Ha ocurrido un error al compactar la base de datos. El proceso se detendrá" _
& vbCrLf & vbCrLf & "Descripción del Error: " & Err.Description & _
vbCrLf & "Número del Error: " & Err.Number & _
vbCrLf & "Fuente: " & Err.Source & vbCrLf & _
"Avise a su informático de confianza", vbExclamation, "Mensaje de error"
Resume salir_CompactDBAccess
End Function
Un saludo