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

    [Resolvido]Teclas de Atalho

    avatar
    W_Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/10/2013

    [Resolvido]Teclas de Atalho Empty Teclas de Atalho

    Mensagem  W_Alves Qua 09 Out 2013, 16:46

    Boa Tarde a todos... Very Happy 

    Tenho um botão em form do Access e queria que esse botão podasse ser acessado por uma tecla de atalho.
    Usando o "&" e a legenda do botão eu consigo, mas preciso que a tecla de atalho seja um "F5" por exemplo.
    E ao clicar em "F5" abra um formulário, como posso fazer isso?

    Desde já agradeço a ajuda. Wink
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Teclas de Atalho Empty Re: [Resolvido]Teclas de Atalho

    Mensagem  Uilson Brasil Qua 09 Out 2013, 20:04

    Alves,

    Exemplo prático. Espero que o ajude.

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyF4
    DoCmd.OpenForm "form1"

    Case vbKeyF8
    If IsNull(Me.campoX) Then
       MsgBox "Não existe venda para ser cancelada.", vbInformation + vbOKOnly, "SIG v1.0 (PDV)"
       DoCmd.CancelEvent
    Else
       DoCmd.OpenForm "frmPDV", , , "IDVDA = " & Me!IDVDA
    End If

    End If
    Case Else
    End Select
    End Sub


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    W_Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/10/2013

    [Resolvido]Teclas de Atalho Empty Re: [Resolvido]Teclas de Atalho

    Mensagem  W_Alves Qui 10 Out 2013, 09:36

    Muito Obrigado, valeu mesmo.
    Laughing 
     
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Teclas de Atalho Empty Re: [Resolvido]Teclas de Atalho

    Mensagem  Uilson Brasil Qui 10 Out 2013, 15:04

    Alves,

    Resolveu?
    Se sim favor marcar como resolvido.


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    W_Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/10/2013

    [Resolvido]Teclas de Atalho Empty Re: [Resolvido]Teclas de Atalho

    Mensagem  W_Alves Qui 10 Out 2013, 16:51

    Valeu...Very Happy

    Conteúdo patrocinado


    [Resolvido]Teclas de Atalho Empty Re: [Resolvido]Teclas de Atalho

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 07 maio 2024, 15:59