Erro ao atualizar o Estoque

Ola amigos

Estou usando o codigo  o qual funciona perfeitamente nas outras aplicações minhas a diferença dessa é que o Banco de Dados dessa está em Mysql ,



Mensagem do Erro



Código utilizado

Código:

Private Sub Qtdade_AfterUpdate()
[Estoque Atual] = [Estoque Atual] - [Qtdade]

End Sub


Tabela Mysql



Alguem pode me dar um auxilio.

Ola Amigos,

Mudei meu código e não está mais dando o erro como anteriormente, porém ele só funciona na 1 linha se tiver mais de 1 produto ele puxa o valor da saida da linha anterior mais a qtdade que eu lançar na linha seguinte.

Código:

Private Sub Qtdade_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE produtos Set [produtos].[Estoque Atual] = [produtos].[Estoque Atual]- " & Me.Qtdade & " WHERE [intes_saida].[Produto] = '" & Me.Produto & "'"
DoCmd.SetWarnings True

End Sub



aTT

Alguém??

'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque
DoCmd.SetWarnings False
DoCmd.RunSQL "update SuaTabela set SeucampoSaldo= SeucampoSaldo- Forms![FormularioPrincipal]![SubFormulario].Form![qtd]" _
& " where SuaTabela.ChavePrimaria=Forms![FormularioPrincipal]![SubFormulario].form![ChavePrimaria]"

Ola Silvio

Usei seu exemplo porém da erro de sintaxe de UPDATE

Código:

Private Sub Qtdade_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "update produtos set Estoque Atual= Estoque Atual - Forms![Material Consumo Saida]![Itens Pedido].Form![Qtdade]" _
& " where produtos.REF=Forms![Material Consumo Saida]![Itens Pedido].form![REF]"

End Sub

Boas...
O código funciona e está correto o que eu te passei.

Creio o que está errado é a forma a qual você colocou os campos.