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]Consulta por período/Data relatório

    Compartilhe

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 19/2/2018, 01:24

    Boa noite,

    Tenho uma consulta que registra pagamentos por clientes com diversas datas:


    Devedores DataPgto Quitado? Valor
    devedor1.............18/02/2018 Sim/Não 150,00
    devedor2.............01/01/2018 "" "' "
    devedor3.............03/02/2018 "" "" "

    Como faço para gerar um relatório só com os meses de fevereiro por devedor.
    Apesar de estar no formato data ../../.... como eu converteria os Relatório para aparecer o nome FEVEREIRO?



    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 19/2/2018, 10:36

    Edson

    Primeiro,  precisa fazer um formulário (Meuform) com uma caixa de combinação para que

    o usuário escolha o mês a pesquisar.

    Na caixa de combinação (Nome: cboMeses), em tipo de origem da linha, escolha lista de valores

    Na origem da linha digite:

    1;Janeiro;2;Fevereiro;3;Março;4;Abril;5;Maio;6;Junho;7;Julho;8;Agosto;9;Setembro;10;Outubro;11;Novembro;12;Dezembro

    copie e cole  Razz

    Deixe a primeira coluna com 0cm, para que somente os nomes dos meses sejam visualizados.

    Na consulta do relatório, na grade da consulta, crie um novo campo e  na linha Campo dessa coluna coloque:

    Mês:Mês(DataPgto) e na na linha critério dessa coluna  coloque:

    = Forms!Meuform!cboMeses

    Isso retornará os registros do mês escolhido.

    Como vc tem um campo Quitado? - sim/não,

    poderá fazer um grupo de opção nesse formulário para retornar os quitado ou não.

    Não esqueça de fazer um botão de comando para abrir o relatório

    [ ]'s


    Última edição por Noobezinho em 20/2/2018, 09:55, editado 1 vez(es)

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 19/2/2018, 14:06

    Nossa! Maravilhosa ideia!!! Vou seguir suas instruções e te falo se deu certo.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 19/2/2018, 14:10

    Ótimo

    Eu uso isso nos meus aplicativos.

    Aguardo teu retorno Wink

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 03:10

    Não consegui visualizar os meses.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 03:11

    Olha como aparece na caixa de combinação:

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 03:12

    Como eu poderia fazer isso:

    "Como vc tem um campo Quitado? - sim/não,

    poderá fazer um grupo de opção nesse formulário para retornar os quitado ou não."

    Teria algum exemplo para ajudar na visualização?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 10:31

    Como peguei o código de um aplicativo,

    escrevi  Caixa de combinação e o nome ficou o antigo (lstMeses) mas o correto é cboMeses.

    Então, acho que confundiu.

    Uma imagem vale mais que mil palavras, então veja, qualquer dúvida, retorne!

    Edson, clique para ver a imagem:

    [Você precisa estar registrado e conectado para ver esta imagem.]

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 14:23

    Agora deu certo. Só os valores da lista que não atualizam ao trocar na caixa de combinação. Tenho que forçar o atualizar para mudar. Como posso resolver?

    Agora o Grupo de opções não consegui programar. Consegui sim, fazer o modelo que propôs. 1-sim 2-Não e o nome da grupo gpQuitado.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 14:27

    Como vc faz para "Clique na imagem para expadir". Muito interessante para enviar imagens aqui no fórum.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 14:49

    Copie e cole na mensagem a sentença SQL da consulta da listbox, para nossa analise

    É a que está na propriedade origem da linha, na folha de propriedades.


    ---------------------
    "Como vc faz para "Clique na imagem para expadir"

    Ali uso dois expedientes:

    Primeiro como anexar imagem direto na mensagem

    veja ali embaixo na minha assinatura em vermelho: Como anexar imagem no teu post do fórum :

    No menu de edição tem botão escrito Spoiler, justamente para deixar minimizado textos grandes, ou alguma coisa

    que não tenha haver com o tópico.

    Eu utilizo para mostrar imagem, faço o primeiro processo e depois o segundo.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 17:40

    [Você precisa estar registrado e conectado para ver este link.]

    Veja se é isto o que me pediu.


    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 17:47

    O erro está nessa linha de código, vou deixar para que descubra.


    = Forms!Meuform!cboMeses

    Outra coisa Data é usado pelo Access, ou seja, é palavra reservada.

    Mude o nome do campo data pode ser ddata, ndata, dtReceita

    Como colocou Mês: Mes([Data]), é provável que retornara o mês da data atual.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 18:13

    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho, olhei tudo a caixa de combinação está nomeada como cboMeses a Lista está nomeada como list. Mudei a Data para DataPgto mas ainda falta o atualizar automático ao mudar na caixa de combinação. Realmente não sei mais o que fazer. Não consegui identificar o erro. Olha que tentei...

    = Forms!Meuform!cboMeses coloquei no assistente para ir completando com os campos. Será que o campo cboMeses seria o da list? realmente não tô conseguindo. Me dá uma dica.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 18:19

    E se  eu colocar assim?


    = Forms!NOMEDOFORMULÁRIO!cboMeses

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 18:28

    É que o formulário por incrível que pareça está nomeado como Meuform mesmo. rs

    Mas a fonte de Registro do meu formulário está em branco. Não fiz baseada em nenhuma consulta. O que está baseada na consulta é a Lista. Fiz um formulário com caixa de combinação não acoplada e uma list baseada na consulta Receitas.

    Será que é isto?

    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 18:45


    Humm, estamos lidando com uma listbox.

    Na propriedade após atualizar do grupo de opção clique gpQuitação coloque:

    me.list.requery

    e diga se funfou


    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 19:13

    [Você precisa estar registrado e conectado para ver este link.]

    Não filtrou. Não teria que ter um Código VBA para o filtro na lst.
    Desculpe não era list e sim lst. Corrigi. Mas não filtra.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 19:17

    Olha só. Coloque na caixa de combinação cboMeses no evento após atualizar e deu certo. Está funfando na lst para as datas. uhuuuu!

    Agora só falta o filtro no grupo de opções.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 19:24

    Experimente assim:


    Crie um botão de comando e coloque o código que colocou na combo, nesse botão junto com o código do grupo de opções.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 19:48

    O único código que tem na combo é Me.lst.Requery. Não entendi porque no Grupo de opções não tem código nenhum.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 19:53

    Porque não foi colocado

    melhor criar o botão e fazer o requery quando os dois controles estiverem preenchidos.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 20/2/2018, 19:56

    O código no grupo de opções ainda não tinhamos feito nenhum.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 20/2/2018, 20:24

    Vou repetir:

    Crie um botão de comando e coloque no evento Ao clicar:

    me.lst.requery

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 21/2/2018, 13:31

    Bom dia,

    Eu tinha feito o botão de comando e incluído o código Me.lst.Requery mas nada acontece.

    Eu me referia que o grupo de opções não tem nenhum código que possa filtra os dados da listbox.

    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 21/2/2018, 14:56



    O grupo de opção está nos critério da consulta da listbox?

    Abra a consulta da listbox em modo designer e clique no botão Modo de Exibição que está

    embaixo do botão Arquivo (canto superior esquerdo) e escolha SQL modo sql.

    Copie e cole aqui pra nós o SQL da consulta.





    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 21/2/2018, 17:43

    O grupo de opção está nos critério da consulta da listbox? Está apenas: Mês: Mês([DataPgto]) em novo campo e [Formulários]![Meuform]![cboMeses] em critérios.

    Código:

    SELECT Cadastro.CódCad, Receitas.Depositante, Receitas.Valor, Receitas.DataPgto, Receitas.Conta, Receitas.FormaPagto, Receitas.Banco, Receitas.[Pago?], Month([DataPgto]) AS Mês
    FROM FormaPgto INNER JOIN (Cadastro INNER JOIN Receitas ON Cadastro.CódCad = Receitas.Depositante) ON FormaPgto.CódFormPagto = Receitas.FormaPagto
    WHERE (((Month([DataPgto]))=[Formulários]![Meuform]![cboMeses]));

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 21/2/2018, 22:44

    Na consulta, na mesma linha de critérios que está [Formulários]![Meuform]![cboMeses],

    no campo Pago?, coloque:

    =[Formulários]![Meuform]!gpOpção  ' coloque o nome do grupo de opção e teste.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 22/2/2018, 01:18

    Nossa! agora funcionou direitinho!!! muito legal este aprendizado.

    Na nova análise, Antes ao escolher qualquer mês da combo e list filtrava automaticamente, agora depois que incluimos este comando do Grupo de opções, ao escolher qualquer mês na combo de meses a list não filtra mais automaticamente. Só aparece algum valor na list se eu clicar em sim ou não do grupo de opções. O que pode ser? É que as vezes é necessário visualizar todos os pagamentos do mês sejam pagos ou não. É possível criar a opção todos no grupo de opções?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 22/2/2018, 01:32

    Isso porque se deve escolher uma das opções do grupo de opções, antes não tinha ele, certo?

    Agora se ainda quiser que tenha a opção  que exiba tudo, quitado e não quitado, deverá fazer uma 3ª opção

    no grupo de opções.

    Vou copiar a minha mensagem para outro membro, caso queira implementar:


    Coloque uma caixa de texto vazia no seu formulário, pode deixar ela oculta.

    Dê-lhe o nome de txtFiltro

    Coloque a definição do Grupo de Opções, como Pago=1, Não Pago=2 e Todos=3

    No evento VBA depois da propriedade atualizar do seu Grupo de Opções, coloque:


    Private Sub gpFiltroAfter_Update()
    If Me.gpFiltro.Value = 1 Then Me.txtFiltro.Value = -1
    If Me.gpFiltro.Value = 2 Then Me.txtFiltro.Value = 0
    If Me.gpFiltro.Value = 3 Then Me.txtFiltro.Value = ""
    End Sub

    Agora no criterio do Campo Pago, na sua consulta que alimenta o relatório;

    Like "*" & [Forms]![SeuFormulario]![txtFiltro] & "*"




    [ ]'s

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  edjunho em 22/2/2018, 14:06

    Bom dia,

    Agora funcionou!!! Nossa muito bom. Muito obrigado, Mestre, por este aprendizado. Tens bastante conhecimento. Obrigado por partilhar. Muito obrigado mesmo. Vou guardar para sempre.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Consulta por período/Data relatório

    Mensagem  Noobezinho em 22/2/2018, 14:55

    Que isso!

    Sou apenas mais uma aprendiz, aprendendo sempre !

    Valeu pelo retorno


    Boa sorte!

      Data/hora atual: 16/11/2018, 04:01