Can someone help me with the validation of a checkbox in an Access form? - vba

Question

I have problems with the validation of an Access form, and more precisely with a checkbox, since Access tells me that the object does not support that property or that method.
My code to carry out the verification, evaluates each control of the form, and if its value is empty or null, it paints the background color of it orange, and if it is corrected, it returns it to white.
Since the checkbox object does not share the BackColor property with the textbox or combobox, I tried to use BorderColor, which is common to all three.
My code:
Private Sub ValidarCampos()
Dim FormActivo As Form
Dim control As control
Set FormActivo = Forms(0)
ValidaCampos = True
For Each control In FormActivo.Controls
If (control.ControlType = 109 Or control.ControlType = 111 Or control.ControlType = 106) And control.Visible = True And control.Enabled = True Then 'Revisar el 106 (checkbox)
If control.ControlType = 106 Then
valor = control.TripleState
Else
valor = Trim(control.Value)
End If
Debug.Print valor
'If (valor = "" Or IsNull(valor)) And control.Tag = "*" Then
If (valor = "" Or IsNull(valor)) Then
control.BorderColor = VBA.RGB(237, 125, 49)
'MsgBox "No puede dejar nulo el campo " & control.Name, vbInformation, tiTulo
If FormActivo.Controls(control.Name).Enabled = True Then
FormActivo.Controls(control.Name).SetFocus
End If
ValidaCampos = False
'Exit Function
Exit Sub
Else
control.BackColor = VBA.vbWhite
End If
End If
Next
End Sub
Clarification:
The problem occurs with the "Enabled" property of the checkbox
When it evaluates to the checkbox, Access tells me that the object does not support that property or method.

Answer 1

I've had trouble with the access checkbox not working properly twice before. You can get around the checkbox by turning a label into a synthetic checkbox. This also gets you the back color property. I got the outline of the solution from Fred here: http://www.justskins.com/forums/changing-check-box-colour-171415.html
put a label and a checkbox on a form. set the checkbox visible property to false. resize the label and set the label.border property to solid to make the label look like a checkbox. Set the label font to wingdings. then here is the code.
'in form codebehind
Private Sub labelthatlookslikeacheckbox_Click()
If Me.invisiblecheckbox.Value = -1 Then
Me.invisiblecheckbox.Value = 0
Me.labelthatlookslikeacheckbox.Caption = ""
Else
If IsNull(Me.invisiblecheckbox.Value) Then
Me.invisiblecheckbox.Value = -1
Me.labelthatlookslikeacheckbox.Caption = Chr(254)
Else
Me.invisiblecheckbox.Value = Null
Me.labelthatlookslikeacheckbox.Caption = Chr(110)
End If
End If
Me.Refresh 'update display
End Sub
'in a module
Private Sub ValidarCampos()
Dim FormActivo As Form
Dim control As control
Set FormActivo = Forms(0)
ValidaCampos = True
For Each control In FormActivo.Controls
If (control.ControlType = acCheckBox) Then
If (control.Name = "invisiblecheckbox") And IsNull(control.Value) Then
FormActivo.Controls("labelthatlookslikeacheckbox").BackColor = VBA.RGB(237, 125, 49)
Else
FormActivo.Controls("labelthatlookslikeacheckbox").BackColor = vbWhite
End If
'HANDLE OTHER CHECKBOXES HERE
'if going generic one solution is to use a checkbox and label naming convention then parse control.name
Else
If (control.ControlType = acTextBox Or control.ControlType = acComboBox) Then
'labels don't have an enabled control so we only test textboxes and comboboxes
If control.Visible = True And control.Enabled = True Then
valor = Trim(control.Value)
Debug.Print valor
If (valor = "" Or IsNull(valor)) Then
control.BackColor = VBA.RGB(237, 125, 49)
If FormActivo.Controls(control.Name).Enabled = True Then
FormActivo.Controls(control.Name).SetFocus
End If
ValidaCampos = False
Else
control.BackColor = VBA.vbWhite
End If
End If
End If
End If
Next 'control
End Sub
Top checkbox is the label:
Without Text highlighted :