Menú Principal

Clics de vista de contenido : 60278

Compactar Base de datos

Pues eso, una utilidad de Happy para compactar nuestra bd.

Public Function Compactarhappy()
'Esta función sigue la misma idea original de paco
'solo que actuando directamente sobre los objetos commandbars
'Es exactamente lo mismo aunque en apariencia sean diferentes
'De una forma u otra, funciona perfectamente
'Happy Julio 2002

    On Error GoTo COMPACTAR_Err

    CommandBars("Menu Bar").Controls("Herramientas").Controls("Utilidades de la base de datos").Controls("Compactar y reparar base de datos...").accDoDefaultAction

COMPACTAR_Exit:
    Exit Function

COMPACTAR_Err:
    MsgBox Error$
    Resume COMPACTAR_Exit

End Function

'Uso:
 Call CompactarHappy