[Resolvido]Devolver itens para o estoque após excluir

Olá pessoal
Estou com a seguinte questão:
Tenho um formulário e uma caixa de listagem com alguns produtos lançados, queria que ao excluir essa lançamento devolvesse o estoque de todos os produtos para a tabela cadastro de produtos campo estoqueAtual.

Segue exemplo:

Ola, de inicio tera que antes de excluir, abrir um recordset pegando todos os produtos lançados para esse movimento. Filtrando pelo Numero.... Assim tera os codigo e as quantidades de cada produto.

Em seguida abra um segundo recordset, que ira simplemente abrir a tabela onde armazena o total do estoque filtrando pelo codigo do produto. Esse recordet iremos editar o campo estoque e acrescentar a quantidade da venda que iremos excluir.
Tentarei postar o link de algo sobre... Mas estou celular.

Veja aqui:

https://www.maximoaccess.com/t30841-entrada-saida-de-estoque-no-clique-de-um-botao

Valeu Fábio, obrigado pelas dicas vou tentar implantar.
Fico no aguardo do link quando poder colocar.

Veja mais esse. Mais simples mas com os mesmos fundamentos.

https://www.maximoaccess.com/t29803-resolvidoatualizacao-estoque-por-loop-em-formulario-continuo#207298

Valeu Fábio, funcionou perfeitamente.
Para os que querem usar o código no meu exemplo ficou assim:

Código:

Private Sub btCancelarVenda_Click()

'---------------------------------------------------'
'              Criado por Fabio Paes                '
'        em 05/04/2017 Para MaximoAccess
'---------------------------------------------------'
Dim rs, rsE As DAO.Recordset
Dim F As Integer

DoCmd.RunCommand acCmdSaveRecord
'Abre uma consulta buscando todos os produtos lançados na ordem de compras atual.
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblVendaDet WHERE vendaID = " & Me.txtidVenda & "")

    Do While Not rs.EOF 'Irá repetir em quanto estiver registros na consulta feita anteriormente
    F = Nz(DCount("*", "tblCad_Produto", "codigoBarra = '" & rs!produtoID & "'"), 0) 'Aqui eu realizo uma verificação para saber se o produto ja tem algum estoque
        If F > 0 Then 'Se ja tiver algum estoque, irei apenas atualizar o estoque
            Set rsE = CurrentDb.OpenRecordset("SELECT * FROM tblCad_Produto WHERE codigoBarra = '" & rs!produtoID & "'")
            rsE.Edit
            rsE("estoqueAtual") = rsE!estoqueAtual 'Coloco o estoque antigo no campo estoque anterior
            rsE("estoqueAtual") = rsE!estoqueAtual + rs!qtdVenda 'Somo o estoque antigo + a qnt pedida
            rsE.Update
        Else 'Se não tiver estoque, terei que inserir o produto e lançar seu estoque
            Set rsE = CurrentDb.OpenRecordset("tblCad_Produto")
            rsE.AddNew 'Adiciono o registro na tabela e insiro os valores dos campos
            rsE("codigoBarra") = rs!estoqueAtual
            rsE("EstoqueAtual") = rs!qtdVenda
            rsE.Update
        End If
    rs.MoveNext
    Loop

'Ao final, finalizo todas as conexões abertas e limpo a memoria utilizada para armazenar as consultas
rs.Close
Set rs = Nothing
rsE.Close
Set rsE = Nothing
MsgBox "Estoque Atualizado com Sucesso!!!", vbInformation, "Sucesso"

End Sub

Bacana Amigo. Ate a proxima se Deus quiser.