Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyTab Forms!frmForm1!sub2.SetFocus Case vbKeyF2 DoCmd.OpenForm "frmForm2" End Select End Sub