Showing or hiding images in a report

[Allllan]

I am trying to figure out how to show a different image on a report based on the results of a formula. Conditional formatting allows me to change text, but I want to be able to swap out an image based on a formulated result from the report.

I tried doing an event on the report header just to turn of the visibility of a test image, and can't even get that to work...lol

Any direction or ideas here?

fyi...the purpose is that if someone does well, they get a green symbol, ok=yellow, bad=red...that sort of thing.

[ADezii]

Assuming the Image Control is named imgColor, the Text Box on the Report is named txtFormula, and the Graphics Files are stored in C:\Graphics, the following code placed in the Format() Event of the Report will load different Graphic Images into the imgColor Control for specific Formulas. Any Formula not meeting the criteria will show a Green Image. This should point you in the right direction.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Me![txtFormula]
  Case "Formula_1"
    Me![imgColor].Picture = "C:\Graphics\Red.jpg"
  Case "Formula_2"
    Me![imgColor].Picture = "C:\Graphics\Yellow.jpg"
  Case "Formula_3"
    Me![imgColor].Picture = "C:\Graphics\Purple.jpg"
  Case Else         'All other Formulas
    Me![imgColor].Picture = "C:\Graphics\Green.bmp"
End Select
End Sub

[Allllan]

Thanks...it still isn't working though. Is it because I am using a standard image as opposed to some sort of control (bound or unbound)?

I even just put the code:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)

Me![imgColor].Picture = "C:\Users\alanb.NETWORK\Pictures\red.JPG"

End Sub

And that didn't even swap out the pic. I am missing something really obvious I am sure.

[ADezii]

Thanks...it still isn't working though. Is it because I am using a standard image as opposed to some sort of control (bound or unbound)?

I even just put the code:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)

Me![imgColor].Picture = "C:\Users\alanb.NETWORK\Pictures\red.JPG"

End Sub

And that didn't even swap out the pic. I am missing something really obvious I am sure.

Place the code in the Format() Event of the Report's Detail Section to load Images for each Record.