[resolvido] Intervalo de datas

Moderador: Avelino Sampaio

Vicentim
Mensagens: 18
Registrado em: 30 Set 2016, 13:42

[resolvido] Intervalo de datas

Mensagempor Vicentim » 03 Jan 2018, 13:02

Bom dia a todos!
No meu projeto tenho diversos relatórios com intervalos de datas, quando o relatório tem mais de uma página este intervalo aparece apenas na primeira, nas demais o campo data inicial e data final aparece vazio, não sei como resolver. Alguém pode me ajudar.
De antemão agradeço.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1858
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: intevalo de datas

Mensagempor Avelino Sampaio » 03 Jan 2018, 13:25

Vicentim,

os campos data inicial e final estão no cabeçalho do relatório ? Vc os preenche com as informações vindas de um formulário ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Vicentim
Mensagens: 18
Registrado em: 30 Set 2016, 13:42

Re: intevalo de datas

Mensagempor Vicentim » 03 Jan 2018, 14:36

Sr. Avelino bom dia e feliz ano novo!
Os campos data inicial e final estão no cabeçalho de página e são oriundos de um um formulário onde escolho o tipo de relatório e o intervalo de datas.

Avatar do usuário
Avelino Sampaio
Mensagens: 1858
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: intevalo de datas

Mensagempor Avelino Sampaio » 03 Jan 2018, 15:18

Vicentim,

como vc os preenche ? através do VBA ou pela lista de proprieadades ? Pela propriedade Fonte do Controle do campo, monte algo assim:

Código:
Fonte do Controle =Forms!NomeDoFormulário!NomeDoCampoDataInicial


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Vicentim
Mensagens: 18
Registrado em: 30 Set 2016, 13:42

Re: intevalo de datas

Mensagempor Vicentim » 03 Jan 2018, 15:36

Sr. Avelino!
A fonte de controle do campo está assim:
Campo Data Inicial: =[Formulários]![frmDialogoRelatorios]![txtDataInicial]
Campo Data Final: =[Formulários]![frmDialogoRelatorios]![txtDataFinal]
O formulário (frmDialogoRelatorios) é carregado por consulta, (uma para cada tipo de relatório) onde o campo "DataBaixa" tem o seguinte critério:
- É Negado Nulo E Entre [Forms]![frmDialogoRelatorios]![txtDataInicial] E [forms]![frmDialogoRelatorios]![txtDataFinal].

Avatar do usuário
Avelino Sampaio
Mensagens: 1858
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: intevalo de datas

Mensagempor Avelino Sampaio » 03 Jan 2018, 16:33

Vincentim

Fiquei sem ideia do que pode ser. Pode anexar aqui um BD, somente com o formulário e relatório envolvidos ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Vicentim
Mensagens: 18
Registrado em: 30 Set 2016, 13:42

Re: intevalo de datas

Mensagempor Vicentim » 03 Jan 2018, 16:55

Segue arquivo
Teste.rar
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Vicentim
Mensagens: 18
Registrado em: 30 Set 2016, 13:42

Re: intevalo de datas

Mensagempor Vicentim » 03 Jan 2018, 17:04

No formulário escolha a opção "Lançamentos Detalhados"
No intervalo de datas informe de 01/11/2017 até 30/11/2017
Obrigado.

Avatar do usuário
Avelino Sampaio
Mensagens: 1858
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: intevalo de datas

Mensagempor Avelino Sampaio » 03 Jan 2018, 17:34

Vicentim,

a questão é que vc fecha o formulário após abertura do relatório. Quando vc então passa para a página seguinte do relatório, este tem que fazer uma nova consulta ao formulário, para preencher os campos de data e então ocoore o erro porque esta fechado o formulário.

Vamos utilizar uma outra técnica, que é passar os valores para o argumento OpenArgs, ficando assim a linha no formulário:

Código:
...
DoCmd.OpenReport Me!Lista.Column(2), acViewPreview, OpenArgs:= Me!txtDataInicial & "|" & txtDataFinal
...


No evento Ao Carregar do relatório, capturamos os valores para os campos.

Código:
Private Sub Report_Load()
Dim k
k = Split(Me.OpenArgs, "|")
Me!DataInicial = k(0)
Me!DataFinal = k(1)
End Sub


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Vicentim
Mensagens: 18
Registrado em: 30 Set 2016, 13:42

Re: intevalo de datas

Mensagempor Vicentim » 03 Jan 2018, 19:03

Sr. Avelino, como sempre sua intervenção foi perfeita.
Agradeço muito sua ajuda.
Como faço para dar o tópico como resolvido?

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes