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

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?

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

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

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

[]'s

FIM

FIM

"Tamojunto mermão"!!

Quanto mais opções, melhor !!

{ }'

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?

Estranho

Qual a versão do teu Office?

O meu aqui é Professional Plus 2019.

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?

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!

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

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.

Apenas um pitaco....

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

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.

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

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.

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?

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

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

Ótimo Alan

Boa sorte

Balem

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.

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...