Salve a tutti,
avrei la necessità di realizzare una macro che avvia il comando "COMPATTA e RIPRISTINA" ma non so proprio come fare.
Ho trovato in giro per la rete un codice VBA così composto:

Sub COMPATTA()
DoCmd.SetWarnings True

SendKeys "%{TAB}" '"(%s uo)" Compatta e Ripristina DB"
SendKeys "%suo"

End Sub

Ma non riesco a farlo attivare automaticamente attraverso una Macro.

Sapete aiutarmi?

Grazie
Leonardo