Even with the Special Effect set to Shadowed it doesn't' work.
'Update UI with good/bad field indications
'fldpartnumber
If flgBadpartnumber = True Then
MePointer.fldpartnumber.BackColor = vbRed
flgBadValue = True
Else
MePointer.fldpartnumber.BackColor = vbWhite
End If
' Ensure all fields are filled
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox
If Len(Nz(ctl.Value, vbNullString)) = 0 Then
With ctl
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox
.BorderColor = vbRed ' Red
.BorderWidth = 1 ' 1 point
.BorderStyle = 1 ' Solid
Case acCheckBox, acOptionButton
.SpecialEffect = 4 ' Shadowed
.BorderColor = vbRed ' Red
.BorderWidth = 3 ' 3 point
End Select
End With
End If
End Select
Next ctl
This is my latest attempt but it ignores the check boxes and option buttons.
I to not believe either of those controls have BackGround color properties to be set.
No. But they do have the BorderColor property, which is what I'm trying to set.