Textfelder färben

[pahiti78]

Hallo,
ich möchte gern Textfelder per VBA färben.
Und zwar soll beim Schließen eines Formulares geprüft werden, ob bestimmte Felder ausgefüllt wurden. Wenn nicht sollen diese farblich gekennzeichnet werden. Anbei mein Code.

Code [Auswählen] Erweitern

Private Sub btnMain_Click()
If IsNull(Me!cboKontakt) And IsNull(Me!cboKontaktmedium) Then
MsgBox "Bitte achten Sie darauf eine Kontakt und ein Medium für die Kommunikation anzulegen!"
Me!cboKontakt.SetFocus
Me.cboKontakt...................................................
Else
DoCmd.Close
End If
End Sub
Wir ihr seht ist bei zweiten Verweis auf Kontakt ein Platzhalter. Dort hätte dann gern die Einfärbung. Vielen Dank für Eure UNterstützung

[Wurliwurm]

Me.cboKontakt.BackColor = vbred
oder
Me.cboKontakt.BackColor = 255

[pahiti78]

Danke