[Resolvido]Atalhos em Formulário com Combinação de CTRL+1,2,3,4,5,6...

Boa tarde,

Após uma pesquisa aqui no fórum, deduzi esse código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case CtrlDown, vbKey1
DoCmd.RunMacro "REL_AMO"
End Select
End Sub

Porém... não funcionou!

Pretendo usar para 11 teclas e minhas teclas do Form são rótulos e no caso do exemplo acima "REL_AMO" é a macro associada ao rótulo.

Está correto meu raciocínio?

O que fiz errado?

Obrigado

Caros, resolvi parte do problema.

Fica assim:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case CtrlDown + vbKey1
DoCmd.RunMacro "REL_AMO"
End Select
End Sub

Mas quero saber como faço para cominações como Ctrl + 11 ou 12 ou 30 e etc.

Obrigado

Bom dia Leandro;

Veja o simples;

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbCtrlMask + vbKey1
    MsgBox "Ctrl+1"
    Case vbCtrlMask + vbKey2
    MsgBox "Ctrl+2"
    Case vbCtrlMask + vbKey3
    MsgBox "Ctrl+3"
    Case vbCtrlMask + vbKey4
    MsgBox "Ctrl+4"
    Case vbCtrlMask + vbKey5
    MsgBox "Ctrl+5"
End Select
End Sub

Dê uma estudada nas constantes da Microsoft:

http://office.microsoft.com/en-us/access-help/HV080755548.aspx

Bom dia João,

Desculpe, não consegui entender no geral.

É possível combinar o CTRL + 11 por exemplo?

Ou CTRL + 30?

Obrigado

Eu aqui de novo;

Que eu saiba não é possível nem seria pratico.
(Se você conseguir pressionar a tecla do 1, duas vezes sem levantar o dedo, seria o 2º Mº Dimy, o maior mágico do Brasil.

Trabalhe com as combinações simples, números até 9 e todas as letras, que já é muita coisa.

Também pode utilizar desta forma;

    If Shift = 2 And (KeyCode = 48) Then MsgBox "Ctrl+0"
    If Shift = 2 And (KeyCode = 49) Then MsgBox "Ctrl+1"
    If Shift = 2 And (KeyCode = 50) Then MsgBox "Ctrl+2"
    If Shift = 2 And (KeyCode = 51) Then MsgBox "Ctrl+3"
    If Shift = 2 And (KeyCode = 52) Then MsgBox "Ctrl+4"
    If Shift = 2 And (KeyCode = 53) Then MsgBox "Ctrl+5"
    If Shift = 2 And (KeyCode = 54) Then MsgBox "Ctrl+6"
    If Shift = 2 And (KeyCode = 55) Then MsgBox "Ctrl+7"
    If Shift = 2 And (KeyCode = 56) Then MsgBox "Ctrl+8"
    If Shift = 2 And (KeyCode = 57) Then MsgBox "Ctrl+9"

Entendi, eu pensei que era possível a combinação, rsrs.

Muito obrigado João Paulo

Pessoal,
Estou aproveitando o tópico já que o assunto é exatamente o mesmo...

Uso Access 2010 e estou tentando colocar a função abaixo que copiei do tópico, mas dá Erro de Complicação...
Pesquisando no link do tópico cheguei a substituir o CtrlDown por vbKeyControl e também por vbCtrlMask mas também não deu...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
       Case CtrlDown + vbKey1
       Me.Ean2.Enabled = True
       Case CtrlDown + vbKey2
       Me.Ean2.Enabled = False
   End Select
End Sub

O seu formulario tem visualizar teclas=Sim ?

Correto, visualizar as teclas está como SIM!

Fiz mais um teste assim:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
      Case vbKeyControl + vbKey1
      MsgBox 1
      Case vbKey2
      MsgBox 2
  End Select
End Sub

Qdo pressiono o 2 funciona, porém o CTRL+1 não acontece nada... testei tabmém com CtrlDown e vbCtrlMask  (ambos dá erro de compilação)

Já se faço assim:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyControl And vbKey3
MsgBox 1
Case vbKey2
MsgBox 2
End Select
End Sub

Qdo pressiono só o CTRL já aparece a mensagem, mas se pressiono só o 3 não e aí pressiono primeiro o 3 (mantendo) e depois o CTRL aí funciona... parece que o "+" não funciona...

Teste assim;

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

  If Shift = 2 And (KeyCode = 49) Then MsgBox "Ctrl+1"
  If Shift = 2 And (KeyCode = 50) Then MsgBox "Ctrl+2"
    
End Sub

Perfeito JPaulo!
Muito obrigado mais uma vez...

Obrigado pelo retorno o forum agradece.