MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Soma por cliente e por período de datas

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Soma por cliente e por período de datas Empty [Resolvido]Soma por cliente e por período de datas

    Mensagem  Silvio Qua 30 Jul 2014, 12:41

    Prezados, retorno mais uma vez aqui solicitando uma ajuda.

    Faltando pouco para terminar o projeto para o cliente, preciso separar despesas por mês ( data inicial e final ) e por cliente.

    Sei que falta-me conhecimento então solicito ajuda de vocês.

    Vamos:

    a- tenho um formulário denominado: frmrecebemec, nesse formulário tenho duas caixas de textos ( DI e DF ) desaclopadas onde busco o período para ver as despesas.
    b- tenho uma combobox onde busco o cliente. Nessa combobox, no evento depois de atualizar fiz o seguinte comando:

    Private Sub cbomec_AfterUpdate()

    Me.idmec = Me.cbomec.Column(0)
    Me.NomeMecanico = Me.cbomec.Column(1)
    Me.cbomec = Null

    Me.TG1 = DSum("tg", "qrydespesamec1", "idmec=" & Me.idmec)

    End Sub



    c- o que eu não estou conseguindo, por falta de conhecimento, é inserir a DI e a DF junto com o Dsum, para somar o que tem no período.


    Grato a quem puder me ajudar.


    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Soma por cliente e por período de datas Empty Re: [Resolvido]Soma por cliente e por período de datas

    Mensagem  Marcelo David Qua 30 Jul 2014, 13:25

    Uma possível solução seria já filtrar as datas na qrydespesamec1, daí procederia normalmente.


    .................................................................................
    [Resolvido]Soma por cliente e por período de datas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Soma por cliente e por período de datas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Soma por cliente e por período de datas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Soma por cliente e por período de datas Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Soma por cliente e por período de datas Empty Re: [Resolvido]Soma por cliente e por período de datas

    Mensagem  Avelino Sampaio Qua 30 Jul 2014, 13:34

    Olá!

    Experimente:

    Private Sub cbomec_AfterUpdate()
    Dim filtroData$
    Me.idmec = Me.cbomec.Column(0)
    Me.NomeMecanico = Me.cbomec.Column(1)
    Me.cbomec = Null
    filtroData = "NomeCampoData Between #" & format(me!d1,"mm/dd/yyyy") & "# AND #" & format(me!df,"mm/dd/yyyy") & "#"
    Me.TG1 = DSum("tg", "qrydespesamec1", "idmec=" & Me.idmec & " AND " & filtroData)
    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Soma por cliente e por período de datas Empty Re: [Resolvido]Soma por cliente e por período de datas

    Mensagem  Silvio Qua 30 Jul 2014, 13:51

    Bom dia Avelino e Marcelo, grato a vocês por me orientarem nessa questão.

    Avelino acertou em cheio, era apenas um filtro que faltava.

    Mas pergunto, como vai ter muitas entradas nessa Query, tem como ajuntar tudo pelo ID, pois na combo o mesmo fica repetindo. Na consulta mandei agrupar, mas sem resultados.

    Tem jeito isso ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Soma por cliente e por período de datas Empty Re: [Resolvido]Soma por cliente e por período de datas

    Mensagem  Silvio Qui 31 Jul 2014, 10:52

    Bom, resolvido dessa forma...

    strsql = "SELECT QrydespesaMec1.NomeMecanico, Sum(QrydespesaMec1.TG) AS SomaDeTG FROM QrydespesaMec1 GROUP BY QrydespesaMec1.DataPedido, QrydespesaMec1.NomeMecanico, QrydespesaMec1.Idmec HAVING (((QrydespesaMec1.DataPedido) Between [forms]![frmrecebemec]![di] And [forms]![frmrecebemec]![df]));"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Soma por cliente e por período de datas Empty Re: [Resolvido]Soma por cliente e por período de datas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 07 Nov 2024, 18:37