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


2 participantes

    [Resolvido]referir-se a um relatorio

    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    [Resolvido]referir-se a um relatorio Empty [Resolvido]referir-se a um relatorio

    Mensagem  sergiosdl 23/1/2015, 12:46

    saudações pessoal.
    Estou batendo cabeça a um tempo em executar um comando em um relatório. O comando que preciso executar e funciona é o que esta abaixo:

    Reports!Orcamento_Panfleto_1.Imagem1.Picture = CurrentProject.Path & "\imagens\" & Me.nom_arq

    O comando é até simples, porém o problema é que o nome do relatório : que no exemplo acima é :Orcamento_Panfleto_1, deve ser obtido de um campo do formulário atual. o nome do campo que armazena o relatório é Nome_relatorio. Tentei fazer da seguinte maneira que não funcionou.

    Reports! & Me.Nome_relatorio & .Imagem1.Picture = CurrentProject.Path & "\imagens\" & Me.nom_arq

    tentei tambem da seguinte forma que tambem não deu certo
          Dim relat As AccessObject
          Set relat = CurrentProject.AllReports(Me.Nome_relatorio)
          Reports!relat.Imagem1.Picture = CurrentProject.Path & "\imagens\" & Me.nom_arq

    já precisei fazer algo parecido em varias outras partes do sistema e não consegui.

    Abraços


    Última edição por sergiosdl em 24/1/2015, 10:50, editado 3 vez(es) (Motivo da edição : Erro de Ortografia)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]referir-se a um relatorio Empty Re: [Resolvido]referir-se a um relatorio

    Mensagem  Avelino Sampaio 23/1/2015, 14:48

    Olá!

    Veja como fazer neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp?id=1#inicio

    Aguardamos


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    [Resolvido]referir-se a um relatorio Empty Re: [Resolvido]referir-se a um relatorio

    Mensagem  sergiosdl 23/1/2015, 18:56

    Grande Avelino
    Entrei no site pra postar a solucao que encontrei, e talvez possa ser melhorada, e vi sua resposta, o que com certeza irei estudar. Muito Obrigado
    Tomei como base ma resposta do Jpaulo e deu certo:

    Public Function relator(nomerelatorio As String, nomecamp As String, conteudocamp As String) ' funcao extraída do site maximoaccess e adaptada autor Jpaulo
    Dim relat As AccessObject, relataberto As Access.Report, tcamp As Control
    For Each relat In CurrentProject.AllReports
    If relat.Name = nomerelatorio Then
    Set relataberto = Reports(relat.Name)
    For Each tcamp In relataberto.Controls
    If tcamp.Name = nomecamp Then
    tcamp.Picture = conteudocamp 'CurrentProject.Path & "\imagens\" & Me.nom_arq
    End If
    Next tcamp
    End If
    Next relat


    End Function

    para chamar a funcao fiz:

    Call relator(Me. Nome_relatorio, "Imagem1", CurrentProject.Path & "\imagens\" & Me.nom_arq)

    Créditos ao Jpaulo no tópico: http://maximoaccess.forumeiros.com/t225-resolvidospadronizar-titulos-e-propriedades-dos-objetos-do-sistema

    Abraço a todos, Obrigao

    Conteúdo patrocinado


    [Resolvido]referir-se a um relatorio Empty Re: [Resolvido]referir-se a um relatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:26