[Resolvido]Saida de produtos maior que o estoque

Boa tarde amigos. Estou tentando adaptar um código aqui para que quando eu digitar a quantidade de saida do produto e esta saida for maior que a quantidade no estoque, apareça uma mensagem informado que a saida e maior que a quantidade existente no estoque mais não estou a conseguir.. Estou tentando assim. Ate..

If DCount("idestoque", "tblestoque", "Nome ='" & Me!Nome & "' and quantidade < '" & Me!saida & "'") then

msgbox"Mensagem"

Maybe something like below:

If DCount("idestoque", "tblestoque", "Nome ='" & Me!Nome & "'") < Me!saida  then

Com a tua permissão Criquio....

eu uso este código em uma caixa de texto, no evento após atualizar a mesma...

Código:


'função para dar a baixa no estoque.
Dim QtdEst As Integer ' Variável para armazenar a quantidade em estoque da mercadoria

' Aqui carrego a variável com a quantidade no estoque, veja que filtro utilizando o codigopeca
QtdEst = DLookup("saldo", "estoque", "idpeca =" & Me.CodigoPeca & "")

' Aqui verifico se o estoque está zerado para o produto
If QtdEst = 0 Then
MsgBox "Produto.... zerado no estoque !!!"
Exit Sub
End If


' Aqui verifico se a quantidade que vai ser baixada existe no estoque, se for maior emite mensagem
If QtdEst < Str(Me.QtdSaida) Then
MsgBox "Estoque atual... menor que a quantidade solicitada !!" & Chr(10) & Chr(10) & "Estoque atual = " & QtdEst, vbInformation, "Atenção"
Me.QtdSaida.SetFocus
Exit Sub

End If


'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque
DoCmd.SetWarnings False
DoCmd.RunSQL "update estoque set saldo=saldo-Forms![OrdServico]![sfsaidapeca].Form![qtdsaida]" _
& " where estoque.idpeca=Forms![ordservico]![sfsaidapeca].form![codigopeca]"
DoCmd.SetWarnings True

É só adaptar....

Valeu amigo obrigado, era isso que eu precisava.. Sucesso

Bom dia..

O fórum agradece o retorno.