Change back color or border color based on yes/no check box

[hubbz821]

Hi,

I am trying to change the color of a label based on the whether a box is checked or not. Below is what I have but it does not do anything. I have tried it on form load, after update of check box and on current. Any help is appreciated. Thank you!

Private Sub Followup1_afterUpdate()
Dim RED

RED = RGB(255, 0, 0)

If FollowUp1 = "yes" then

Me.followup1.bordercolor = RED
Me.followup1.borderwidth = 6

end if
end sub

 

[pbaldy]

If it's a checkbox, the value isn't text. Try

If FollowUp1 = yes then

 

[pbaldy]

By the way, you might want an Else clause to handle the user unchecking the box. This may be helpful:

Conditional Visibility

 

[CJ_London]

also there are vba names for standard colours

vbRed
vbGreen
vbBlack
etc

so you don't need your RED variable

 

[The_Doc_Man]

Since changing a check-box is always counted as a change and usually counted as a click, you might consider "OnChange" and "OnClick." If all else fails, remember that a change of a checkbox can only occur if the checkbox is (at least momentarily) in focus. So consider the "LostFocus" event.

 

[pbaldy]

I think I've always used the after update event to handle changes to a check box's value. Be it via click, hitting enter, whatever, the value is changing thus the after update event fires. At least that's my experience.

 

[Gigitty]

Have a look at the labels property sheet.. You might see that the background colour of the label is set to transparent. If it is, you won't see the colour even though you've changed it.

More info and a video explanation on my website here:-

Option Group Label Color Change - Nifty Access

Option Group Label Color Change The technique employed in this sample is well worth learning and applying in your own MS Access database. There's always a gotcha when you are developing new code, and I hit one when I was trying to build this.I wrote the code to change the label colours, but it...

www.niftyaccess.com

See video at time index 2min

Thankyou for this post Uncle Gizmo. Couldn't figure out why I was having the same issue.