[Resolvido]Como Subtrair produto do meu estoque?

bom dia estou tentando criar um sistema me access e nao estou conseguindo fazer com que ele subtrair produtos do meu estoque ou seja da tabela tbl_produto

tenho: o formulário de Pedidos dentro de um subformulario com campo quantidade.

queria que quando sai-se do campo  quantidade ele desse o abatimento no meu estoque de produto

Antonio

Se deduz a quantidade de uma venda, somente quando concluir a venda.
Isso evita a fazer outra operação, caso a venda não for concretizada.
Para isso utiliza-se código VBA em um botão de comando.

Sugiro que procure aqui no fórum pro controle de estoque, vendas, etc...

Irá encontrar muitos exemplos.

[ ]'s

Veja aqui como foi feito nesse tópico, baseado nas instruções do Nobezinho.
https://www.maximoaccess.com/t27015-resolvidoerro-ao-dar-baixa-no-estoque

boto ao clicar em um botão, subtraio no form mesmo, o estoque,, e abro um novo registro na tabela de movto para quando o cliente quiser saber o que foi vendido naquela data ou qual produto vendeu mais etc.,,,

Adapte a sua necessidade

*****************************************************************
If Me.Estoque_Atual <= 0 Then
If MsgBox(" Atenção - Estoque ficará abaixo de 0 ou Negativo - Deseja continuar ? ", vbInformation + vbYesNo, " Confirmação") = vbNo Then
MsgBox " Abandonando Movimentação ", vbInformation, "Sistema de Controle de Estoque"
Exit Sub
End If
End If
Me.Estoque_Atual = Me.Estoque_Atual - Me.QuantALancar
Me.DataSaida = Date
Dim db As Object
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tblMovto", dbOpenDynaset)
rs.AddNew
rs!DataMovto = Date
rs!HoraMovto = Time()
rs!Tipo = "S"
rs!VlrMovto = (Me.VendaaLancar * Me.QuantALancar) - Me.Desc
rs!Fornecedor = 0
rs!Quantidade = Me.QuantALancar
rs!VinculoProduto = Me.Codigo
rs!Lancado = -1
rs!HoraMovto = Time()
rs!Atendente = Me.Usuario
rs!Cliente = Me.ClienteCod
rs!NumeroSerie = Me.Serie
rs!DiasValidade = Me.Garantia
rs!Obs = Me.ObsALancar
rs.Update
MsgBox " Estoque Subtraído - Pressione Enter para voltar a pesquisa", vbInformation, "Sistema de Controle de Estoque"
DoCmd.Close acDefault

***************************************

Obrigado amigo sua resposta foi de Grande Importância.

Deu Certo