[Resolvido]Transferir valor de um formulário para um relatório

Bom dia, senhores,
A idéia é transferir um valor "Geral" para um label no relatório Cadastro:

Private Sub btn_RelGer_Click()

DoCmd.OpenReport "Cadastro", acViewReport
Report!Cadastro.lbl_tiporel.Caption = "Geral"

End Sub

Na segunda linha é paontado um erro e não executa.

Boas....

Supondo, em tese que o formulário irá permanecer aberto para a impressão do relatório pode-se usar a seguinte linha em uma label desacoplada nomeada de Lblxxxx( xxx=nome qualquer )


No evento ao abrir ou ao carregar ou no atual do relatório, essa label tem que estar no relatório.
lblxxx.caption = Forms!Seuformulario!campoGeral

Então segui as suas instruções:

O Formulário Relatório tem 2 botões Geral e Fiscalização.
Inseri o campo lbl_nometipo.
Dependendo do botão vou inserir um rótulo diferente:

Private Sub btn_RelFisc_Click()
DoCmd.OpenReport "Cadastro", acViewReport
Forms!Relatório.lbl_nometipo.Caption = "Fiscalização"
End Sub

Private Sub btn_RelGer_Click()

DoCmd.OpenReport "Cadastro", acViewReport
Forms!Relatório.lbl_nometipo.Caption = "Geral"

End Sub

e no relatório Cadastro onde na label_tiporel
incluí =Forms!Relatório.lbl_nometipo
Só que não funfou

Penso que a segunda linha que transfere o valor está com um erro de sintaxe ou comando não apropriado.
Desculpe-me mas estou tateando o VBA Access.

Apenas repetindo o que eu escrevi..

Leia com atenção:

No evento ao abrir ou ao carregar ou no atual do relatório, essa label tem que estar no relatório.
lblxxx.caption = Forms!Seuformulario!campoGeral

Ou seja...

abre o relatório no modo desing.
crie a label
nomeia ela a seu gosto
No evento ao abrir ou ao carregar ou no atual do relatório, essa label tem que estar no relatório.
lblxxx.caption = Forms!Seuformulario!campoGeral

Bom dia Sílvio,
Tentei de todas as formas seguir suas instruções. Infelizmente não deu certo.
Mudei então a abordagem. Como estou querendo transferir dados para o relatório "Cadastrto" de dois forms diferentes, o Ano do form "Menu de Controle" (já resolvido) e o Tipo do form "Relatório" , sendo que o Tipo pode ser Fiscalização ou Geral inseri uma Combinação16 com estes dois valores. Deixei ainda os dois botões para abrir cada um dos tipos de relatórios.
Sei que está redundante, mas seleciono o Tipo na Combinação16, por exemplo Fiscalização.
Clico no botão Fiscalização e tudo funfa direitinho, transfere os dois valores.
Queria que quando selecionasse o campo, fizesse o seguinte código, que sei que está errado:

Private Sub btn_RelFisc_Click()
DoCmd.OpenReport "Cadastro", acViewReport, , Tipo = "Fiscalização"
End Sub

Sei que o argumento está errado. Queria selecionar o Tipo "Fiscalização" na tabela "Cadastro".
Quando seleciono Geral na combinação 16 e pressiono o botão Geral:

Private Sub btn_RelGer_Click()
DoCmd.OpenReport "Cadastro", acViewReport
End Sub

A minha idéia é executar o procedimento sem os botões.
Nos botões estou usando macros.
Como já disse sou grosso em VBA, nunca fiz curso e estou pensando em adquirir um dos livros citados acima. Para um novato como eu qual o mais indicado?

Saudações,
Luiz

Bom dia,

Coloque aqui no fórum a tua base de dados para que possamos lhe ajudar da melhor forma.

Quanto aos estudos, a melhor forma e maneira...é aqui no fórum mesmo, na pratica, acertando e errando para que o aprendizado se fixe na mente.

Foi assim que eu aprendi !

No aguardo do envio da base de dados.

Bom dia.
Estou enviando cópia do meu arquivo. Exclui todas as figuras para diminuir o tamanho.
Boas,
Luiz

Bom dia, senhor Avelino,
Seguindo as suas instruções ao pé da letra:

Erro em tempo de execução "13"
Tipos incompatíveis

Qual será a razão?
Saudações,
Luiz

Bom dia mestre Avelino,
Gostei, muito elegante!
Agradeço muito,
Luiz