Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Dim Tmp as Boolean
Tmp = (Me!Auslauf = "Ja")
Me!Feld1.FontBold = Tmp
Me!Feld2.FontBold = Tmp
Me!Feld3.FontBold = Tmp
' usw. für alle Felder des "Datensatzes"
End Sub
Gruß aus dem Norden
Reinhard
Bitte immer die Access-Version angeben
geschrieben von Reinhard Kraasch , 19.05.2006, 10:00 Uhr , 19 mal gelesen