[Resolvido]Ir para Campo

Boa Tarde


Estou precisando tirar uma dúvida.


Como é que eu faço para caso eu não digite ou não selecione "nenhum valor" ao apertar a tecla o foco vá para onde eu quiser.


Desde já agradeço.

Deison, boa tarde!

Me desculpe, mas não entendi o que você precisa. Veja, se você aperta qualquer tecla você está digitando algo, certo? (salvo teclas de seta e funções) o que você está querendo é aperta uma tecla específica e ir para um campo desejado?
Exemplo: aperto a tecla a e o foco muda para a caixa de texto txtQualquerUma.
no aguardo.

Me desculpe

Ao apertar a tecla ENTER.

Pois geralmente quanto estamos preenchendo uma venda ou um cadastro apertamos a tecla ENTER e vamos para o próximo campo.
Mais quando eu não tiver mais produtos para adicionar e quando aperto a Tecla ENTER eu queria que o Setfocus fosse para um campo determinado por mim, tipo txt_desconto.




Desde já agradeço.

Meu caro, olhe essa super dica do mestre Avelino... Acredito que vai lhe ajudar bastante no que deseja.

Abraços

Como Interceptar teclas e combinações

No evento Ao Apertar Tecla do Formulario coloque:
'O evento: "VIsualiza Tecla" do formulario tem que estar = sim

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyF4
MsgBox "VC pressionou F4", vbInformation

Case vbKeyF5
MsgBox "VC pressionou F5", vbInformation

Case vbKeyEscape
MsgBox "VC pressionou ESC", vbInformation

End Select

End Sub




Tabela com os Codigos:
https://msdn.microsoft.com/en-us/library/aa243025(v=vs.60).aspx tabela codigos

Alguns dos post lhe ajudou? Por favor, der um retorno, obrigado!

Boa Tarde

Eu ainda não consegui resolver o problema, e creio que deve ser o porque não entenderam o meu questionamento. estou postando uma imagem da tela para ver se fica mais fácil o entendimento, para que possam me ajudar.



Desde já agradeço pela ajuda e compreensão.

Imagem
Imagem

Amigo, vc viu a mensagem N 05?


Faça um teste: Nesse Campo Fornecedor, no Evento Ao APERTAR tecla coloque:

Private Sub txtFornecedor_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

Case vbKeyReturn
'Frm_VendasSub é o Nome do SubFormulario de Vendas, onde tem o Campo txtCodProd para onde movo o Foco.
[Frm_VendasSub]![txtCodProd].SetFocus
End Select


End Sub


No formulário Principal no evento Visualiza Teclas, coloque como sim.

Faça um teste... Va para esse Campo fornecedor e Pressione ENTER.

Não deu certo

No lugar dele ir para o txtCodProduto, ele vai para a guia Página1 e depois ao apertar enter ele vai direto para salvar

Amigo, no seu Caso acredito nao haver a necessidade de usar codigos para isso...

Basta colocar de forma correta o Indice de Tabulação! Tanto nas Guias quanto nos Campos, assim automaticamente ele Passa para os Campos.

Mas mesmo assim segue como deve ser feito, caso queira por Codigo...

Valeu Agora deu certinho..

O que estava faltando no código que você me passou era para ir para a guia primeiro, por isto que não estava dando certo.


Desde já muito obrigado.