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

    Call Form_KeyDown

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    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.
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    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: Sab 25 Nov 2017, 00:10