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

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?

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  

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

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

Ótimo

Eu uso isso nos meus aplicativos.

Aguardo teu retorno

Não consegui visualizar os meses.

Olha como aparece na caixa de combinação:

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?

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:

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.

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

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.

https://i.servimg.com/u/f62/19/66/01/56/prest310.png

Veja se é isto o que me pediu.

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.

https://i.servimg.com/u/f62/19/66/01/56/prest310.jpg

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.

E se  eu colocar assim?


= Forms!NOMEDOFORMULÁRIO!cboMeses

É 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?

https://i.servimg.com/u/f62/19/66/01/56/prest311.jpg

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

https://i.servimg.com/u/f62/19/66/01/56/prest312.jpg

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.

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.

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.

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.

Porque não foi colocado

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

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

Vou repetir:

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

me.lst.requery

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.

https://i.servimg.com/u/f62/19/66/01/56/prest312.png

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.

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]));

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.

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?

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

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.

Que isso!

Sou apenas mais uma aprendiz, aprendendo sempre !

Valeu pelo retorno


Boa sorte!