Re: Check box

[Steven Burn]

size as in?.....width?

form.control.width = <newwidth> (replacing "control" with the name of the
control you wih to resize

I would presume

--
Regards

Steven Burn
Ur I.T. Mate Group CEO
www.it-mate.co.uk

 

[Joan Wild]

I'll quote from a recent message by another MVP:
<q>
Here's what's needed..

Set your actual CheckBoxName.Visible to No.

Add an unbound label to the form detail section.
Set it's BackStyle to Normal.
BackColor to White
SpecialEffect to Sunken
BorderStyle to Solid
Caption to " " (a space)
Font to WingDings
FontSize to whatever you want (perhaps 14)
Place this label where you wish to see the check mark.
I've named it LabelLargeCheck.

Code the new Label's Click event:

Private Sub LabelLargeCheck_Click()
[CheckBoxName] = Not ([CheckBoxName])
If [CheckBoxName] = -1 Then
LabelLargeCheck.Caption = Chr(252)
Else
LabelLargeCheck.Caption = ""
End If
End Sub

Code the Form Current Event:

Private Sub Form_Current()
If [CheckBoxName] = -1 Then
LabelLargeCheck.Caption = Chr(252)
Else
LabelLargeCheck.Caption = ""
End If
End Sub

Adjust the height and width of the label so the check mark fits.
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 CheckBoxName 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.
<q>

 

[shloma stark]

is it possible to program the keyboared to your own wingdings symbols could I program the font should look the way I want