MaximoAccess

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

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)
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    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

    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: Ter 22 Ago 2017, 23:31