[Resolvido]Ajuda com o DLookup para verificar saldo em estoque

Boa tarde prezados,

Estou adaptando algumas funções em um sistema de entradas e saídas e neste momento estou tendo problemas com a função DLookup, pois ela não está obedecendo os parâmetros.

Segue abaixo:


Private Sub txtQtde_BeforeUpdate(Cancel As Integer)
Dim varestoque As Integer
varestoque = DLookup("[estoque]", "CsestoqueLoja", "[txtCodProduto]= " & Me![txtCodProduto] & "")

If txtQtde.Value > varestoque Then
MsgBox ("Estoque insuficiente. Estoque atual desse produto: " & varestoque & ""), vbInformation, "Estoque de insuficiente"
DoCmd.CancelEvent
End If



End Sub


Csestoque é uma consulta que dá o saldo no campo [estoque]
txtcodproduto é o id do produto que estou selecionando e esperando comparar o saldo.


O que tem acontecido é que ele deixa eu passar do campo qtde mesmo que eu coloque um valor cujo saldo não exista.
Ele está apontando sempre o saldo do primeiro produto na lista da consulta.

Gostaria de ajuda para saber onde estou errando.

Obrigado

Bom dia.

Vamos por partes:

Esse campo txtCodProduto é numérico?

Se for, tente assim:

Código:



varestoque = DLookup("estoque", "CsestoqueLoja", "txtCodProduto= " & txtCodProduto)



Aqui pra ele não passar de campo, experimente:

Código:



If txtQtde.Value > varestoque Then
MsgBox ("Estoque insuficiente. Estoque atual desse produto: " & varestoque & ""), vbInformation, "Estoque insuficiente"
Me.txtQtde.SetFocus
Me.txtQtde = 0
End If



Qualquer coisa, poste esta parte do seu sistema pra gente analisar, fica mais fácil.

Boa tarde Cláudio!

O campo é texto curto.

Boa tarde.

Então veja esse tópico.

Vai te ajudar, porquê você está usando errado o DLookUp


https://www.maximoaccess.com/t1533-funcao-dlookup-explicacao#91427

Claudio, tentei achar a solução pelo link, mas infelizmente algo ainda passa batido.
Estou enviando o arquivo para analise, pois tenho certeza que de olhar você vai achar o erro.
Infelizmente ainda não possuo tanto conhecimento para esse analise.

Agradeço e estarei tentando em paralelo.

Olá pessoal!
Baixei o arquivo e fiz uns testes e deu tudo certo.
(Ou eu não entendi o problema)

Boa tarde Marcelo!

Agradeço desde já o tempo em poder me ajudar.

Então... o que está acontecendo é que o Dlookup está gravando na variavel "varestoque" sempre o primeiro item do formulário de produtos.
A ceveja neste caso tem 1.000 unidades em estoque, mas tirar 501 bloqueia porque está referenciando o saldo do refrigerante que é de 500.

O amigo Cláudio Machado indicou algum problema no filtro do Dlookup, mas eu li e não consegui entender como fazer.
O campo de [codproduto] é texto e me parece que o filtro está para números pq em outro sistema que peguei de exemplo é número.

Resumindo... me parece que o problema está no filtro da linha do dlookup.

Ah, fiz uns teste aqui e descobri o erro.

Seu Dlookup:
DLookup("[estoque]", "CsestoqueLoja", "txtCodProduto = '" & Form_FormVendas!txtCodProduto & "'")
"txtCodProduto = '" & Form_FormVendas!txtCodProduto & "'"

Você está comparando o campo txtCodProduto com txtCodProduto. Enquanto que deverá comparar CodProd com txtCodProduto.

Seu Dlookup deve estar assim:

DLookup("[estoque]", "CsestoqueLoja", "CodProd = '" & Me.txtCodProduto & "'")

Obs.: Form_FormVendas!txtCodProduto não é necessário já que está no próprio formulário. Basta fazer
assim: Me.txtCodProduto

Teste por favor.

Boa noite Marcelo,

Deu certo!

Eu já estava endoidando de tanto trocar aspas e demais sinais de lugar.
Agradeço imensamente a ajuda que me deu.

Forte abraço

Que ótimo que deu certo!
Não deixe de ver o artigo sobre Dlookup que @Cláudio Machado
indicou. Se já leu, releia para entender bem os conceitos do Dlookup.

Gratos pelo retorno.