[Resolvido]referir-se a um relatorio

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

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