Farbe für mehrer Formulrfelder abhängig vom Wert wechseln

Guten Tag alle MSAccess Programmiercracks

Ich versuche in einem Formular berechnende Felder (access03s, word03s usw.), abhängig vom ihrem Wert, entsprechend einzufärben. Geht das mit einer Variablendefinition.
Habe da so eine Idee die aber nicht recht funzt!
Hier ist mein Codeansatz...
Private Sub Form_Current()

x = access03s Or word03s Or excel03s Or powerpoint03s Or outlook03s _
Or infopath03s Or frontpage03s Or projekt03s Or visio03s Or vpns _
Or twixs Or mcafees Or snagit70s Or xtnds Or iseriess Or tuneups _
Or adawards Or acroniss Or mastereyes Or adobes

If x < 0 Then
x.BackColor = 10079487

Else
x.BackColor = 16777215
End If
End Sub
Programm hängt dann bei x.BackColor fest. Fehlermeldung "Objekt erfoderlich"
Ich weiss nicht recht was ich hier definieren muss.
Muss ich die If Abfrage für jedes Feld einzeln machen?

Hänge total fest. Wäre sehr froh, wenn mir jemand unter die Arme greifen könnte.
Für Eure Hilfe bedanke ich mich im voraus recht herzlich.

Mit freundlichen Grüssen
Remo1603