ueleodoro,

Boa Noite!

Veja se assim te atende.

Eu não entendi muito bem suas alterações, mas achei que eu que não tinha passado o modelo da forma como deveria funcionar.

Em lançamento Automático será utilizado um leitor de código de barras. O código será passado para o campo "Cod." e ao clicar enter o curso pula para campo que esta invisível (txtcodproduto_a = AUTO), este campo esta fazendo a pesquisa na base de dados de produtos "Formação de Preço e Catalogação" e verificando se existe ou não o produto e preenchendo alguns campos no formulário. Em seguida o mesmo (txtcodproduto_a = AUTO) realiza a tarefa de incluir os registro que estão no formulário. Porem pode notar que no final do processo temos o SetFocus para retorna o cursor para o "Cod." para dessa forma realizar o próximo lançamento. Isso que não acontece.

É complicado explicar, espero que tenha entendido.
Fiz umas alterações e ampliei a base de dados de produtos para ser lançado. Agora pode lançar em Cod. de 1 a 66 se colocar 67 acima vai dizer que não foi encontrado.

Se vc testar o lançamento Manual poderá ver que esta funcionando corretamente. Mas o mesmo não funciona para o lançamento Automático.

ueleodoro,

Boa Tarde!

Bem... você disse na sua primeira mensagem:

O problema é que mesmo com o SetFocus aitvo o cursor não vai para esse campo, o cursor vai para o próximo que esta configurado na sequencia de Tabulação

Assim, entendi que o que você queria era quando digitasse um 0 (Zero) na caixa de texto e depois um Enter e a mensagem de código não encontrado fosse mostrada, o cursor deveria voltar para a caixa de texto. Não é isso??? Foi o que eu fiz...

Não é isso. Preciso me desculpar por não me expressar corretamente. O novo modelo que eu postei agora esta da forma que o sistema deve funcionar..porém o cursor deve voltar para o campo de Lançamento. No lançamento manual que tem o Botão incluir funciona certinho. Se tiver alguma sugestão de como seria melhor o funcionamento desse processo pode falar que eu tento fazer tb...

O modelo não veio.

Juro que tinha visto anexo. Mando novamente.

ueleodoro,

Bom Dia!

Agora entendi corretamente. Infelizmente não tenho como ajudar, uma vez que não tenho nem como testar (para fazer isso, teria que ter uma forma de capturar esse código automático e não tenho).

O que posso contribuir é:
Percebi que você tem uma rotina dentro do evento ENTER do objeto txtcodproduto_a (que não sei para que ele serve. O objeto e o código). Porque você não coloca esse código dentro do Evento Exit do objeto txtcodprodutoauto? Esse evento tem um parâmetro Cancel que você pode setar para True que o cursor não sairá do objeto se não atender as condições que você deseja. Na minha opinião (não sei como funciona essa captura automática de código), penso que quando o código for capturado, automaticamente, ele poderia executar o que tem de executar. Ou seja: você pode colocar código no Evento Change desse objeto e verificar se ele já contém texto. Se sim, você provoca a saída dele para que o evento Exit ocorra.

Digita e clica enter que é a mesma coisa.

Vou tentar fazer e volto aqui

Problema resolvido. Meu Formulário tem dois Frames. Fiz o seguinte desabilitei a tabulação de todos os itens do form Inclusive os frames. E habilitei apenas a tabulação interna dos Frames. Funcionou.

O modo proposto pelo Wagner de colocar os comandos para serem executados em EXIT do Objeto txtcodprodutoauto, não funcionou pelo fato que o cod. lançado tem de 1 a 4 caracteres e logo na adição do primeiro caractere o Objeto já entrava em execução, na caso de um código a ser lançado "8" tudo bem, porém ao lançar "10, 100 ou 1345" apenas o caractere "1" era acionado.