Change size of checkbox

P

PJ Usher

Access 2000
My checkboxes are so small that you cannot see entire check. How do I
increase the size of the box?

Thank you

PJ
 
J

Jeff Conrad

Hi PJ,

No it's not possible, but here is a great work-around from
the "world-famous" FredG:

Can't make it bigger but you can work around it.
Here is the coding needed.

Add an unbound label to the form detail section.
Set its Caption to "o" (small letter "o")
Set it's Font to WingDings
Set it's font size to whatever you want (perhaps 24)
Place this label where you wish to see the check mark.
I've named it LabelLargeCheck.
Set the actual CheckBox.Visible to No.

Code the Label's Click event:

Private Sub LabelLargeCheck_Click()
[CheckBox] = Not ([CheckBox])
If CheckBox Then
LabelLargeCheck.Caption = Chr(254)
Else
LabelLargeCheck.Caption = "o"
End If
End Sub

Code the Form Current Event:

Private Sub Form_Current()
If [CheckBox] Then
LabelLargeCheck.Caption = Chr(254)
Else
LabelLargeCheck.Caption = "o"
End If
End Sub

If you want a CheckBox field label then just add another
unbound label and set its caption to the CheckBox field
name. Leave it Visible.

Don't forget to change the name of the CheckBox in this
coding to whatever your Checkbox field is.
That should do it.

Clicking on the new Label is equivalent to clicking on the
CheckBox field itself.

Fred
Hope that helps,
 
Top