[Resolvido]Comando não baixa no estoque

É hoje a coisa esta mesmo complicada aqui.

Tenho o seguinte código, porem o mesmo não esta dando baixa no estoque. Ei-lo:

Private Sub Qtdsaida_AfterUpdate()

a = PrecoVenda * QtdSaida
Me.Total1.Value = a

'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( combobox)
Qtdest = DLookup("saldo", "estoque", "idtipoextintor =" & Me.CodMaterial & "")

' 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![frmOS]![subfrmOS].[Form]![qtdsaida]" _
& "where estoque.CodMaterial=Forms![frmOS]![subfrmOS].[Form]![CodMaterial]"
DoCmd.SetWarnings True

End Sub

Em vermelho é onde esta o problema.

Penso que assim funfa, mas só testando;

DoCmd.RunSQL "UPDATE estoque SET saldo=estoque.saldo-Forms![frmOS]![subfrmOS].[Form]![qtdsaida]" _
& " WHERE estoque.CodMaterial=" & Forms![frmOS]![subfrmOS].[Form]![CodMaterial]

Bom dia Paulo,

Negativo...não funfa !

Grande Silvio, anexe aqui parte do seu banco ou um pequeno exemplo, por favor.

Ok.....

Menu / ordem de serviço / busca cliente e gera Os.

Eu coloquei a baixa ao digitar a quantidade de saída de peças.

Em tempo, ainda não está pronto o programa, falta alguns acabamentos nele.

Grato JPaulo.

Grande, dei uma olhada superficial e....

Encontrei alguns equivocos por ae, até porque o CodMaterial na tabela Estoque é texto;

Alterei sem testar, veja se funfa;


Dim IntSaldo As Integer
' Aqui carrego a variável com a quantidade no estoque, veja que filtro utilizando o codigopeca( combobox)
IntSaldo = DLookup("saldo", "estoque", "IdTipoextintor =" & Me.CodMaterial & "")
IntSaldo = Val(IntSaldo)
                'campo   tabela    'campo             combosubformulario
' Aqui verifico se o estoque está zerado para o produto
If IntSaldo = 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 IntSaldo < Val(Me.Qtd.Value) Then
MsgBox "Estoque atual... menor que a quantidade solicitada !!" & Chr(10) & Chr(10) & "Estoque atual = " & Qtd, vbInformation, "Atenção"
Me.Qtd.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 estoque.saldo=estoque.saldo-Forms![frmos]![subfrmos].Form![Qtd]" _
& " where estoque.codmaterial='" & Forms![frmos]![SubfrmOS].Form![CodMaterial] & "'"
DoCmd.SetWarnings True

JPaulo, não funfou...sem baixa no estoque.

Teste com o item SC-001, dando baixa em 10....fui ao estoque e continua 10.

Retificação, agora testado.... 

O CodMaterial está na Column(1)...



Dim IntSaldo As Integer
' Aqui carrego a variável com a quantidade no estoque, veja que filtro utilizando o codigopeca( combobox)
IntSaldo = DLookup("saldo", "estoque", "IdTipoextintor =" & Me.CodMaterial & "")
IntSaldo = Val(IntSaldo)
                'campo   tabela    'campo             combosubformulario
' Aqui verifico se o estoque está zerado para o produto
If IntSaldo = 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 IntSaldo < Val(Me.Qtd.Value) Then
MsgBox "Estoque atual... menor que a quantidade solicitada !!" & Chr(10) & Chr(10) & "Estoque atual = " & Qtd, vbInformation, "Atenção"
Me.Qtd.SetFocus
Exit Sub

End If

'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque
CurrentDb.Execute "update estoque set saldo=saldo-" & Val(Me.Qtd.Value) & " where estoque.codmaterial='" & Me.CodMaterial.Column(1) & "'"

JPaulo...
Boa tarde.
Estou em um cliente agora, mas assim que chegar ao escritório eu testo a function.

Bom dia JPaulo.....


110% funcional.

Grato Mestre !

Abraços

Obrigado pelo retorno o forum agradece.