MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Pistolar chave de acesso NF/CT-e, atualizar list-box e abrir formulário sem precisar usar ENTER

    Compartilhe

    Dbiazoto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 02/08/2018

    Pistolar chave de acesso NF/CT-e, atualizar list-box e abrir formulário sem precisar usar ENTER

    Mensagem  Dbiazoto em 2/12/2018, 12:55

    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


    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 762
    Registrado : 09/11/2012

    Re: Pistolar chave de acesso NF/CT-e, atualizar list-box e abrir formulário sem precisar usar ENTER

    Mensagem  =>Nois em 7/12/2018, 19:52

    ola!

    você pode configurar o leitor para tal função, com Enter automático ou Manual

    eu tenho um leitor da marca symbol que faço isso criei uma folha simples impressa para o pessoal fazer essa configuração quando é necessário

    (no manual do fabricante ensina como habilitar ou desabilitar)

    tente localizar na internet o fabricante e modelo do leitor se ainda tiver o manual do mesmo melhor ainda.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 16/12/2018, 11:20