[Resolvido]Como Abrir Formulário com tecla de Atalho

Bom Dia a todos!

Estou usando este código para abrir Formulário TELA, como fazer para abrir com Alt+A

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
DoCmd.OpenForm "TELA"

O formulario tem de ter Visualizar Teclas=Sim, na guia Eventos;

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And (Shift And acAltMask) Then
   DoCmd.OpenForm "SeuSegundoForm"
   Else
   KeyCode = 0
   End If
End Sub

Bom final de semana.

JPaulo

Funcionou

Para usar outras teclas como CTRL ou TAB e so mudar onde esta ALT

Vou Testar

Pode utilizar sim;

Shift

(Shift And acShiftMask)

Ctrl

(Shift And acCtrlMask)