Atualização de Dados

[Edilson Santiago]

Amigos, não sei se é esse o lugar correto para postar. Se não for, pesso à moderação que seja "paciente" comigo. rsrsr.

Estou criando uma aplicação comercial usando o Access.

No meu formulário "Pedido", no subformulário "CDetalhePedido", uso um código no evento "ao sair" do campo "quantidade", para atualizar meu estoque sempre que vender um produto.

O código é esse:

DoCmd.RunSQL ("update Produto set Quantidade= (quantidade-(Formulários![Pedidos]![CDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![Pedidos]![CDetalhePedido]![CodigoProduto]);")

Com isso, sempre que realizo uma venda, a quantidade vendida é automaticamente descontada do meu estoque, no campo "quantidade" da tabela "produto".

Funciona.

Só que, às vezes, por um erro de digitação ou cancelamento, etc, preciso excluir algum item da venda. Queria saber como fazer para, ao excluir esse item, o valor que estava no campo "quantidade" do formulário fosse somado à quantidade do meu estoque.

tentei usar o mesmo procedimento (somente alterando o sinal "-" para "+"), no evento "ao excluir", mas não funcionou. Alguma idéia?

Obrigado.

Editado Dezembro 6, 2010 por kuroi
Adicionar tag CODE

[Edilson Santiago]

Problema resolvido. Coloquei um botão com o seguinte código no evento "ao clicar":

DoCmd.RunSQL ("update produto set Quantidade= (quantidade+(Formulários![Pedidos]![CDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![Pedidos]![CDetalhePedido]![CodigoProduto]);")
Me.Refresh
    If MsgBox("Você confirma a exclusão do registro?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

      MsgBox "Registro excluído com sucesso!", vbInformation, "Informação"
    Else
      DoCmd.CancelEvent
    End If

Funcionou.

Obrigado pela ajuda.

Editado Dezembro 6, 2010 por kuroi
Adicionar tag CODE