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.
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.