MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Atalho CTRL+1,2... em qualquer parte do sistema

    Compartilhe
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    [Resolvido]Atalho CTRL+1,2... em qualquer parte do sistema

    Mensagem  Eloirp em Qua 05 Mar 2014, 22:00

    Olá Pessoal, estou precisando de uma ajudinha com um atalho CTRL+1 para chamar um formulário em estando em qualquer lugar do sistema... estou usando a função abaixo, mas neste caso eu tenho que colocar em cada formulário para poder chamar, não teria como colocar em um módulo por exemplo? Tentei buscar isso no fórum e não encontrei...

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        If Shift = 2 And (KeyCode = 49) Then DoCmd.OpenForm "cons_CR_Pop_1"
    End Sub
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    Registrado : 04/04/2010

    Re: [Resolvido]Atalho CTRL+1,2... em qualquer parte do sistema

    Mensagem  Avelino Sampaio em Qui 06 Mar 2014, 07:43

    Olá!

    Crie uma macro global de nome AUTOKEYS

    Nesta macro crie uma SUBMACRO de nome ^1
    Nesta submacro selecione o comando "AbrirFormulário" > entre com o nome do seu formulário.
    Salve a macro
    Experimente o CTRL+1 e veja seu formulário abrindo

    Aguardamos
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    Re: [Resolvido]Atalho CTRL+1,2... em qualquer parte do sistema

    Mensagem  Eloirp em Qui 06 Mar 2014, 14:43

    Muito obrigado Avelino! Muito fácil... fiz e rodou certinho...

      Data/hora atual: Sex 21 Jul 2017, 13:44