MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Call Form_KeyDown

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Call Form_KeyDown

    Mensagem  biligo em Qua 23 Nov 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Call Form_KeyDown

    Mensagem  philipp.moreira em Qua 23 Nov 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: Qua 07 Dez 2016, 08:36