Yes and No Check Box - Highlight when checked 1

[monkeysee]

Is there a way to either have a yes/no check box highlight or change the 'check' to red when the box is populated with the check?
I would like the check box 'stand-out' so that a user sees it if the value is true.

Thanks again in advance to all the guru's out there!

 

[Andrzejek]

Tried this in Excel's UserForm:

Option Explicit

Private Sub CheckBox1_Click()

With CheckBox1
    Select Case .Value
        Case False  [green]'Unchecked
            '.ForeColor = vbBlack[/green]
            .BackColor = Me.BackColor
        Case True  [green]'Checked
            '.ForeColor = vbRed[/green]
            .BackColor = vbYellow
    End Select
End With

End Sub

---- Andy

There is a great need for a sarcasm font.

 

[monkeysee]

Thanks Andy,
Should this work for an Access Form?

I put this in a module in my Access Data Base and it is not triggering the highlight or red. Also I might add that the name of my checkbox is seasonal, which I did change in the coding you provided.

Thanks Again!
Deb

 

[dhookom]

I doubt you can change the color of the "check". I would find another solution such as the fore color of the label or draw a box around the check box if checked.

Also, is the form single view or continuous? This would make a huge difference in any solution.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

 

[Andrzejek]

Did you try in Access this (assuming seasonal is the name of your check box)

Option Explicit

Private Sub seasonal_Click()

MsgBoa seasonal.Value

End Sub

and see what you get in a message box when you set it to Checked / Unchecked


---- Andy

There is a great need for a sarcasm font.

 

[monkeysee]

Andy, no message box popped up

 

[monkeysee]

Duane, yes it is a single form.

I am open to any other solution, as my goal is to make this check box obvious (if marked) to the user so that it is not overlooked.

 

[dhookom]

I would replace the label with a text box which support conditional formatting. Change the control source to something like:
Control Source: ="Your former label caption"
You can then set its background to transparent and no border with the Locked: Yes and Enabled: No.

Then use Conditional formatting with Expression is to set the format to bold and fore color to red when the check box is checked. In my test I used this for the expression:
Expression Is [Checkbox]
Checkbox is the name of my yes/no field.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

 

[monkeysee]

Thank you again Duane!
Got it to work.