Office: (Office 2010) Bedingte Formatierung von Datenblättern mit VBA

Hallo,

ich habe diverse Formulare (auch Unterformulare) in Datenblattsicht, bei denen einzelne Elemente (Spalten) abhängig von Werten des jeweiligen Datensatzes dargestellt werden sollen, also typischer Anwendungsfall für Bedingte Formatierung.

Problem 1: Die Bedingte Formatierung lässt keine Auswahl von Designfarben (also mit Referenz auf die Farbpalette des gewählten Designs) zu, so dass bei einem Wechsel des Designs die Farben der Bedingten Formatierung nicht angepasst werden.

Problem 2: Bei der Bedingten Formatierung wird auch der Hintergrund mit der eingestellten Farbe überschrieben, was den Zeileneffekt durch eine alternative Hintergrundfarbe ("DatasheetAlternateBackColor") zunichte macht, weil die Bedingte Formatierung weder die alternative Hintergrundfarbe kontrolliert setzen lässt, noch das Überschreiben der Hintergrundfarbe abschalten lässt, um nur die Schriftattribute zu setzen.

Idee deshalb: Stattdessen die Bedingte Formatierung mit VBA selbst stricken. Dazu habe ich eine Prozedur erstellt, die für die gewünschten Elemente Formatbedingungs-Objekte erstellt, in denen nur die anzupassenden Formatattribute (also z.B. ForeColor oder FontBold) gesetzt werden, nicht aber der Hintergrund, in der Hoffnung dass dieser damit unverändert erhalten bleibt. Das sieht im Kern so aus:

Set objFormatCondition = ctl.FormatConditions.Add(acExpression, , Bedingung...)
With objFormatCondition
.FontBold = True
...

Pustekuchen! Nach Ausführen der Prozedur werden die Formatbedingungen zwar wirksam, aber es werden auch die unabhängig definierten Hintergrundfarben überschrieben (offenbar mit dem Auto-Wert), was ja gerade unterbunden werden sollte. Um das zu bereinigen, kann man zwar mit

.BackColor = frm.DatasheetBackColor

die Farbe des Elementhintergrunds auf die Datenblatthintergrundfarbe setzen, aber für die alternative Hintergrundfarbe gibt es keine entsprechende Eigenschaft bei Formatbedingungsobjekten, so dass man den Hintergrund offenbar prinzipiell nicht mit alternierenden Farben darstellen kann, wenn man mit Formatbedingungen arbeitet.

In der Einzelformularsicht ließe sich das elegant lösen, indem man die Hintergrundfarbe des Detailbereichs mit Designfarben besetzt und bei den mit Bedingter Formatierung modifizierten Steuerelementen die Hintergrundart auf "transparent" setzt. Dadurch wird die Zwangsbelegung des Hintergrunds durch die Bedingte Formatierung nicht wirksam. In der Datenblattsicht finde ich dafür keine passenden Eigenschaften, bzw. Elemente. Übersehe ich da etwas? Gibt es Ideen, wie man das Problem (möglichst elegant) lösen könnte?

Zum Problem 2 (Designfarben):
Designfarben lassen sich über das Eigenschaftsblatt des Formulars direkt den Steuerelementen zuordnen (genauer: die Referenz auf die Position der Farbpalette, so dass bei einem Wechsel des Designs die neuen Farben wirksam werden) oder per VBA mit Eigenschaften wie "ThemeFontIndex". Auch dies scheint mit Bedingter Formatierung nicht möglich, da hier offensichtlich nur Farbcodes zulässig sind.

Um also auch die durch Bedingte Formatierung gesetzten Farben stimmig zum Design zu halten, muss man wohl vor der Definition der Formatbedingungsobjekte zuerst die Farben des aktuellen Designs auslesen und diese dann hartkodiert übernehmen. Bei jedem Designwechsel muss man die Formatbedingungsobjekte dann neu definieren, um die Farben des neuen Designs zu übernehmen.

Geht denn das nicht einfacher?

:)

 

Hallo
Muss es ein Datenblatt sein ?
könnte es nicht ein Endlos- (Tabellarisches-) Formular sein?

 

Die Formulare sollen Unterformulare enthalten, die selbst wieder als Datenblätter (mit den gleichen Problemen) dargestellt werden sollen. Endlosformulare lassen dies ja wohl nicht zu.

 

Servus TinuC,
vielleicht hilft Dir das Ereignis "Beim Formatübertragen" des Detailbereichs (ab Acc2007 möglich)
Da kannst Du dann auch beliebig viele bedingte Formatierungen erstellen.
z.B.
Code:

 

Danke für den Tipp erstmal. Ich sehe aber noch nicht, wie mir das weiterhilft.

Für mein Verständnis liegt das Problem beim gezielten Zugriff auf die Datenblatteigenschaften und nicht die Eigenschaften der Steuerelemente des Detailbereichs, also z.B. "DatasheetForeColor". Mit Bedingter Formatierung (auch in Form der Formatbedingungsobjekte) funktioniert dies zwar, zerschießt aber den Hintergrund. Diese Datenblatteigenschaften müssten aber für jeden Datensatz separat ermittelt werden, wofür mir sowohl das passende auslösende Ereignis als auch die geeignete Bedingung fehlt.

Auch mit Detailbereich_Paint wird bestenfalls die Farbe des Datenblattfelds einheitlich gesetzt, wenn man statt "Me.Text41.ForeColor" "Me.DatasheetForeColor" verwendet.

 

Hallo
kannst Du einmal zeigen wie das aussehen sol (z.B. PrintScreen)
oder wie ez jtzt bei Dir aussiet

 

\@TinuC:
Zumindest hast Du damit eine mehr als 3 fach bedingte Formatierungsmöglichkeit und zusätzlich die Einsatzfähigkeit beliebiger Farbnuancen.

 

\@Ohrkester: Das habe ich so aber auch und ist auch gar nicht mein Problem. *wink.gif*

@Lanz Rudolf: Beispiel im Anhang:

Ein Formular in Datenblattsicht mit Unterformularen über mehrere Ebenen. Auf oberster Ebene ist die alternierende Hintergrundfarbe zu sehen, die idealerweise auf allen Ebenen eingestellt sein sollte.

Im ersten Unterformular ist die Bedingte Formatierung zu sehen. Die Hintergrundfarbe der Bedingten Formatierung ist manuell auf die Hintergrundfarbe des Datenblatts gesetzt. Wäre der Hintergrund des Datenblatts hier auch alternierend gesetzt, müsste man sich bei der Bedingten Formatierung für eine der beiden Farben entscheiden.

Außerdem müsste man bei einem Designwechsel, der u.a. die Farben der Datenblätter aufeinander abgestimmt austauscht, die Farben der Bedingten Formatierung neu definieren, weil hier der Bezug auf die Design-Farbpalette nicht möglich ist.

 

Hallo
Dake für Dein Beispiel

doch ich verstehe nicht ganz wo Dein problem ist !

ich habe hir Muster
kann Dir die MDB gerne hoch laden.

 

Deine Beispiele enthalten nur Endlosformulare, wo das Problem offenbar nicht besteht. Ich möchte aber - wie im Bild gut zu sehen - reichlich von Unterformularen Gebrauch machen, was mit Datenblättern sehr gut geht, mit Endlosformularen aber gar nicht. Datenblätter reagieren aber ganz anders auf die Formatierung und haben auch eigene Eigenschaften, die aber nicht so gut mit der Bedingten Formatierung zusammenspielen.

Ich hatte gehofft das Problem mit meiner Beschreibung auf den Punkt gebracht zu haben. Was ist denn unklar geblieben?

 

Genau das wohl.

 

Das hätte eigentlich Beitrag #3 klarstellen sollen.