Come impostare lo stato attivo su qualsiasi oggetto in MS Access utilizzando VBA

Question

Come può qualcuno impostare lo stato attivo di un oggetto Query aperto in MS Access utilizzando VBA?

sto facendo qualcosa di simile ...

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

nuovo DoCmd è tuo amico :-)

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