Cómo establecer el foco en cualquier objeto en MS Access usando VBA

Question

¿Cómo puede alguien establecer el foco de un objeto Query abierto dentro de MS Access usando VBA?

que estoy haciendo algo como esto ...

If Application.CurrentData.AllQueries(myqueryname).IsLoaded = True Then 
     'set the focus 

     ' Export to office links for analysis 
     CommandBars("Menu Bar").Controls("Tools").Controls("Office Links").Controls("Analyze It With Microsoft Office Excel").accDoDefaultAction 

Answer 1

nuevo DoCmd es su amigo :-)

'set the focus 
DoCmd.SelectObject acQuery, myqueryname, False