Thanks Bob or allthe time you put to help us.
to b Honest, I gave up and decided to let the user do it in 2 steps, one button to compact and another to backup.
in Compact button click:
DoCmd.Close
SendKeys "%(TDR)", False
SendKeys "%(TDC)", False
in the backup button, I put the usual...