Baixa em Estoque

Boa tarde a todos,

Desculpe estar inserindo outro topico, eu sei que existem centernas de post relacionado a este assunto;

tenho um form de Venda, itemVenda, Pagamento e produto. gostaria que ao descarregar a venda, os produtos vendidos fossem baixados automaticamente;

Pensei em algo que vi no exemplo do mestre Harysohn sobre consulta exclusao, inclusão e atualização, Entao pensei em algo assim:

CurrentDb.Execute "update", tblProduto, setquantidade = Quantidade - ""

Alguem poderia me ajudar a solucionar este problema por favor?

Então faça um pequeno teste, qualquer coisa assim;

CurrentDb.Execute "UPDATE tblProduto SET quantidade = Nz(quantidade,0)-Nz(CampoSaída,0) WHERE CodProduto = " & Me.CodProduto & ""

Olá amigão obrigado pela força, no meu formPagamento não tem o codigoProduto, então eu tentei fazer assim:

CurrentDb.Execute "UPDATE tblProduto SET quantidade = Nz(quantidade,0)-Nz(CampoSaída,0) WHERE CodigoProduto = " & (Forms!frmItemVenda.codigoProduto) & ""

Mas não deu certo, tambem tentei assim:

CurrentDb.Execute "UPDATE tblProduto SET quantidade = Nz(quantidade,0)-Nz(CampoSaída,0) WHERE CodProduto = " & Me.CodProduto & ""

tambem não consegui fazer, poderia me auxiliar por favor?

Você tem de colocar esse codigo após atualizar do seu campo quantidade a saír.

E veja os nomes corretos dos campos;

Private Sub CampoSaída_AfterUpdate()
CurrentDb.Execute "UPDATE tblProduto SET quantidade = Nz(quantidade,0)-Nz(CampoSaída,0) WHERE CodProduto = " & Me.CodProduto & ""
End Sub

Obrigado pela ajuda JPaulo>>>>


No evento apos atualizar no campo quantidade do form ItemVenda

CurrentDb.Execute "UPDATE tblProduto SET quantidade = Nz(quantidade,0)-Nz(quantidade,0) WHERE CodigoProduto = " & Me.CodigoProduto & ""

Mas deu erro.

Olá meus amigos boa tarde,

Alguma ideia?