[Resolvido]OPÓS LEITURA DO COD. DE BARRAS - LER UM NOVO PRODUTO

Bom dia Pessoal

Estou com um problema simples mas não consigo resolver, vamos lá:
Criei um banco de dados simples para fazer contagem de estoque com um leitor de código de barras.

A função do leitor e ler o código e listar o produto para em dois campos específicos
Cod barras e Produto, até aqui tudo bem estou usando o seguinte código para isso que após ler com o leitor de código de barras vai para o novo registro (está no item após atualizar)


Private Sub COD_BARRAS_AfterUpdate()

Me.PRODUTO = Me.COD_BARRAS.Column(1)

DoCmd.GoToRecord , , acNewRec

End Sub


A minha dificuldade esta em:

Após a leitura ele vai para o próximo registro só que ao receber o código de barras não aparece nada, ou só aparece o código e não lista o produto, só aparece seu eu atualizar.

Minha pergunta como resolver isso.

Olá

Teste assim:

Private Sub COD_BARRAS_AfterUpdate()

Me.PRODUTO = Me.COD_BARRAS.Column(1)

DoCmd.GoToRecord , , acNewRec

COD_BARRAS.Requery

End Sub

Olá Bom dia Sr. Viera..!!

ë o seguinte, se eu selecionar o código de barras manualmente e funciona perfeitamente, mas quando uso o leitor isso não acontece, ele le o código mas não aparece nada.

Amigo:

Já leu o manual do scanner?`Não entendo muito disso, mas parece-me que existe alguma configuração mal feita porque se manualmente aparece e com o leitor não, então veja primeiro as configurações, confirme como manual e em últia instância contacte o serviço de apoio ao produto.

Lamento não poder ajuda-lo mais. Bem que eu gostaria.

Um abraço

Mesmo assim muito obrigado pela sua ajuda..!!

Valeu, Um abraço.

Teste assim:

Private Sub COD_BARRAS_AfterUpdate()
dim merc as string
merc = nz(Me.COD_BARRAS.Column(1))
Me.PRODUTO = merc
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
me.COD_BARRAS.Requery
End Sub

Boa Tarde Jungle...!!!

Valeu pela ajuda mas também não deu certo, pensso que deve ter alguma coisa haver com a atualização pois seu colocar um botão atualizar o próximo registro aparece ou até mesmo se eu mudar u cursosr para o campo produto e depois ir para o código da certo...é ai que estou quebrando a cabeça....vou ver também com relação ao leitor de código de barras..

Eloir

Eloir

Sem descartar o problema do leitor, inclua também no código um Me.refresh. Pode eventualmente ajudar a solucionar o problema, não garanto, mas não custa experimentar.

Boa tarde seu Vieira...!!!


Também não certo, mas vamos deixar este tópico em aberto tão logo eu consiga ver no manual do leitor ou se alguém tiver uma dica, penso que vai ser últil para muita pessoas esta questão ai..pois aparentemente é uma coisa bem simples.

Eloir

Olha ai pessoal...!!!


O problema todo estava mesmo no leitor de código de barras, para este fim o select terminator, deve ser configurado para HT(TAB), mas os códigos postados pelo Sr. Vieira e pelo Jungles estão corretos e melhorou com o incremento do refresh.

Private Sub COD_BARRAS_AfterUpdate()
Dim merc As String
merc = Nz(Me.COD_BARRAS.Column(1))
Me.PRODUTO = merc
Me.Refresh
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.COD_BARRAS.Requery
End Sub

Obrigado pela ajuda pessoal...!!

abraços

se alguem quisere este banco para estudos é só pedir ou me deem a dica de como postar ele ai no forum.

podemos encerrar este tópico

Valeu amigão, ainda bem que o problema está resolvido.

Faço das palavras do amigo Vieira, as minhas

qualquer coisa estamos aqui!

Prezado Eloir,

Eu gostaria do BD para esudo sim.....

Fico no aguardo e muito obrigado.