[Resolvido]Problemas com Dlookup

Porque Dlookup não retorna valor do campo LucroReal ?

Veja frmpontodevenda , utilize código 100 para testes.

https://www.dropbox.com/s/1s3owxnexkjsi18/Teste.zip?dl=0

Poste tb a linha do codigo

Forms!frmpontodevenda!frmdetalhesvenda!LucroReal = DLookup("lucroreal", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")

up

Se o campo "CódigoBarras" for do tipo número, tente retirar as aspas simples.
Forms!frmpontodevenda!frmdetalhesvenda!LucroReal = DLookup("lucroreal", "Tab_Produto", "CódigoBarras=" & Forms!frmpontodevenda!Idprodutovv0 & "")

O campo código barras é texto.
O que acontece que para códigos de balanças onde a quantidade é fracionada funciona perfeitamente, mas para códigos inteiros 13digitos não funciona
exemplo código 200101012345 funciona
código 100 não funciona
código 7896079500151 não funciona.

Fiz algumas correções no seu código:
1 - Na linha 10 existe o seguinte código:

Código:

If Idois = "2" Then

Isto quer dizer que se o código de barras do produto começa com "2" será processada o procedimento logo em seguida. Por isso os códigos "100" e "7896079500151" não funcionam.
Na linha 68 existe um "Else". Isto que dizer que se o código de barras não começar com "2", será adotado o procedimento seguinte, no caso os códigos "100" e "7896079500151" se encaixam aqui.

2 - Na linha 23 existe o código:

Código:

Forms!frmpontodevenda!frmdetalhesvenda!LucroReal = DLookup("lucroreal", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")

Este código preenche o campo LucroReal. Este mesmo código não existe no "Else" que comentei acima, por isso o campo LucroReal não é preenchido se os códigos não começarem com "2". Incluí o código abaixo na linha 81 para resolver problema:

Código:

Forms!frmpontodevenda!frmdetalhesvenda!LucroReal = DLookup("lucroreal", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!codbarras & "'")

Agora uma dica, tente incluir tabulações ao longo do código para facilitar buscas e entendimentos futuros de como funcionam os procedimentos. Assi mserá mais fácil localizar algum possível erro. Por exemplo:

Código:


If condição then
      executar comando
Else
      executar outro comando
      If outra condição then
            executa mais um comando
      End if
End if


Segue seu arquivo no link: Teste

Espero ter ajudado.

Ótimo halmeida analise perfeita
As vezes o erro está na nossa cara e não vemos.
Muito Obrigado!

Boa tarde

Tem outro erro para corrigir.

Teste o codigoBarras 2010800

Assis este código apresenta erro porque o valorunitario na tab produto estava 0,00 é necessário qu seja preenchido este campo com algum valor .