For Each ç In Me.Controls
Select Case TypeName(ç)
Case "TextBox", "ComboBox"
ç.Value = ""
ç.BackColor = vbButtonFace
Case "OptionButton", "CheckBox"
ç.Value = ""
ç.BackColor = vbButtonFace
End Select
Next
For Each ç In Me.Controls
Select Case TypeName(ç)
Case "TextBox", "ComboBox", "OptionButton", "CheckBox"
ç.Value = ""
ç.BackColor = vbButtonFace
End Select
Next