MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Relatório transferir dados

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 18/04/2018

    [Resolvido]Relatório transferir dados Empty [Resolvido]Relatório transferir dados

    Mensagem  fernando rodrigo zanchini em 20/8/2020, 19:30

    Boa tarde.
    Alguém sabe me dizer como faço para transferir um valor da caixa de texto de formulário para um rotulo ou mesmo outra caixa de testo do relatório?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    Registrado : 13/12/2016

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  Alexandre Fim em 20/8/2020, 20:33

    Boa tarde,
    "Transferir"?

    É só criar um relatório com a(s) tabela(s) onde consta o campo desejado.
    Ao executar o relatório, o valor do campo será exibido.

    É isso?




    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 18/04/2018

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  fernando rodrigo zanchini em 21/8/2020, 13:49

    Bom dia
    não é um valor que ira constar em tabela, só momentâneo em caixa de testo no formulário e no relatório também em caixa de testo ou em rótulo
    Se fosse de form para form usaria:

    Forms![frm_Venda].caixatesto1 = Exemplo
    Forms![frm_Venda].Rótulo43.Caption = "EXEMPLO"

    E de um form para relatório como faço?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    Registrado : 13/12/2016

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  Alexandre Fim em 21/8/2020, 15:12

    Olá Fernando,

    Conforme o exemplo que vc mencionou, pode ser feito desta maneira:

    Forms![frm_Venda].caixatesto1 = "EXEMPLO"
    Forms![frm_Venda].Rótulo43.Caption = Forms![frm_Venda].caixatesto1


    Esta rotina se aplica ao relatório também.

    Espero ter ajudado

    Att,





    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 18/04/2018

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  fernando rodrigo zanchini em 21/8/2020, 16:05

    não funcionou!
    coloque um exemplo do que preciso.
    Anexos
    [Resolvido]Relatório transferir dados AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    Registrado : 13/12/2016

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  Alexandre Fim em 21/8/2020, 16:22

    Olá Fernando,

    Estava ocorrendo o erro pq a instrução estava incorreta e fechando o form antes de abrir o relatório.
    Erro:
    Forms![Relatorio].Rotulo.Caption => não existe forms com nome "Relatório"

    Correto:
    Reports![Relatorio].Rotulo.Caption => existe relatório com nome "Relatorio"

    Segue o código correto:
    Código:


    'Abre o Relatório
    DoCmd.OpenReport "relatorio", acViewReport, "", "", acNormal

    'Edita os campos com os dados do form
    Reports![Relatorio].Rotulo.Caption = Me.BT1.Caption
    Reports![Relatorio].CaixaTexto2.Value = Trim(Me.CaixaTexto1)

    'Fecha o form
    DoCmd.Close acForm, "frm_form", acSaveYes


    Segue versão do exemplo.

    Espero ter ajudado.

    Boa sorte
    Anexos
    [Resolvido]Relatório transferir dados AttachmentExemplo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 4 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 18/04/2018

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  fernando rodrigo zanchini em 21/8/2020, 17:11

    Obrigado
    cheers cheers cheers cheers cheers
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    Registrado : 13/12/2016

    [Resolvido]Relatório transferir dados Empty Re: [Resolvido]Relatório transferir dados

    Mensagem  Alexandre Fim em 21/8/2020, 18:17

    Valeu Fernando !!!
    O fórum agradece.

    Boa sorte no teu projeto.

    Abraço


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 22/9/2020, 18:57