MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

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

    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 14/6/2022, 13:03

    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.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

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

    Mensagem  Silvio 14/6/2022, 13:19

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 14/6/2022, 14:06

    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
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 14/6/2022, 14:12

    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.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

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

    Mensagem  Silvio 14/6/2022, 14:25

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 15/6/2022, 13:55

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

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

    Mensagem  Silvio 15/6/2022, 14:09

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 15/6/2022, 14:25

    Bom dia.
    Estou enviando cópia do meu arquivo. Exclui todas as figuras para diminuir o tamanho.
    Boas,
    Luiz
    Anexos
    [Resolvido]Transferir valor de um formulário para um relatório AttachmentInfSPSP1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (120 Kb) Baixado 4 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3782
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio 15/6/2022, 21:28

    Olá!

    Acredito que fique bem simples se o senhor passar valor pelo argumento OpenArgs do comando Docmd.openReport. Exemplo:

    DoCmd.OpenReport "Cadastro", acViewReport, , , , Me!Combinação16


    E lá no campo do relatório, na propriedade Fonte de controle, coloque:

    =[Relatório].[AbrirArgs]


    Sucesso!




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 20/6/2022, 13:02

    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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3782
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio 22/6/2022, 11:32

    Olá!

    Segue as modificações.

    Sucesso!
    Anexos
    [Resolvido]Transferir valor de um formulário para um relatório AttachmentInfSPSP1_rev1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (117 Kb) Baixado 5 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Assis gosta desta mensagem

    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

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

    Mensagem  lerasmo 22/6/2022, 14:36

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

      Data/hora atual: 6/10/2022, 08:14