[Resolvido]Somar itens repetidos

Olá pessoal estou mais uma vez pedindo a ajuda de vocês.

Tinha iniciado essa dúvida nesse tópico, como o foco do tópico era outro resolvi criar um tópico específico para essa dúvida.
Tópico anterior: https://www.maximoaccess.com/t26959-resolvidopdv_pliniomabesi

Estou querendo somar os produtos repetidos na hora da venda conforme tela a baixo, mais quando lança o produto a segunda vez dar essa mensagem de erro:


Estou usando esse código para tentar fazer a soma dos produtos repetidos:

Código:

Sub AtaulizaQtde()
Dim Soma As Variant
'Verifica se o produto ja está gravado na tabela DetalheVenda se sim apenas atualiza a quantidade e desconto
If DCount("codVenda", "DetalheVenda", "CodVenda =" & Me.txtCodigoVenda & " and CodProduto ='" & Me.txtCod & "'") Then
        
    'ATUALIZA A TABELA DetalheVenda
    CurrentDb.Execute "Update DetalheVenda Set QtdProduto = QtdProduto + (""" & Me.txtQtd & """), SubTotal=Subtotal + ('" & Soma & "') Where CodVenda = " & Me.txtCodigoVenda & " and CodProduto ='" & Me.txtCod & "'"
    
    'Atualiza o Estoque
    CurrentDb.Execute "Update Produto Set QtdEstoque = QtdEstoque - (""" & Me.txtQtd & """) Where CodProduto ='" & Me.txtCod & "'"

End If
End Sub

Segue exemplo:

Boa tarde,
Não percebi como chegar à dúvida. Deu 'Ocorreu um erro ao incluir o vendedor'
No entanto, vejo que tem DCount sem comparar quantidade do cálculo

If DCount("codVenda", "DetalheVenda", "CodVenda =" & Me.txtCodigoVenda & " and CodProduto ='" & Me.txtCod & "'") falta comparar com quantidade Then

Olá Alexandre Neves obrigado pela força

Esse erro do vendedor ocorre se não colocar o vendedor na hora da venda

Quanto DCount, creio que ele está verificando se o código do produto se repete na mesma venda.
If DCount("codVenda", "DetalheVenda", "CodVenda =" & Me.txtCodigoVenda & " and CodProduto ='" & Me.txtCod & "'") Then

Boa tarde,
Aconselho a completar a expressão da função DCount

Dá erro porque txtQtd está nulo e Soma está vazio

É verdade Alexandre Neves precisa fazer esses ajustes, já tentei e não consegui. Como esse código não é de minha autoria estou tendo dificuldade de completar e colocar para funcionar.

Olá a todos,
Gilbertanio, está com dificuldades porque o código não é seu!
Eu também tenho dificuldade ao analisar.
Tive o mesmo problema do vendedor mencionado pelo colega Alexandre Neves.
Pode não afetar para a sua analise, mas afeta quem não conhece o projecto e tenta ajudar.
Se o vendedor não faz falta nem é necessário, não deveria estar lá, além que não deveria ser impeditivo para adicionar um registo.

Poderá iniciar pela sugestão do colega Alexandre Neves na mensagem n.4
Abraço

Olá ahteixeira obrigado pela ajuda. É verdade estou tenho muito dificuldade porque esse código não é de minha autoria

O código de somar produtos repetidos foi me passado por formiga nesse tópico na mensagem 12.
Mas não está completo como falou o Alexandre Neves na mensagem n.4. Faz dias que venho quebrando a cabeça mais não consegui ainda.
Assim que conseguir posto a solução aqui.
Obrigado mais uma vez.

Boa noite pessoal.

Gil veja neste projeto que estou a desenvolver. Nele faz a soma da quantidade caso já tenha lançado o produto.

PS. Barra de Espaço para abrir os forms de buscas "Produto / clientes"

Como no seu caso o PDV foi desenvolvido focando em obj então faça as alterações no módulo clsDetalheVenda...

Evento Insert...

Código:

'Método Incluir [Com conhecimento de SQL]
'Inclui um novo objeto na tabela correspondente
'dentro do Banco de dados
Function incluir() As Boolean
On Error GoTo Err_incluir

    Dim objCon As New aclConexaoBD
    Dim strSql As String

    strSql = "Insert Into " & _
            "DetalheVenda(codProduto,codVenda,qtdProduto,PrecoVenda) " & _
            "Values(" & objCon.valorSql(CStr(codProduto)) & "," & _
                objCon.valorSql(codVenda) & "," & _
                objCon.valorSql(qtdProduto) & "," & _
                objCon.valorSql(PrecoVenda * qtdProduto) & ")"

    incluir = (objCon.executa(strSql) > 0)

    If incluir Then
        'Atualiza os campos de backup
        bkpCodProduto = codProduto
        bkpCodVenda = codVenda
    End If

Exit_incluir:
    Exit Function

Err_incluir:
    incluir = False
    GoTo Exit_incluir


Evento Update...

Código:

'Método Salvar [Com conhecimento de SQL]
'Salva o objeto atual na tabela correspondente
'dentro do Banco de dados
Function salvar() As Boolean
On Error GoTo Err_salvar

    Dim objCon As New aclConexaoBD
    Dim strSql As String
If DCount("codVenda", "DetalheVenda", "CodVenda =" & bkpCodVenda & " and CodProduto ='" & CStr(bkpCodProduto) & "'") Then

        strSql = "Update DetalheVenda " & _
                "Set codProduto = " & objCon.valorSql(CStr(codProduto)) & _
                ", codVenda = " & objCon.valorSql(codVenda) & _
                ", qtdProduto = qtdProduto + " & objCon.valorSql(qtdProduto) & _
                ", PrecoVenda = PrecoVenda + " & objCon.valorSql(PrecoVenda * qtdProduto) & _
                " Where codProduto = " & objCon.valorSql(CStr(bkpCodProduto)) & _
                " and codVenda = " & objCon.valorSql(bkpCodVenda)

        salvar = (objCon.executa(strSql) > 0)
    Else
        salvar = incluir
    End If

    If salvar Then
        'Atualiza as variáveis de backup
        'com o novo valor da chave
        bkpCodProduto = codProduto
        bkpCodVenda = codVenda
    End If

Exit_salvar:
    Exit Function

Err_salvar:
    salvar = False
    GoTo Exit_salvar

End Function

Como li acima que gostaria de retirar o vendedor ai está o bd sem o vendedor.

PS. Não apaguei a classe nem as chamadas do objeto vendedor pois, caso necessite de por um vendedor como ex. usuário que está logado será bem mais prático aproveitar o código já pronto apenas adicionando uma variável global para receber o nome do user e passando como parâmetro para o obj.Vendedor.

Olá Elias, obrigado pelas orientações e alterações.
Aguardamos o retorno do colega Gilberlanio.

Este projecto (PDV) do Plínio Mabesi faz parte de um artigo a explicar como se trabalha com Classes.
Fica o link do artigo para quem pretender aprofundar, recomendo vivamente.  
Abraço

Perfeito tópico resolvido. Fiz da forma que o formiga colocou e funcionou perfeitamente.

Agradeço profudamente a esses caras que ajudaram na resolução desse tópico:
formiga
ahteixeira
Alexandre Neves

Sucesso a todos vocês

Olá a todos,
Gil obrigado pelo retorno, não se esqueça de dar o tópico como resolvido.
Abraço

Bem lembrado
Obrigado