entsprechend einstellst:



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