Non capisco se non esponi chiaramente e dettagliatamente tutto il problema...quindi anche i singoli codici sottostanti i pulsanti di M2 e M3.
Io ho tentato "volgarmente" di fare una cosa del genere
Private Sub EsitoRosso_Click()
Forms!M2!EsitoRosso.SetFocus
DoCmd.RunCommand <<un Comando Click che speravo ci fosse, ma non esiste>>
Forms!M3!EsitoRosso.SetFocus
DoCmd.RunCommand <<un Comando Click che speravo ci fosse, ma non esiste>>
End Sub
...ma scritto così non è possibile.