title image


Smiley Felder im Bericht einfärben ...
Hi Lepatron,um einzelen Felder in einem Bericht aufgrund ihres Wertes einzufärben, kannst Du folgenden Code verwenden :z.B.Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)' Alter PrüfenIf DateDiff("m", [Anschaffungsdatum], Now()) > 36 ThenMe![Alter].ForeColor = 255ElseMe![Alter].ForeColor = 0End IfEnd subDie Nummern der einzelnen Farben kannst Du in der Entwurfsansicht bei den Eigenschaften herausfinden.Gruß Gidi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: