Como atribuir acções a teclas?

1- Criar um formulário na vista estrutura e no evento ‘Ao carregar’ nas propriedades do formulário introduzir o seguinte: me.keypreview=true
Ou seja isto vai fazer com que os eventos de teclado sejam recebidos primeiro no formulário.

2- Nas propriedades do formulário, no evento ‘com a tecla em baixo’ colocar o seguinte código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
DoCmd.OpenForm “formulario1”
Case vbKeyF3
DoCmd.OpenForm “formulario2”
Case vbKeyF4
DoCmd.OpenForm “formulario3”
Case vbKeyF5
Dim Calculadora As Double
Calculadora = Shell(“calc.exe”, vbNormalFocus)
Case vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub

O que este código faz é o seguinte:
– Ao pressionar a tecla F2 abre o formulário1
– Ao pressionar a tecla F3 abre o formulário2
– Ao pressionar a tecla F4 abre o formulário3
– Ao pressionar a tecla F5 abre a calculadora do Windows
– Ao pressionar a tecla F6 fecha o formulário

Além das tecla de funções F1, F2…etc, também podemos utilizar qualquer outra tecla para executar funções, mas tendo em atenção que se estivermos num formulário para introduzir dados não convêm utilizar teclas que são usadas para escrever os dados nos campos.
Outra coisa é o facto de só funciona no formulário onde colocarem os códigos acima mencionados.

Download: Teclas
Exemplo teclas de atalho

  • aventureiro

    Poxa, logo esse não tem exemplo?! Vc pode fazer um e me mandar via e-mail?!?! Agradeço muito!! Ate!!