[Resolvido]Atualizar estoque

Colegas Boa tarde.
Tenho 2 formulários,(TbEstoque é tbVendas) um onde fica os itens e outro que excluiu o item,ou Seja,  o formulário de excluirnutem é acesso privilegiado.
No estque ;3 DVDs
Foi adicionado na 2 DVDs (o estoque tem 1)
Ao excluir o item na venda esses 2 tem que voltar para o estoque somando com o que já tem.
Não consigo pelo

Código:

If MsgBox("Deseja realente excluir esse item? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
CurrentDb.Execute "update tbEstoque set Quantidade= Quantidade + Quntidade "


End If
End Sub

pra fechar o sistema preciso disso

Boa tarde,


Supondo que você esteja selecionando o produto pela chave primária,

tente assim:

If MsgBox("Deseja realente excluir esse item? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
CurrentDb.Execute "UPDATE tbEstoque SET Quantidade=" & (Quantidade + Quntidade) & " WHERE CodigoDoProduto = " & SeuCodigoDoProduto & ";"
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If

Onde:

Quantidade = seria o campo de quantidade do produto filtrado na tbEstoque
Quntidade = seria o campo com a quantidade a ser devolvida ao estoque
CodigoDoProduto = ID, Código, CodigoDoProduto, ou seja a chave primária do produto a ser estornado.

Até mais.

teria posto esse, vou revisar , pq não deu erro de sintaxe, mas não funciona

não se esqueça de verificar o tipo dos campos, as vezes está como texto e no código tratando como numérico e vice versa..

resolvido, estava buscando a chave primária de outra tabela com a chave de outra formulário que estava dando certo na formulário em outro from.
da para acreditar, também um monte de código que fiz, me embolei tudo.

Beleza, para não se perder, você pode fazer comentários em seus códigos

' Valida a exclusão
If MsgBox("Deseja realente excluir esse item? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
' Desativa os avisos do sistema
DoCmd.SetWarnings False
' Atualiza a tabela .....
CurrentDb.Execute "UPDATE tbEstoque SET Quantidade=" & (Quantidade + Quntidade) & " WHERE CodigoDoProduto = " & SeuCodigoDoProduto & ";"
' Seleciona e deleta o registro atual
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

End If

Até a próxima...