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

    Tecla Enter está trocando de foco sem programação.

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 8:39 am

    Olá amigos, bom dia!

    Estou com um form chamado frm_pesProduto e dentro dele tenho um campo sem associação e uma caixa de listagem. Preciso colocar um evento na caixa de listagem que ao apertar enter ele capture as informações daquela linha. Na pratica eu deixei assim.

    Código:
    Private Sub lis_PesProduto_KeyPress(KeyAscii As Integer)
        
        If keycode = 13 Then
            
            DoCmd.OpenForm "frm_cadProduto", acNormal, "", "[codigoProduto]=[forms]![frm_pesProduto]![lis_pesProduto]", , acNormal
            DoCmd.Close acForm, "frm_pesProduto"
            
        End If
        
        
    End Sub

    Ao executar essa linha de código eu reparei que ele está praticando outro evento. No caso, ele muda o foco para o campo no associado. Tem como retirarmos esse evento da tecla enter que muda de foco? Se tiver, como devo fazer para remove-lo?
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qua 28 Abr 2021, 9:23 am

    Alan

    Experimente a propriedade Comportamento da tecla enter da Listbox, se resolve

    Deve estar Padrão, coloque nova linha  e veja se funfa


    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    alantardivo gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Alexandre Fim Qua 28 Abr 2021, 9:31 am

    Alan,

    Na questão do foco dos objetos do formulário, verifique a propriedade "Índice de Tabulação", para manter a sequencia desejada.

    Na questão do listbox, utilize o clique duplo na linha para abrir o formulário.

    Obs.: Estou presumindo que o código do produto na sua listbox seja a 1a. coluna, e neste caso , utilizei lis_PesProduto.Column(0). Caso não for, mude o indice da coluna.

    Código:


    Private Sub lis_PesProduto_DblClick(Cancel As Integer)

            'Estou presumindo que a listbox tenha um cabeçalho. Caso não tenha mude de 1 para 0
            If lis_PesProduto.ListCount = 1 Then Exit Sub

            DoCmd.OpenForm "frm_cadProduto", acNormal, "", "[codigoProduto]=" & lis_PesProduto.Column(0) & "", , acNormal
            DoCmd.Close acForm, "frm_pesProduto"

    End Sub




    Espero ter ajudado.

    []'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.

    alantardivo gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Alexandre Fim Qua 28 Abr 2021, 9:33 am

    Meu caro Noobezinho, no momento em que estava redigindo a mensagem, o Sr. postou antes.

    []'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.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qua 28 Abr 2021, 9:36 am

    FIM

    "Tamojunto mermão"!!

    Quanto mais opções, melhor !!

    { }'



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Alexandre Fim gosta desta mensagem

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 10:26 am

    Olá pessoal, primeira mente obrigado pelo o tempo de vocês em me ajudar nessa questão.

    Em segundo lugar, gostaria de deixar aqui com vocês que meu Access não apresenta essa opção de Comportamento da tecla Enter.
    Tem algum lugar que habilitamos o recurso?

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qua 28 Abr 2021, 10:31 am

    Estranho

    Qual a versão do teu Office?


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 10:35 am

    O meu aqui é Professional Plus 2019.
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 10:50 am

    Eu baixei um exemplo de um amigo aqui do forum mesmo e meu Access abriu ele com essa opção disponível. Será que devo habilitar esse recurso em algum lugar específico?
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qua 28 Abr 2021, 10:54 am

    Alan

    Testei o teu código, coloque a linha em azul

    Private Sub lis_PesProduto_KeyPress(KeyAscii As Integer)
       
       If keycode = 13 Then
           
           DoCmd.OpenForm "frm_cadProduto", acNormal, "", "[codigoProduto]=[forms]![frm_pesProduto]![lis_pesProduto]", , acNormal
           DoCmd.Close acForm, "frm_pesProduto"
           
       End If
        keycode =0
       
    End Sub

    Aqui funfou!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    alantardivo gosta desta mensagem

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 11:12 am

    Noobezinho,

    coloquei o código que me passou, mas não funcionou.
    Estou disponibilizando meu código para você dar uma olhadinha pra mim, se puder.
    Te agradeço pela ajuda.

    https://1drv.ms/u/s!AnlxzVyaVHf4tXmSRZIpT-eYl7JP?e=h2T6TZ
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 12:55 pm

    Prezados,

    Efetivando testes eu pode perceber que na guia outra aparece a opção Comportamento da tecla Enter para uma caixa de texto, porém o que preciso é que ao selecionar um item dentro da caixa de listagem e apertar enter, ele permite seguir a linha de código informada no primeiro tópico.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4753
    Registrado : 20/04/2011

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Silvio Qua 28 Abr 2021, 1:34 pm

    Apenas um pitaco....

    Se ao pressionar a tecla enter, o texto selecionado vai para uma caixa de texto....então falta copiar esse texto.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    alantardivo gosta desta mensagem

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 1:43 pm

    Silvio, boa tarde!

    Então a ideia é poder fazer o mesmo que se faria dando um duplo clique no item da lista. Só preciso saber qual é a forma que devo fazer a captura desses dados da lista quando eu aperto em enter.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4753
    Registrado : 20/04/2011

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Silvio Qua 28 Abr 2021, 1:48 pm

    Tenho algo parecido com o que precisa..

    Private Sub lstfornece_DblClick(Cancel As Integer)
    If Len(Nz(Me!Txtcopia.Value)) > 0 Then
       Me!Txtcopia = Me!Txtcopia.Value & Me!lstfornece.Column(1)
    Else
       Me!Txtcopia.Value = Me!lstfornece.Column(1)
    End If
    End Sub


    Onde:
    txtcopia é uma caixa de texto desacoplada
    Me!lstfornece.Column(1) é a minha listbox e a coluna 1 é a que eu preciso destacar ou copiar !

    Aqui eu coloquei no duplo click. A Tecla Enter faz parte da tabulação assim como a tecla TAB. Sugiro repensar quanto ao uso da tecla Enter nesse caso.

    Bons estudo


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qua 28 Abr 2021, 1:55 pm

    Legal Alan

    Por quê não falou já de cara que era isso que queria?

    Ficou só falando da tecla ENTER que fazia com se o foco

    mudasse de controle.

    Francamente!

    E eu perdendo tempo com isso.



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qua 28 Abr 2021, 4:51 pm

    Olá Silvio, boa tarde!

    Desculpa só responder agora. Eu consigo tirar a tecla enter da tabulação? Pois eu gostaria que ela estivesse livre para assim eu colocar uma programação que já tenho pronta que é a mesma em que dou duplo clique.

    Noobezinho, me desculpa amigo, não foi a intenção te atrapalhar ou prejudicar, tentei ser o mais claro possível.
    Pelo que que entendi, o Enter já vem por padrão ser semelhante ao Tab. Gostaria de tirar ele dessa programação padrão e colocar a minha programação. É possível?
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qua 28 Abr 2021, 5:30 pm

    Alan

    Como você disse, realmente esse comportamento da tecla ENTER é padrão.

    Mas, eu contornei isso, com alguns algoritmos.

    Na página do VBA , do formulário, eu declarei a variável  EvitaSairLst como boolean.

    Então veja as propriedades  keydown () e exit  da listbox.

    Acho que era isso que queria

    Balem
    Anexos
    Tecla Enter está trocando de foco sem programação. Attachmentbanco - CopiaBalem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (85 Kb) Baixado 5 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Qui 29 Abr 2021, 1:24 pm

    Obrigado a todos que se disponibilizaram para me ajudar nesse tópico.
    O mesmo foi resolvido.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qui 29 Abr 2021, 1:31 pm

    Ótimo Alan

    Boa sorte

    Balem


    Última edição por Noobezinho em Ter 04 Maio 2021, 10:17 am, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  alantardivo Ter 04 Maio 2021, 9:48 am

    Olá amigos, bom dia!

    Estou com a mesma dificuldades porém em formulário diferente. Nesse caso o problema está no frm_pesGrupoEmCadProduto. Poderiam me ajudar no formulário em questão?
    Depois que coloquei um instrução ao clicar na seta para baixo, ele fecha o meu form.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

    Tecla Enter está trocando de foco sem programação. Empty Re: Tecla Enter está trocando de foco sem programação.

    Mensagem  Noobezinho Qui 13 Maio 2021, 5:48 am

    Alan

    Já resolveu?

    Caso não, poste o algoritmo que está usando no formulário.

    E explique qual é a diferença dessa listbox da que resolvemos.

    Aguardamos...


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: Qua 16 Jun 2021, 3:37 pm