Can a checkbox in a form be enlarged or resized?

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
Back
Top