[Resolvido]Histórico de compra de cliente

Boa tarde pessoal estou tentando criar um formulário de histórico de compra de cliente no qual já fiz alguma coisa é gostaria de saber como buscar em uma consulta a soma de parcelas em atraso através do "dsum" também teria que ver o total em aberto alguém tem outra forma melhor e mais informativa de histórico de compra de cliente? Aceito sugestões desde já obrigado


Veja o anexo abaixo

Ola..

Código:

Public Sub somaValores()

On Error Resume Next
Me.txtTempo_de_cliente = DLookup("CLI_DATA_CADASTRO", "tbl_cliente", "txt_cliente='" & CboPesquisa_Historico & "'")
Me.txtvencidas = Nz(DSum("valor_parcela", "cs_historico_do_cliente", "dt_vencimento < date() And IsNull(Dt_Pgto)"), 0)
Me.txtpagar = Nz(DSum("valor_parcela", "cs_historico_do_cliente"), 0)
Me.txtpago = Nz(DSum("valor_pago", "cs_historico_do_cliente"), 0)

Me.UltimaCompra = DLast("[txttotalvenda]", "tbl_Vendas", "[Cliente] = " & Me.CboPesquisa_Historico.Column(0) & "")

Me.dtUltimaCompra = DMax("[datavenda]", "cs_historico_do_cliente", "[txt_cliente] = '" & Me.CboPesquisa_Historico & "'")

Me.txtem_aberto = Nz(DSum("valor_parcela", "cs_historico_do_cliente", "IsNull(Dt_Pgto)"), 0)

End Sub

Faça testes e retone

Abraços

Boa noite Celso muito obrigado pela força esta dando erro no código última compra no dlast Erro 3075 já tentei mais sem sucesso


O caminho de histórico de compra é por esse rumo mesmo ou devo tirar algo ou acrescentar

Tira uma dúvida quando devo usar o nome entre parentes porque eu não uso também não sou muito bom estes códigos

Me.UltimaCompra = DLast("[txttotalvenda]", "tbl_Vendas", "[Cliente] = " & Me.CboPesquisa_Historico.Column(0) & "")

Olá...

Para corrigir este erro, elimine o procedimento que esta no evento atual do formulario.
ele ocorre porque a combobox esta vazia e a linha do Dlast precisa de um cliente selecionado na combo para ele fazer a verificação

e também porque voce já esta chamando o Public Sub somaValores() no evento antes e após atualizar a combobox


Aguardo

Abraços

Bom dia Celso era exatamente isso fiz umas mudanças na caixa de listagem ficou muito bom obrigado mais uma vez

Olá..

Fico feliz por ter ajudado

O Fórum agradece o seu retorno

Abraços e sucesso