SendKeys funktion

Jeg har en access Db som dagligt får tilført nye masterdata fra en anden Db. som sikkert bekendt har Access dte med at vokse gevaldigt når man redigerer i data, hvorfor jeg gerne vil lave en knap til brugeren hvor han kan lave en "compact & repair" funktion.

Jeg kan bare ikke få SendKeys til at virke via VBA på en knap.
Jeg har gjort følgende:
På en knap1 har jeg OnClick lagt følgende kode
SendKeys "%TDC"

Men det virker bare ikke ???

Nogen der har nogle gode ideer til en løsning...