Can a checkbox in a form be enlarged or resized?

B

Brendan Reynolds

You can fake it with a label. In the example below, "TestBool" is the name
of a Boolean (Yes/No) field in the form's recordsource, "Label0" is an
unatached label on the form.

Private Sub Form_Open(Cancel As Integer)

Me.Label0.FontName = "Wingdings"
Me.Label0.FontSize = 48

End Sub

Private Sub Form_Current()

If Me.TestBool = True Then
Me.Label0.Caption = Chr$(&HFE)
Else
Me.Label0.Caption = Chr$(&HFD)
End If

End Sub

Private Sub Label0_Click()

If Me.TestBool = True Then
Me.Label0.Caption = Chr$(&HFD)
Me.TestBool = False
Else
Me.Label0.Caption = Chr$(&HFE)
Me.TestBool = True
End If

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Need to enlarge images without getting blurry 3
form size when app opens 1
how to save a resized form? 5
Don't allow resize of subform columns 1
Form_Resize is Not Triggered When Form is Moved 12
Checkbox in forms 1
change textbox to checkbox 5
Checkbox won't resize 5

Top