Boa tarde pessoal.. Gostaria da ajuda dos mestres:
1. Tenho um formulário chamado "LANCAR DACTE" e nele há um campo chamado "TxtChave", que é vinculado a tabela "TblDACTE".
2. Tenho também um formulário chamado "DACTESP" que me traz todos os DACTE'S lançados pelo formulário LANCAR DACTE mencionado acima, o formulário DACTESP possuí uma listbox que também está associada a tabela TblDACTE.
3. No formulário DACTESP possuo também um campo chamado "TxtSearch" e tudo que escrevo nele, atualiza a listbox através do "Me.Recalc" no evento "ao Alterar do campo TxtSearch" e simultaneamente a informação digitada é exibida na listbox, ao dar dois cliques na informação exibida na listbox abre um formulário chamado "ModalEnvioSP" onde também via VBA trago alguns dados exibidos na listbox para alguns campos do formulário ModalEnvioSP,
4. No formulário ModalEnvioSP eu preencho a data de envio e marco a opção "envio SP", e ao clicar em Salvar, fecha este formulário, fecha o formulário DACTESP e abre novamente o DACTESP, porém agora, sem o registro que anteriormente foi informado a data de envio e marcado a opção Envio SP (possuo um filtro para exibir apenas os não enviados)
Como está hoje: Ao preencher, por exemplo a chave de acesso de uma NF/CTe no TxtSearch a listbox é atualizada e encontra o que foi digitado, se eu pistolar o código, ele é preenchido no campo TxtSearch, mas mesmo usando a função SendKeys - F2 o campo recebe a chave mas o primeiro número é substituido pelo segudo, o segundo pelo terceiro, ao fim são 44 digitos da chave, e no campo aparece apenas o último digito lido (isso só acontece com a pistola, se eu digitar na mão ele aparece um após o outro como deve ser. Então mudei o vinculo da ação do campo TxtSearch de AO ALTERAR para APÓS ATUALIZAR, porém agora preciso dar um enter para que a listbox seja atualizada (não tem problema nisso) mas quando faço a leitura pela pistola preciso dar este enter se não não atualiza a listbox e eu não gostaria de precisar dar o enter.
Como preciso que fique: Ao pistolar o código de barras de uma NF/CTe no campo TxtSearch, preciso que assim que a leitura for finalizada (1 segundo) a listbox seja atualizada, o resultado seja exibido, a linha deste resultado seja selecionada, e o formulário que mencionei "ModalEnvioSP" seja aberto.
Poderiam me ajudar? A ideia é pistolar, listbox atualiza, seleciona o resultado, abre o formulário ModalEnvioSP e carrega os dados desejados nos campos. Algo similar a supermercado, a moça do caixa pistola o pacote de arroz, o sistema entende que aquele código é de arroz, baixa no estoque, emite a venda, etc... tudo sem ela precisar ficar dando enter no teclado..
Agradeço se for possível me ajudar
1. Tenho um formulário chamado "LANCAR DACTE" e nele há um campo chamado "TxtChave", que é vinculado a tabela "TblDACTE".
2. Tenho também um formulário chamado "DACTESP" que me traz todos os DACTE'S lançados pelo formulário LANCAR DACTE mencionado acima, o formulário DACTESP possuí uma listbox que também está associada a tabela TblDACTE.
3. No formulário DACTESP possuo também um campo chamado "TxtSearch" e tudo que escrevo nele, atualiza a listbox através do "Me.Recalc" no evento "ao Alterar do campo TxtSearch" e simultaneamente a informação digitada é exibida na listbox, ao dar dois cliques na informação exibida na listbox abre um formulário chamado "ModalEnvioSP" onde também via VBA trago alguns dados exibidos na listbox para alguns campos do formulário ModalEnvioSP,
4. No formulário ModalEnvioSP eu preencho a data de envio e marco a opção "envio SP", e ao clicar em Salvar, fecha este formulário, fecha o formulário DACTESP e abre novamente o DACTESP, porém agora, sem o registro que anteriormente foi informado a data de envio e marcado a opção Envio SP (possuo um filtro para exibir apenas os não enviados)
Como está hoje: Ao preencher, por exemplo a chave de acesso de uma NF/CTe no TxtSearch a listbox é atualizada e encontra o que foi digitado, se eu pistolar o código, ele é preenchido no campo TxtSearch, mas mesmo usando a função SendKeys - F2 o campo recebe a chave mas o primeiro número é substituido pelo segudo, o segundo pelo terceiro, ao fim são 44 digitos da chave, e no campo aparece apenas o último digito lido (isso só acontece com a pistola, se eu digitar na mão ele aparece um após o outro como deve ser. Então mudei o vinculo da ação do campo TxtSearch de AO ALTERAR para APÓS ATUALIZAR, porém agora preciso dar um enter para que a listbox seja atualizada (não tem problema nisso) mas quando faço a leitura pela pistola preciso dar este enter se não não atualiza a listbox e eu não gostaria de precisar dar o enter.
Como preciso que fique: Ao pistolar o código de barras de uma NF/CTe no campo TxtSearch, preciso que assim que a leitura for finalizada (1 segundo) a listbox seja atualizada, o resultado seja exibido, a linha deste resultado seja selecionada, e o formulário que mencionei "ModalEnvioSP" seja aberto.
Poderiam me ajudar? A ideia é pistolar, listbox atualiza, seleciona o resultado, abre o formulário ModalEnvioSP e carrega os dados desejados nos campos. Algo similar a supermercado, a moça do caixa pistola o pacote de arroz, o sistema entende que aquele código é de arroz, baixa no estoque, emite a venda, etc... tudo sem ela precisar ficar dando enter no teclado..
Agradeço se for possível me ajudar