[Resolvido]Mesmo Relatório Para Diversos Formulários

Pessoal,

Eu uso diversos formulários, mas todos eles possuem os campos DataInicial e DataFinal. Dentre os botões desses formulários, há um que gera um mesmo relatório X. Eu gostaria de exibir DataInicial e DataFinal nesse relatório X. O problema é que o nome dos formulários varia. Então, existe como eu fazer uma referência "genérica"? Do tipo, colocar algo assim numa caixa de texto do relatório:

[Forms]!["Referência genêrica"]![DataInicial]

Se não for possível, como faço para reaproveitar esse relatório sem precisar criar um para cada formulário só por conta da referência ao nome do form?

Obrigado

Boa noite, Alisson
Crie duas variáveis globais.
Armazene as datas nas variáveis e utilize-as no relatório

Alexandre,

Obrigado pela dica. Criei as variáveis globais em um módulo chamado DatasGlobais:

Option Compare Database
Option Explicit

Global DataIniGlobal As Date
Global DataFimGlobal As Date

Nos formulários, antes de abrir o relatório X, eu faço a seguinte atribuição:

DataIniGlobal = DataIniForm
DataFimGlobal = DataFimForm

Onde DataIniForm e DataFimForm é nome das caixas de texto que recebem as datas digitadas pelo usuário.

No relatório X, eu coloquei o seguinte nas respectivas caixas de texto:

[Modules]![DatasGlobais]![DataIniGlobal]
[Modules]![DatasGlobais]![DataFimGlobal]

Não dá erro, mas as datas não aparecem no relatório. Sabe dizer por quê?

E se só puser no relatório X
=DataIniGlobal
=DataFimGlobal

Não funcionou. Colocando desse modo ele passa a pedir o valor do parâmetro.

Esqueci de mencionar, mas esse formulário também usa dados de uma tabela, além das duas datas que vêm do formulário.

Utilize rótulo e atribua
NomeRotulo1.caption=DataIniGlobal
NomeRotulo2.caption=DataFimGlobal

Alexandre,

Não dá certo. Se eu usar rótulo, só aparece o texto do rótulo. Não funciona como uma referência.

Como servir de referência? Para utilizar em código dentro do relatório? tente, a partir do rótulo, utilizar ...=convdate(Rotulo.caption)

O que quis dizer é que se eu usar um rótulo com o texto =DataIniGlobal (ou qualquer coisa semelhante) o que aparece no relatório é =DataIniGlobal (ou seja, o texto que eu digitei) e não a data que está armazenada na variável global DataIniGlobal.

Se eu colocar numa caixa de texto chamada Texto 34 o seguinte:

=[Texto34].[Legenda]=[DataIniGlobal]

parece que o Access tenta acessar o valor da variável global DataIniGlobal, mas está aparecendo isso: #Nome?

Deve estar faltando alguma coisa...

Coloque um rótulo e chame-o de RtlDataInicial
Ao abrir do relatório, coloque RtlDataInicial.caption=datainiglobal

Fiz exatamente isso e por algum motivo que desconheço o relatório para de abrir. Aliás parece que se eu colocar qualquer coisa no evento Open o relatório não abre.

Experimentei aqui e funcionou

Aqui aparece o erro: "O objeto não aceita esta propriedade ou método"

Deve ter algo errado aqui no meu.

Qual versão do Access você usa? (Esqueci de mencionar que o projeto que estou fazendo é no Access 2002)

Nem eu sei...
Tenho o 2007 instalado neste computador, mas tinha todas as bd's em 2003. estes dias, surgiu um assunto sobre Ribbons (viu?) e, porque estou de férias e andava a adiar mexer com ribbons, comecei a converter para 2007. Aí, deu alguns problemas de bibliotecas e estou a trabalhar nem sei qual. Amanhã vou vindimar e, no Domingo, espero definir com que versão irei trabalhar. Aproveitando, Vale a pena mudar para 2007?

Alexandre,

Muito obrigado pela ajuda. Consegui fazer! Faltava recorrer à boa e correta Orientação a Objetos. Criei uma função getDataIni para retornar a variável global para o relatório.

Public Function getDataIni() As Date
getDataIni = DataIniGlobal
End Function

No relatório o rótulo RtlDataInicial recebe o valor:

=getDataIni()

Valeu mesmo pela ajuda!

É estranho, mas se funcionou, funcionou
Sempre que resolva, marque