[Resolvido]Verificar Saldo no Estoque

Boa Tarde a todos,

Estou adaptando um código em um formulário de entrada para estoque e nesse código preciso que o saldo do estoque seja checado antes de dar saída: Exemplo: No formulário tenho produto que irei dar saida ,preciso verificar se na tabela produtos esse determinado item tem a quantidade que está querendo ser retirada se a quantidade do estoque for menor que a informada na saida emitir uma msg e não dar baixa, este é o código que estou utilizando só que ele não faz isso da saida mesmo se a quantidade no estoque for menor ai fica negativo.

Public Sub IncluirProduto()
Dim QtdeItens As Integer
Dim Qtde As Integer
Dim SubTotal As Double
Dim Total As Double
Incluir = True
If Incluir = False Then Exit Sub
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsAtualizaEstoque"
DoCmd.SetWarnings True
' Me.LimpaProduto
Me.Lst_Historico.Requery
Me.Lst_Historico.Selected(Me.Lst_Historico.ListCount - 1) = True
'Me.cmdEstornar.Enabled = False
Incluir = False
Me.Lst_Historico.SetFocus
Me.TxtEntrada1.Value = "0"
Me.txtHistorico.Value = ""
Me.txtData.Value = ""
Me.txtConta.Value = ""
Me.Preco.Value = ""

Me.Requery


Exit Sub

veja se serve

p = [produto]
c = [Entrada de Estoque]
x = DLookup("[Estoque]", "Tabela Produtos", "[Estoque]< " & c & " and [produto]='" & p &"'")
If Not IsNull(x) Then
MsgBox "Estoque Insuficiente"
Exit Sub
End If

obs:[Estoque](campo estoque da tabela "tabela produtos");[produto](campo produto ou codproduto da tabela "tabela produtos")

Desculpa a demora da resposta pois tive alguns problemas em meu Pc agora que consegui recuperar o projeto, então coloquei o código que vc me sugeriu está aparecendo erro tipo de dados incompativeis o código ficou da seguinte maneira: coloquei uma breve explicação em frente os campos

p = [TxtEntrada1] ' Se trata de um campo não acoplado que tem no formulário onde é digitado a qtd de saida que comparo com campo da tabela
c = [Estoque] ' é o campo da tabela produtos a ser comparado
X = DLookup("[Estoque]", "Produtos", "[Estoque]< " & c & " and [txtentrada1]='" & p & "'")
If Not IsNull(X) Then
MsgBox "Estoque Insuficiente"
Exit Sub
End If

onde possa estar errando?

amigo, o ideal é que vc poste parte do seu projeto para que vc tenha uma ajuda mais eficiente.

como voce vai comparar um produto específico, tambem voce tera que mencionar qual o produto ou codproduto

faça desse jeito

se o campo [produto] for texto
X = DLookup("[Estoque]", "Produtos", "[Estoque]< " & me.[txtentrada1] &" And [produto]='" & me.[produto] &"'")

se o campo produto for numero "[cod_produto]"
X = DLookup("[Estoque]", "Produtos", "[Estoque]< " & me.[txtentrada1] &" And [cod_produto]=" & me.[cod_produto])

if Isnull(x) then
msgbox("Estoque Insuficiente! Qtd: "& x )
end if

Caros amigos não sei se entendi muito bem mas, o campo txtentrada1 como disse é um campo não acoplado ao meu form onde digito a quantidade que quero de saida e o campo estoque é da tabela Produtos onde quero fica armazenado a quantidade do produto e tenho o campo descricao onde é discriminado o poduto diante disso coloquei o código assim como sugerido pelo amigo Clebergyn:

p = [TxtEntrada1]
c = [Estoque]
X = DLookup("[Estoque]", "Produtos", "[Estoque]< " & Me.[TxtEntrada1] & " And [descricao]='" & Me.[Descricao] & "'")
If Not IsNull(X) Then
MsgBox "Estoque Insuficiente"
Exit Sub
End If

ainda assim permanece o erro tipo incompativel da expressão de critérios.   ObS todos os campos estao com formato texto.

Observei também que quando aparece o erro o código não esta fazendo a comparação com o mesmo produto que estou dando saida

Resolvi assim:

Dim stDocName As String
Dim stLinkCriteria As String
Dim TotEstoque As Long

TotEstoque = CLng(Me.txtsaldo1)
If Me.txtentrada1 > TotEstoque Then
MsgBox "A quantidade em estoque é insuficiente. Estoque atual é de " & TotEstoque & " medicamentos.", vbInformation + vbOKOnly, "Estoque Baixo"
Me.txtentrada1 = ""
End If

Obrigado a todos pela colaboração