Controle de estoque

o código funciona perfeito ele apaga a venda normalmente, so que se for feito uma venda com vários item e depois apagar esta venda o código só retorna para o estoque o primeiro item da venda apagada.
os outro item não retorna para o estoque.

PRIMEIRA SENHA 1234
SEGUNDA SENHA 931346


SEGUE O LINK

https://www.dropbox.com/s/hdq9mczbqw43iwp/Recibo%20de%20Cliente.accdb?dl=0

Boa noite amigo,

vc precisa liberar o código VBA bloqueado do seu programa.

Abraços,

bom dia meu amigo

a senha do vba e 931346

Desculpa amigo, mas sem sucesso as senhas .

Abraços

Boas....

Aqui vai uma dica para retorno ao estoque.

Coloque um botão em cada produto e nesse botão uma rotina de exclusão do item, e uma rotina de retorno para o estoque desse item.

Pode parecer meio estranho, mas, sinceramente ajuda muito quando se trata de usuário.

Algo parecido com isso..

Código:

Private Sub excluir_Click()
'aqui deleto o produto, caso seja inserido errado ou excluído voltando a quantidade para o estoque.
If MsgBox("Deseja mesmo excluir esse produto ?" & vbCrLf & _
          "Produto:" & Me.ProdutoOculta & "    /  " & "Qtd: " & Me.Qtd & vbCrLf & _
          "Essa quantidade    " & (Me.Qtd) & "    irá retornar para o estoque !", vbQuestion + vbYesNo, "Aviso") = vbNo Then
          Me.Undo
          Exit Sub
          Else
         
DoCmd.SetWarnings False
DoCmd.RunSQL "update TblEstoque set saldo=saldo+[Forms]![FrmVenda]![FrmSubVenda]![qtd]" _
& " where TblEstoque.IdProduto=[Forms]![FrmVenda]![FrmSubVenda]![IDProduto]"
DoCmd.SetWarnings True
CurrentDb.Execute "DELETE * FROM TblSubVenda WHERE IdVenda=" & Me.IdVenda & ""
Me.Requery
End If

End Sub

Boas grande Sílvio,

Abraços