MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Tecla de atalho para botão de navegação

    avatar
    samuel_drun
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Tecla de atalho para botão de navegação Empty Tecla de atalho para botão de navegação

    Mensagem  samuel_drun 30/8/2018, 20:21

    Boa Tarde mestres,

    então estou criando um menu no access 2013 e fiz um formulário de navegação por abas e em cada aba tem um form, minha pergunta é como criar teclas de atalho para abrir cada aba, ja que cada aba não possui um codigo vb para abrir o form correspondente o que impossibilita de chamar o comando call click

    agradeço a atenção
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    Tecla de atalho para botão de navegação Empty Re: Tecla de atalho para botão de navegação

    Mensagem  Silvio 4/9/2018, 13:46

    Bom dia, algo parecido com isso..


    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '**desenvolvido por Silvio para o Fórum MaximoAcces**

    Select Case KeyCode 
    'movendo foco para as guias
        Case vbKeyF12      ' ao pressionar a tecla F12 move o foco para a Aba
        Me.Admin.SetFocus ' nome da tua aba
        Case vbKeyM          ' caso tenha algum formulário dentro da aba e pressionar a tecla M
        DoCmd.Close          ' fecha o formulário ativo
        DoCmd.OpenForm "frmbdespesamec"  ' abre o formulário ao pressionar a tecla M
        Case Else
        End Select
        End Sub

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 2/5/2024, 21:27