[Resolvido]Imagem Diferentes em Relatorio

Ola Bom dia

Sou novo no Fórum
Preciso de uma ajuda de vcs, vou tentar explicar meu problema: tenhu um relatorio que precisa aparece 3 tipos de Imagens(BOM.jpg REGULAR.jpg RUIM.jpg - nomes das imagens) sendo que tenho um tabela Imagem que guarda os endereços da imagem EX.: d:\5s\imagem, ate ai tudo bem o programa armazena corretamente os endereços das imagens. Usei o seguinte comando

If Indicegeral <= 7.999 Then
       N = "Ruim"
       Me.Imagem.Value = "d:\5s\Imagens\" & N & ".jpg"
       Me.Imagem1.Picture = Me.Imagem
End If
 
If Indicegeral > 7.999 And Indicegeral <= 8.999 Then
       N = "Medio"
       Me.Imagem.Value = "d:\5s\Imagens\" & N & ".jpg"
       Me.Imagem1.Picture = Me.Imagem
End If
   
If Indicegeral > 8.999 And Indicegeral < 10.001 Then
        N = "Bom"
        Me.Imagem.Value = "d:\5s\Imagens\" & N & ".jpg"
        Me.Imagem1.Picture = Me.Imagem
End If  

Isso no Form. Meu Problema é Fazer aparece essa imagem no Relatório, pois ja coloquei o comando Me.Imagem1.Picture = Me.Imagem Na abertura do Relatório, também ja coloquei no clic dos detalhes do relatório e nada, ate aparece a imagem quando clicado no relatório porem a imagem fica igual para todos os outros registro apresentado no relatório. o Relatório é por período de data Ordenado por Setor.

Esse programinha seria para os 5S da empresa - Imagem Seriam rostinho de bom, regular e ruim.
Ate coloque um print do relatorio

Desde ja agradeço ai galerinha

Olá Dioser,
Já tentou criar um relatório para cada situação?
Pré-configurado com a imagem que quer em cada um?

Sim pensei mas, tipo o relatório é num período de dias tipo intervalo de mês ai são 33 setores que irão aparecer individual ficaria muita mão. Verifiquei em alguns Foruns aqui mesmo e neles dizem que funciona porem não obtive resultado positivo com os exemplos.. fico na aguardo de algum help ainda.

Já tentou colocar no evento Ao Formatar ou Ao Imprimir do Detalhe do Relatório?

Ola Feito rdrck, coloquei sim.... e tipo continuaram a aparecer as mesmas carinhas, mas Cara seguinte eu ainda nao tina exportado o relatorio para pdf, pois no momento que fiz no arquivo gerado em pdf estavam as carinhas conforme eu esperava....muito show Resolvido em parte.
Mas na Real o importante pra mim era mesmo na impressao, tipo em tela nao tem problemas das carinhas nao aparecerem e tal.

Muito grato ai pelo Help RDRCK...abraçao ai.

Show

Tente isto ver se ajuda.

If Indicegeral <= 7.999 Then
      N = "Ruim"
      Me.Imagem.Value = "d:\5s\Imagens\" & N & ".jpg"
      Me.Imagem1.Picture = loadpicture( Me.Imagem.tag)
End If

If Indicegeral > 7.999 And Indicegeral <= 8.999 Then
      N = "Medio"
      Me.Imagem.Value = "d:\5s\Imagens\" & N & ".jpg"
      Me.Imagem1.Picture = loadpicture( Me.Imagem.tag)
End If
 
If Indicegeral > 8.999 And Indicegeral < 10.001 Then
       N = "Bom"
       Me.Imagem.Value = "d:\5s\Imagens\" & N & ".jpg"
       Me.Imagem1.Picture =loadpicture( Me.Imagem.tag)
End If

Ok, vou testar e respondo se deu certo, valew por enquanto.
Mas ja estou bem satisfeito que na impressão aparece as devidas carinhas que precisava... hhehehheheh.

Valew a sugestao. irei testar.

Olá Dioser,
Já conseguiu resolver o problema?
Se cim, não esqueça de clicar no [Resolvido] para não deixar o tópico em aberto.
Valeu.

Ola testei dessa forma citada tambem funciona...MUIto Grato e desculpem a demora em responder e encerrar o topico estava com outras atividades.