Access - Reparar y Compactar por codigo

Necesito ayuda para porder reparar y compactar la base de datos desde un boton de la misma aplicacion, osea por codigo. Alguien me puede ayudar?
Muchas gracias.
Veronica

Hola Vero!

Te paso el tema en office-xp:

Private Sub Comando109_Click()
' REPARAR COMPACTAR LA BASE DE DADES
On Error GoTo Err_Comando109_Click
Dim wruta As String
Dim wdesti As String
DoCmd.Hourglass True

'wruta = DLookup("[RUTA]", "[RUTABASEDADES]")
wruta = CurrentProject.Path & "\DADES.MDB"
wdesti = Left(wruta, Len(wruta) - 4)
wdesti = wdesti & "CO.MDB"
'DBEngine.RepairDatabase wruta
'MsgBox ("Base DADES.MDB Reparada")
'
' compacta la base de dades
'
FileCopy wruta, wdesti
' Asegúrese de que no existe un archivo con el
' nombre de la base de datos compactada.
If Dir(wdesti) <> "" And Dir(wruta) <> "" Then Kill wruta

DBEngine.CompactDatabase wdesti, wruta
If Dir(wdesti) <> "" Then Kill wdesti
DoCmd.Hourglass False

MsgBox ("Base DADES.MDB Compactada")
'
Exit_Comando109_Click:
Exit Sub

Err_Comando109_Click:
MsgBox Err.Description
Resume Exit_Comando109_Click

End Sub

Saludo2

lo puedes hacer mediante macros
compactar:
enviar teclas %
enviar teclas h
enviar teclas u
enviar teclas o

reparar:
enviar teclas %
enviar teclas h
enviar teclas u
enviar teclas r

lo puedes hacer mediante macros
compactar:
enviar teclas %
enviar teclas h
enviar teclas u
enviar teclas o

reparar:
enviar teclas %
enviar teclas h
enviar teclas u
enviar teclas r

___________________________________________________________________________________________________________
Hola,

Alguna vez mediante código compactaba y reparaba una base dándole la ruta mediante comando (Access 2013 Ejm: Alt + a,f,g), creo que es lo que sugieres y estoy interesada en recordar esto para aplicarlo, la verdad lo necesito con urgencia. Gracias

Help me