' 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