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

    Como deixar a tecla enter com a mesma função de duplo clique.

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como deixar a tecla enter com a mesma função de duplo clique. Empty Como deixar a tecla enter com a mesma função de duplo clique.

    Mensagem  alantardivo 5/5/2021, 14:46

    Olá amigos, bom dia!

    Estou com um probleminha e gostaria de pedir a ajuda de vocês. Tenho formulário chamado frm_pesGrupoEmCadProduto. Nesse formulário tem uma lista chamada lis_PesGrupo e nessa lista eu tenho um evento ao dar duplo clique que executa o seguinte procedimento:

    Código:
    On Error Resume Next
        Dim Linha As Integer
        Linha = Me.lis_PesGrupo.ListIndex + 1
        
        If selecionado = True Then
            
            Forms![frm_cadProduto].Form.catGrupo.Value = Me.lis_PesGrupo.Column(1, Linha)
            
        End If
        
        DoCmd.Close

    Gostaria que esse evento acontecesse o mesmo ao apertar a tecla enter.
    Eu tentei fazer o mesmo com base no formulário frm_pesGrupo, porém nada funcionou. Deixarei uma cópia do banco anexada aqui.
    Anexos
    Como deixar a tecla enter com a mesma função de duplo clique. Attachmentbanco_maximo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (87 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1455
    Registrado : 13/12/2016

    Como deixar a tecla enter com a mesma função de duplo clique. Empty Re: Como deixar a tecla enter com a mesma função de duplo clique.

    Mensagem  Alexandre Fim 5/5/2021, 17:57

    Olá Alan

    Apenas alinhei seu código e inseri a linha em vermelho

    Private Sub lis_PesGrupo_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Dim Linha As Integer
       
       If KeyCode = 13 Then
                EvitaSairLista = True
                selecionado = True
                Linha = Me.lis_PesGrupo.ListIndex + 1
                Forms![frm_cadProduto].Form.catGrupo.Value = Me.lis_PesGrupo.Column(1, Linha)
                lis_PesGrupo_DblClick (0)
       End If
       
       DoCmd.Close
       
    End Sub


    []'s

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como deixar a tecla enter com a mesma função de duplo clique. Empty Re: Como deixar a tecla enter com a mesma função de duplo clique.

    Mensagem  alantardivo 5/5/2021, 18:06

    Olá Alexandre Fim, tudo bem?

    Então, eu adicionei a insttrução que me passou, mas está apresentando um erro. Ao utilizar as setas para cima e para baixo em prol de marca um item da lista, o formulário é fechado automaticamente. Poderia me ajudar nessa questão?



      Data/hora atual: 16/6/2021, 15:59