title image


Smiley Ja, warum machst du's denn auch nicht so, wie Franz geschrieben hat...


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If NZ(Me!Text4,0) > 0 Then

Me!Text0.ForeColor = vbRed

else

Me!Text0.ForeColor = vbBlack

End If

End Sub



oder, kürzer: [Edit] - Fehler auf Franz' Hinweis hin ausgebaut [/Edit]



Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Me!Text0.ForeColor = IIF(NZ(Me!Text4,0)>0, vbRed, vbBlack)

End Sub



Ansonsten ist dein Code schon deshalb unschön bzw. fehlerhaft, weil du dort den Datentyp "Integer" verwendest.





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: