Hi,
I found the answer and it actually works!
Screen.PreviousControl.SetFocus
SendKeys "{tab}a{tab}a{tab}{tab}click"
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command70_Click:
Exit Sub
Err_Command70_Click:
MsgBox Err.Description
Resume...