Changing the Size of Checkbox on a Form

  • Thread starter Thread starter TomP
  • Start date Start date
T

TomP

I have a field that is formatted to yes/no. Is there a way I can change the
size of the checkmark on the form and make it look bigger?

Thank you,
 
Hi Tom

Don't think you can alter it.

You could put a text box on your form (set format font = windings 2)
Put OnClick Event as


Private Sub TextBox_Click()
If IsNull([TextBox]) Then
Me.TextBox = "O"
Me.CheckBox = 0
End If


If Me.Text2 = "O" Then
Me.TextBox = "P"
Me.CheckBox = -1
Else
Me.TextBox = "O"
Me.CheckBox = 0
End If
'Change Text box name to what it is on your form
'Change Check box name to what it is on your form
End Sub


This would give the effect of a tick box and you can change the size to what
you want.


Note
"O" = O as in LMNOP
0 = 0 as in 01234

Hope this helps
 
Tom

I don't know if this will work on an Access form (on-screen), but in Word I
just change the font size to get a bigger checkbox.

Regards

Jeff Boyce
Microsoft Office/Access MVP
 
I have a field that is formatted to yes/no. Is there a way I can change the
size of the checkmark on the form and make it look bigger?

Thank you,
Click to expand...

For Continuous View, post pack.

For use on a form in Single Form View.

Add an unbound text control to the form.
Set it's FontStyle to Wingdings.
Set it's FontSize to 24 (to start with).
Set the control's Width property to 0.3"
Set it's height to 0.3"
Set it's BorderStyle to Solid.
Border Width to 1 pt.
Name this control 'LargeCheck'.

Code it¢s click event:

Me.[CheckBoxName] = Not Me.[CheckBoxName]
If Me.[CheckBoxName] = True Then
Me.LargeCheck = Chr(252)
Else
Me.LargeCheck = ""
End If

Code the Form's Current event:

If Me.[CheckBoxName] = True Then
Me.LargeCheck = Chr(252)
Else
Me.LargeCheck = ""
End If

Clicking the cursor on the LargeCheck control will toggle it's value
just as a regular check box.
Note: You can colorize this control also.

Change the FontSize and the controls width and height as wanted.
 
I think I understand where you are going with this, but could use a little
help in entering the code. The only winding font I have available for access
is wingings3.
Will I compare data with the other textbox already made that has the yes/no
data?
"VI" is the name I already assigned to the yes/no and "VITEXT" is the new
field to add text. I don't understand where/how Me.Text2 = "O" fits in.

Thank you

Wayne-I-M said:
Hi Tom

Don't think you can alter it.

You could put a text box on your form (set format font = windings 2)
Put OnClick Event as


Private Sub TextBox_Click()
If IsNull([TextBox]) Then
Me.TextBox = "O"
Me.CheckBox = 0
End If


If Me.Text2 = "O" Then
Me.TextBox = "P"
Me.CheckBox = -1
Else
Me.TextBox = "O"
Me.CheckBox = 0
End If
'Change Text box name to what it is on your form
'Change Check box name to what it is on your form
End Sub


This would give the effect of a tick box and you can change the size to what
you want.


Note
"O" = O as in LMNOP
0 = 0 as in 01234

Hope this helps


--
Wayne
Manchester, England.



TomP said:
I have a field that is formatted to yes/no. Is there a way I can change the
size of the checkmark on the form and make it look bigger?

Thank you,
Click to expand...
Click to expand...
 
Disregard about me not having that font --- I do have it.

TomP said:
I think I understand where you are going with this, but could use a little
help in entering the code. The only winding font I have available for access
is wingings3.
Will I compare data with the other textbox already made that has the yes/no
data?
"VI" is the name I already assigned to the yes/no and "VITEXT" is the new
field to add text. I don't understand where/how Me.Text2 = "O" fits in.

Thank you

Wayne-I-M said:
Hi Tom

Don't think you can alter it.

You could put a text box on your form (set format font = windings 2)
Put OnClick Event as


Private Sub TextBox_Click()
If IsNull([TextBox]) Then
Me.TextBox = "O"
Me.CheckBox = 0
End If


If Me.Text2 = "O" Then
Me.TextBox = "P"
Me.CheckBox = -1
Else
Me.TextBox = "O"
Me.CheckBox = 0
End If
'Change Text box name to what it is on your form
'Change Check box name to what it is on your form
End Sub


This would give the effect of a tick box and you can change the size to what
you want.


Note
"O" = O as in LMNOP
0 = 0 as in 01234

Hope this helps


--
Wayne
Manchester, England.



TomP said:
I have a field that is formatted to yes/no. Is there a way I can change the
size of the checkmark on the form and make it look bigger?

Thank you,
Click to expand...
Click to expand...
Click to expand...
 
Back
Top