Show image based upon combo box value

[Johnny Drama]

I've searched high and low through the forums and tried every piece of code I can find, but I still can't get this to work.

I've got a report with a combo box and an embedded image. The name of the combo box is deferrable and the image control is name Flag. I using the below code:

Private Sub Report_Load()
If Me.Deferrable = "Yes" Then
Me.flag.Visible = True
Else
Me.flag.Visible = False
End If
End Sub

If I set Deferrable to "No", then the image shows up, if I set it to "Yes" then no images appear. I want an image to appear next to all the records in the report that meet the "yes" criteria. This is driving me nuts.

 

[pbaldy]

If you want that to apply to each record individually, it needs to be in the detail format event.

 

[Johnny Drama]

Put in the On Format event in the detail section and it didn't work. As a matter of fact, now it just shows the image regardless of whether I set the variable to yes or no.

 

[pbaldy]

What view are you using? The format events don't fire in the new Report view.

 

[vbaInet]

Either that or Me.Deferrable is always True.

By the way, if it's an Image control and you're getting images from a path you can put this in its Control Source property:

=IIf([[COLOR=Red]Deferrable[/COLOR]], [[COLOR=Red]ImageField[/COLOR]], "")

 

[Johnny Drama]

@ pbaldy - I've now tried both the report view and print preview, but no dice.
@vbaInet - Not sure what you're referring to in your first sentence, but I'm not getting images from an image path. It is embedded, 1K in size, and the only one I'm using.

 

[vbaInet]

It means the value of Me.Deferrable is not changing. It remains as True. This is in reference to your post #3.

The code I provided won't work for you in that case. Stick to your original method.

 

[pbaldy]

Can you post the db here?

 

[Johnny Drama]

It's huge. Let me see if I can pull just what I need to demonstrate the problem and get it posted.

Okay...pared it down to just what is need to demo the problem. Have at it.

 

[pbaldy]

It's a yes/no, field, not text:

If Me.Deferrable = Yes Then

 

[pbaldy]

Actually that seems to produce the reverse result, so you want the actual value:

If Me.Deferrable = -1 Then

 

[vbaInet]

If Me.Deferrable = "Yes" Then

Ah, Paul I haven't looked at the db yet but I should have spotted that from his initial post. Oh well!

 

[pbaldy]

That makes two of us, but having it in a combo threw me off. I expected a text value in a combo.

 

[vbaInet]

That makes two of us, but having it in a combo threw me off. I expected a text value in a combo.

Me too, it's only logical. Even a checkbox will occupy less space so I wonder why he chose a Combo box.

 

[Johnny Drama]

Hey guys,

Thanks for the help. Chose a combo box because the people viewing the report don't have the best of vision and have asked to see something other than a small check, which is what I initially had. Even the yes and no befuddles them sometimes so I wanted to add the flag image to really make it stand out.

I've tested it based upon the comment you made and it still doesn't appear to work though. Not sure what I'm missing.

 

[pbaldy]

No problem, glad we got it sorted out.

 

[Johnny Drama]

I spoke too soon. It still doesn't seem to work. I changed it to:

If Me.Deferrable = -1 Then
Me.flag.Visible = True
Else
Me.flag.Visible = False
End If

but nothing seems to happen.

 

[pbaldy]

What event do you have it in, and what view are you opening the report in?

 

[Johnny Drama]

ChaChing...I forgot it had do be viewed in Print Preview. Works great. Thanks guys!

 

[pbaldy]

Happy to help. The format events work in Preview or Print, but not Report view.