MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Histórico de compra de cliente

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 640
    Registrado : 12/04/2016

    [Resolvido]Histórico de compra de cliente Empty [Resolvido]Histórico de compra de cliente

    Mensagem  marcelo marques em 13/9/2019, 15:46

    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
    Anexos
    [Resolvido]Histórico de compra de cliente Attachmenthistorico cliente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 8 vez(es)
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 897
    Registrado : 01/03/2014

    [Resolvido]Histórico de compra de cliente Empty Re: [Resolvido]Histórico de compra de cliente

    Mensagem  Celso Roberto Ontem à(s) 05:21

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 640
    Registrado : 12/04/2016

    [Resolvido]Histórico de compra de cliente Empty Re: [Resolvido]Histórico de compra de cliente

    Mensagem  marcelo marques Ontem à(s) 23:58

    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) & "")
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 897
    Registrado : 01/03/2014

    [Resolvido]Histórico de compra de cliente Empty Re: [Resolvido]Histórico de compra de cliente

    Mensagem  Celso Roberto Hoje à(s) 04:15

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 640
    Registrado : 12/04/2016

    [Resolvido]Histórico de compra de cliente Empty Re: [Resolvido]Histórico de compra de cliente

    Mensagem  marcelo marques Hoje à(s) 15:23

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

    Conteúdo patrocinado

    [Resolvido]Histórico de compra de cliente Empty Re: [Resolvido]Histórico de compra de cliente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/9/2019, 23:55