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

    Call Form_KeyDown

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    Call Form_KeyDown Empty Call Form_KeyDown

    Mensagem  biligo 23/11/2016, 07:48

    Boas galera,

    Estou com uma dificuldade.
    Procurei mais não encontrei solução, gostaria de saber se existe alguma forma de utilizar a função chamar da seguinte maneira:
    O formulário que estou utilizando é um subformulário do frmPrincipal2.

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

    Select Case KeyCode

    Case vbKeyEsc
    Forms!frmPrincipal2.btnClientes.SetFocus
    Case vbKey1
    Forms!frmPrincipal2.Call Form_KeyDown 'Ou seja, chamar o pressionar tecla de outro formulário.
    End Select

    Grato a todos.
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    Call Form_KeyDown Empty Re: Call Form_KeyDown

    Mensagem  philipp.moreira 23/11/2016, 08:22

    Biligo, bom dia!

    Como sugestão para estruturar seu código, criaria uma função com retorno booleano (True/False) que efetue a consistência de teclas que deseja.
    Chamaria esta função tanto no evento do outro Form como no atual.

    Quanto ao seu código creio que a chamada ficaria mais ou menos conforme abaixo:

    Código:

    Private Sub Form_KeyDown ( KeyCode As Integer, Shift As Integer )
            Select Case KeyCode
                      Case vbKeyEsc
                              Forms!frmPrincipal2.btnClientes.SetFocus

                      Case vbKey1
                              ' Aqui estou passando os parâmetros do evento do form atual frmPrincipal2 como parâmetro para o evento do form Exemplo
                              Forms!frmExemplo.Form_KeyDown ( KeyCode, Shift )

            End Select
    End Sub



      Data/hora atual: 17/5/2024, 08:44