[Resolvido]Problema ao excluir produto no pdv

Boa noite gente que a paz esteja com todos.
Bom é o seguinte baixei esse bd aqui no fórum e dei uma adaptada para a minha esposa usar na lojinha de bijuterias dela.
O problema é que por exemplo: Um cliente pede um par brincos + uma pulseira e depois mais dois pares de brinco. Total de brincos 3 pares dai o cliente resolve não levar os três pare e diz para tirar 1 ficando assim 2 pares de brinco.

Problema:Ao excluir o brinco brinco exclui todos mas só estorna 1 par de brincos ou seja da um desfalque no estoque de 2 pares.
O pdv só está estornando o último lançado.
Estou enviando o bd para que vocês possam analisar.

Grande abraço e fiquem com Deus.

Especifique a tabela... campo e formulário.

Cumprimentos.

Lança 2 pares de Brinco >>> Brinco da Valdirene
Lança 1 par de Brinco >>> Mesmo tipo de brinco ou tipo diferente?

Fiz uma venda de 3 brincos da valdirene.. Retirou 3 do estoque.. Cancelei e voltou os 3 normalmente.

Estive vendo os códigos.. e está feito com Classes.. Eu não gosto de trabalhar da forma como foi feito...
Poderia arrumar porem... de outra forma.. Caso queira informe e verei isto pra ti.

Cumprimentos.

Ao cancelar eles retornam sim o problema é ao excluir um dos itens tendo lançado mais de um, dai ele retorna apenas o último...

Gostaria Sim piloto que revise para mim.
Muito agradecido e fico no aguardo
Forte abraço.

Verei isto, porém amanha.

Cumprimentos.

Tranquilo Piloto sem pressa.
Desde já agradeço.

No botão excluir substitua o código por este:

Dim codigoProduto As String
Dim IntQtd As Integer
  
  If Not IsNull(txtCodigoVenda) Then
    codigoProduto = InputBox("Informe o código do produto a ser excluído:", _
    "Exclusão de Produto")
    txtProdutoQtd.SetFocus
  Else
    Exit Sub
  End If
  
  If codigoProduto <> "" Then
    If IsNumeric(codigoProduto) Then
        'Coloca na variável a soma das quantidades do mesmo produto para a venda corrente
        IntQtd = DSum("qtdProduto", "DetalheVenda", "codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & "")
        'Deleta o registro na tabela DetalheVenda
        CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & ""
        'Atualiza o estoque na tabela Produto
        CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & IntQtd & " WHERE CodProduto = " & codigoProduto & ""
    Else
      MsgBox "Código de produto inválido!", _
      vbExclamation, "Exclusão de Produto"
      txtProdutoQtd.SetFocus
    End If
  End If

Cumprimentos.

Muuito obrigado pela ajuda  Piloto, sou apaixonado por programação mas, agora que me aposentei que estou com tempo para me dedicar.
Ano que vem vou fazer mais uma facul a de Ciências da Computação e espero um dia poder ajudar no fórum como estou sendo ajudado.
Forte abraço irmão e que Deus o abençoe sempre!

PS. Não achei o botão "Resolvido"...

Logo abaixo acima e a direita do botão que envia a mensagem encontrará o botão de resolvido. clique no mesmo depois clique em enviar.

cumprimentos.

Valeu mesmo pela ajuda que Deus o abençoe.

O Fórum agradece o retorno.