MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]referir-se a um relatorio

    Compartilhe

    sergiosdl
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]referir-se a um relatorio

    Mensagem  sergiosdl em Sex 23 Jan 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 Sab 24 Jan 2015, 10:50, editado 3 vez(es) (Razão : Erro de Ortografia)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]referir-se a um relatorio

    Mensagem  Avelino Sampaio em Sex 23 Jan 2015, 14:48

    Olá!

    Veja como fazer neste meu artigo:

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    sergiosdl
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]referir-se a um relatorio

    Mensagem  sergiosdl em Sex 23 Jan 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: [Você precisa estar registrado e conectado para ver este link.]

    Abraço a todos, Obrigao

      Data/hora atual: Qua 07 Dez 2016, 08:34