[Resolvido]Lendo Código de Barras

Prezados Srs, mais uma vez recorrendo a ajuda deste espaço.
Tenho um formulário "Entrega" onde registrará a entrega de medicamentos de uma farmácia. O medicamento possui um código de barras no rótulo e ao ler este código gostaria que desse entrada dos dados na tabela "Entrega", sem precisar clicar em ok ou qualquer outro botão, enfim, leu com o leitor = registrou na tabela e ficou pronto pra nova leitura.

Consegui fazer isso mas acontece algumas situações que não estou conseguindo achar solução.

1) Ao ler, a informação é registrada na tabela mas juntamente com uma outra, com o código de barras em branco, gerando 2 registros pra cada leitura;

2) Ao ler, e, caso a entrega já tenha sido efetuada, consegui fazer com que identificasse isso exibindo uma msg de "entrega já realizada" mas após ok na msg exibe uma msg "indice ou chave primaria nao pode conter um valor null" onde acredito que seja o problema de estar registrando em duplicidade, onde o segundo registro fica em branco.

envio o projeto e qualquer ajuda desde já agradeço.

https://www.dropbox.com/s/z6xeupiglxkesks/bd1.mdb?dl=0

(access 2003)

Leandro

1-Compacte teu aplicativo usando a opção Compactar e reparar do Access.
2-Compacte novamente em zip ou rar.

Suba o arquivo compactado (irá ver que ele ficou bem menor) para o dropbox.


Noob

opa. obrigado pela dica. upando compactado e reparado.

obrigado.

https://www.dropbox.com/s/wtzqjqroqxs4ceq/Entrega.rar?dl=0

Leandro

Tuas tabelas não tem dados para poder fazer outros testes.

No código abaixo acrescente a linha em azul  e teste.


Private Sub CodBarras_AfterUpdate()
 
If DLookup("CODBARRAS", "Entrega") = Me!CODBARRAS Then
MsgBox "DAV JÁ ENTREGUE. VERIFIQUE.", vbOKOnly + vbCritical, "ATENÇÃO"
'Me.CODBARRAS = ""  essa linha pode apagar
Me.Undo
Exit Sub
Else
...




Noob

ok. farei isso. eu estava usando um leitor antigo, ainda em ps2 e com um adaptador usb. comprei um novo usb e deve chegar hoje ou segunda. Vou aguardar o novo leitor pra testar com um equipamento melhor. Retorno os testes.
muito obrigado.

Como ficamos?

Opa desculpe pela demora. O prob era realmente o leitor. Ele lia em duplicidade. Comprei um novo usb e funcionou tudo certinho. Inclusive incrementei a mensagem de registro ja efetuado abrindo um formulario em fonte grande. Os codigos estavam certos. Muito grato mesmo.

Que ótimo !!

Só faltou o resolvido, dessa vez eu coloco.

Boa sorte !!


Noob

Obrigado. To no celular e nao vi essa opcao. Muito obrigado.