[Resolvido]Colocar Váriveis em Relatório

Boas ...

Ando com um problema que está dificil resolução.

Tenho uma variável que preciso de mandar Relatório ... como faço?

Ao clicar num botão quero que ele me coloque o valor de X no relatorio "RelatorioMensal". Alguém sabe como fazer?

'#####################################
Private Sub Comando195_Click()

x = 1+1
DoCmd.OpenReport "RelatorioMensal", acViewReport

Essa variável se encontra no form ou no relatório? Ou está em um módulo? Fale mais sobre ela. Conte tudo, não esconda nada

Ah ok !!!

A váriavel está num procedimento do Form. Ao clicar num determinado botão do Form, ele executa o procedimento que é colocar uma váriável (que neste caso menciono como o X =1+1, para simplificar) no Report e abri-lo.

Está explicito?

Creio que sim. Imagino que queria colocar essa variável em um campo do relatório, é isso mesmo? Seria algo mais ou menos assim:

Private Sub Comando195_Click()
x = 1+1
DoCmd.OpenReport "RelatorioMensal", acViewReport
Reports!RelatorioMensal!NomeDoCampo = x

Tente e veja se é isso mesmo.

Eu tentei:

Private Sub Comando195_Click()

D = 2

DoCmd.OpenReport "RelatorioMensal", acViewPreview

Reports!RelatorioMensal!Texto3 = D

(Sendo o texto3 o campo no Report e não deu nada )

Se trocar acViewPreview por acViewReport deve funfar.

Mas o AcViewReport faz a impressão automática do Relatório certo?

De qualquer dos modos não me imprimiu com o numero 2 ...

Será que só posso ter variáveis nos reports vindas de uma tabela / consulta?

Tente assim: coloque uma caixa de texto oculta no formulário e coloque a variável no evento "Ao carregar" do form. No mesmo evento, coloque:

Me.SuaCaixaDeTextoQueVaiFicaOculta = NomeDaVariável

No evento "Ao carregar" do relatório:

Me.NomeCampo = Forms!NomeDoForm!CaixaDeTextoOcultaDoForm

Consegui criando as Textbox com as váriáveis no Form (invisiveis), e associando as TextBox no relatório ás textbox's do Formulário.

Fica pouco complicado porque são cerca de 12 variáveis ... mas ok resolve .

Estou a pensar é que se calhar, como são muitas variávei mais vale carregar os valores numa tabela

Dave

São variáveis a mais e ainda à pouco tempo tive um problema semelhante com uma BD de um colega seu aqui do fórum. Você mesmo deu a solução, carregar os valores numa tabela é a melhor solução.

Já que estamos a falar em carregar valores numa tabela, está-me a dar um erro... Sempre tive alguma dificuldade neste tipo situações, porque algumas vezes dá bem num determinado programa ... quando faço em outro deixa de dar acho que o meu problema é na inicialização de variáveis ...

Como deverá ser? Porque é que nesta instrução dá erro a executar a ultima linha .. Erro 3219
Tabela tem 3 colunas ... | Data | Idade | Nome |

########################################

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strsql As String


J = 2
A = Date
D = "David"


strsql = "INSERT INTO [Temp] Values('" & A & "','" & J & "','" & D & "');"
Set db = CurrentDb
Set rs = db.OpenRecordset(strsql)

#########################################

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strsql As String
Dim J As Variant
Dim A As Date
Dim D As String

J = 2
A = Date
D = "David"


strsql = "INSERT INTO [Temp] (A,J,D) Values(#" & A & "#," & J & ",'" & D & "');"
Set db = CurrentDb
Set rs = db.OpenRecordset(strsql)

Amigão boa tarde!!

Vá a um módulo e declare sua variavel

Global X as integer


No formulário faça o procedimento que tiver que fazer antes de abrir o relatório

X = 1
X = X + 1
X = X / 1

docmd.openreport ...

No seu relatório no open ou no detalhe

SEU CAMPO = X

Teste ai...

Dim db As DAO.Database
só vi o seu código mais tarde ... mas tentei com:


Dim rs As DAO.Recordset
Dim strsql As String
Dim J As Variant
Dim A As Date
Dim D As String

J = 2
A = Date
D = "David"


strsql = "INSERT INTO [Temp] (A,J,D) Values(#" & A & "#," & J & ",'" & D & "');"
CurrentDb.Execute strsql

e também funcionou na perfeição ... obrigado ajuda

Não esquecer de dar o tópico por terminado, apertando o botão "Resolvido"

Oi Amigo

Em relação á variável Global não consegui a colocar a funcionar ...mas ainda vou tentar mais umas vezes ... pode ser que tenha sido algum problema meu ao executar.

De qualquer dos modos muito obrigado ajuda