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

    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 : 151
    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 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Como deixar a tecla enter com a mesma função de duplo clique. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    alantardivo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    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?



    Conteúdo patrocinado


    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  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:33