{"id":55000425,"date":"2018-10-01T00:00:00","date_gmt":"2020-01-24T16:00:14","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=425"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Bedingte_Formatierung_per_VBA","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Bedingte_Formatierung_per_VBA.html","title":{"rendered":"Bedingte Formatierung per VBA"},"content":{"rendered":"

Im Artikel Bedingte Formatierung <\/b>haben Sie in Ausgabe 11\/2011 erfahren, wie Sie die bedingte Formatierung einsetzen, um die Steuer-elemente in Formularen und Datenblättern in Abhängigkeit ihrer Werte mit bestimmten Formatierungen zu versehen – beispielsweise, um kritische Zahlenwerte mit einem roten Hintergrund zu versehen. Zwar können Sie seit Access 2010 bis zu 50 bedingte Formatierungen je Feld definieren, aber wer möchte das schon von Hand erledigen Zu Glück können Sie auf diese Technik auch per VBA zugreifen und so die Formatierungen mit etwas mehr Hirnschmalz, aber weniger Handarbeit definieren.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1805_BedingteFormatierungPerVBA.accdb<\/b>.<\/p>\n

Wunderwaffe VBA<\/h2>\n

Fast alles, was Sie unter Access über die Benutzeroberfläche erledigen können, lässt sich unter VBA regeln. In vielen Fällen ist das sehr hilfreich, vor allem dann, wenn Sie sich damit oft wiederholender oder umfangreicher Aufgaben entledigen können. Und das Setzen vieler bedingter Formatierungen für die Steuer-elemente etwa eines Formulars oder Berichts ist eine der Aufgaben, die man lieber nicht von Hand erledigt.<\/p>\n

Stattdessen könnte man die Zeit viel besser in die Programmierung stecken – zum Beispiel, um das Festlegen von bedingten Formatierungen zu automatisieren.<\/p>\n

Erst lesen, dann schreiben<\/h2>\n

Um ins Thema einzusteigen, legen wir einmal zwei verschiedene Formatierungen für ein Feld eines Formulars in der Datenblattansicht an. Das Formular heißt frmArtikel <\/b>und soll alle Datensätze der Tabelle tblArtikel <\/b>anzeigen (siehe Bild 1). Wir wollen zunächst das Feld Lagerbestand <\/b>mit einer bedingten Formatierung ausstatten, die dafür sorgt, dass das Feld rot angezeigt wird, wenn der Lagerbestand den Wert 0 <\/b>aufweist. Dazu wählen wir aus dem Kontextmenü dieses Textfeldes den Eintrag Bedingte Formatierung <\/b>aus und klicken im nun erscheinenden Dialog Manager für Regeln zur bedingten Formatierung <\/b>auf die Schaltfläche Neue Regel<\/b>.<\/p>\n

\"Formular-Entwurf<\/a><\/p>\n

Bild 1: Formular-Entwurf unseres Beispielformulars<\/p>\n

Dies öffnet den Dialog Neue Formatierungsregel<\/b>, dem wir den Operator Gleich <\/b>und den Vergleichswert 0 <\/b>zuweisen. Außerdem stellen wir als Hintergrundfarbe die rote Farbe ein (siehe Bild 2).<\/p>\n

\"Anlegen<\/a><\/p>\n

Bild 2: Anlegen einer neuen bedingten Formatierung<\/p>\n

Nach dem Mausklick auf die Schaltfläche OK <\/b>schließt sich der Dialog und die neue Formatierungsregel wird in der Liste der Formatierungsregeln um aufrufenden Dialog angezeigt (siehe Bild 3).<\/p>\n

\"Liste<\/a><\/p>\n

Bild 3: Liste der angelegten Formatierungsregeln<\/p>\n

Für die übrigen Steuer-elemente legen wir noch eine weitere Formatierungsregel an, welche die übrigen Steuer-elemente mit Ausnahme des Kontrollkästchens für das Feld Auslaufartikel <\/b>ebenfalls rot färbt, wenn das Feld Lagerbestand <\/b>den Wert 0 <\/b>annimmt.<\/p>\n

Hierbei ist interessant, dass beim Markieren mehrerer Steuerelemente gleichzeitig der Befehl Bedingte Formatierung <\/b>nicht mehr im Kontextmenü vorhanden ist, aber immer noch im Ribbon unter Format|Steuerelement-formatierung|Bedingte Formatierung <\/b>erscheint. Für diese Felder legen wir eine bedingte Formatierung an, welche den Ausdruck [Lagerbestand]=0 <\/b>enthält und dabei den Hintergrund rot färbt (siehe Bild 4). Damit haben wir nun Spielmaterial, das wir per VBA erforschen können.<\/p>\n

\"Anlegen<\/a><\/p>\n

Bild 4: Anlegen einer weiteren neuen bedingten Formatierung<\/p>\n

Bedingte Formatierung per VBA<\/h2>\n

Wir gehen davon aus, dass es unter VBA der Benutzeroberfläche zum Anlegen bedingter Formatierungen entsprechende Elemente gibt – also beispielsweise eine Auflistung aller bedingten Formatierungen und auch ein Objekt, das eine einzelne bedingte Formatierung bereitstellt und ihre Bearbeitung ermöglicht. Die Auflistung sollte ihrerseits das Hinzufügen, Referenzieren oder Entfernen von bedingten Formatierungen erlauben. Also werfen wir einen Blick in den Objektkatalog des VBA-Editors und suchen nach einem Schlüsselwort wie etwa Format<\/b>.<\/p>\n

Im ersten Schritt finden wir so schon einmal die drei Eigenschaften namens ConditionalFormats <\/b>für die Steuer-elemente TextBox<\/b>, ComboBox <\/b>und NavigationControl <\/b>(siehe Bild 5).<\/p>\n

\"Suche<\/a><\/p>\n

Bild 5: Suche nach der Auflistung mit dem bedingten Formatierungen<\/p>\n

Klicken wir hier auf den Link mit der Beschriftung FormatConditions <\/b>im unteren Bereich, landen wir schnel bei der Auflistung FormatConditions <\/b>mit den Methoden Add <\/b>und Delete <\/b>und den Eigenschaften Count<\/b>, Item <\/b>und Parent <\/b>und direkt darüber entdecken wir die Klasse FormatCondition<\/b> (siehe Bild 6). Hier finden wir alles, was wir brauchen, um die Schritte zum Hinzufügen und Auslesen von bedingten Formatierungen nachzubilden.<\/p>\n

\"Die<\/a><\/p>\n

Bild 6: Die Klasse FormatCondition mit ihre Eigenschaften<\/p>\n

Bedingte Formatierungen auslesen<\/h2>\n

Als Erstes lesen wir einmal die bereits angelegten bedingten Formatierungen aus. Dazu fügen wir dem VBA-Projekt der Beispieldatenbank ein neues Standardmodul namens mdlBedingteFormatierung <\/b>hinzu.<\/p>\n

Hier legen wir dann eine Prozedur namens BedingteFormatierungenLesen <\/b>an. Diese soll unser Beispielformular öffnen, die Steuerelemente durchlaufen und die Eigenschaften der für die Steuer-elemente definierten bedingten Formatierungen ausgeben.<\/p>\n

Hinweis: <\/b>Die Grundlagen zur folgenden Prozedur, mit der wir die Steuer-elemente eines Formulars durchlaufen, finden Sie im Artikel Steuerelemente per VBA referenzieren<\/b>.<\/p>\n

Die Prozedur finden Sie in Listing 1. Sie deklariert eine Variable namens frm <\/b>für das zu untersuchende Formular und eine namens ctl <\/b>für ein Control<\/b>-Element, also ein allgemeines Steuer-element. Außerdem benötigen wir noch eine Variable, mit der wir beim Durchlaufen der Auflistung der bedingten Formatierungen den jeweils aktuellen Eintrag referenzieren können – diese heißt objFormatCondition <\/b>und hat den Datentyp FormatCondition<\/b>. Anschließend öffnen wir mit der OpenForm<\/b>-Methode des DoCmd<\/b>-Objekts das Formular frmArtikel <\/b>und weisen dieses der Variablen frm <\/b>zu. Auf diese Weise ist es später leichter zu handhaben. In einer ersten For Each<\/b>-Schleife durchlaufen wir nun die Controls<\/b>-Auflistung des mit frm <\/b>referenzierten Formulars und weisen das jeweils aktuelle Control<\/b>-Element der Variablen ctl <\/b>zu.<\/p>\n

Public Sub <\/span>BedingteFormatierungenLesen()\r\n     Dim <\/span>frm As <\/span>Form\r\n     Dim <\/span>ctl As <\/span>Control\r\n     Dim <\/span>objFormatCondition As <\/span>FormatCondition\r\n     DoCmd.OpenForm \"frmArtikel\"\r\n     Set<\/span> frm = Forms!frmArtikel\r\n     For Each ctl In frm.Controls\r\n         Select Case ctl.ControlType\r\n             Case <\/span>acTextBox, acComboBox\r\n                 Debug.Print<\/span> ctl.Name\r\n                 For Each objFormatCondition In ctl.FormatConditions\r\n                     Debug.Print<\/span> \"  BackColor:        \" & objFormatCondition.BackColor\r\n                     Debug.Print<\/span> \"  Enabled:          \" & objFormatCondition.Enabled\r\n                     Debug.Print<\/span> \"  Expression1:      \" & objFormatCondition.Expression1\r\n                     Debug.Print<\/span> \"  Expression2:      \" & objFormatCondition.Expression2\r\n                     Debug.Print<\/span> \"  FontBold:         \" & objFormatCondition.FontBold\r\n                     Debug.Print<\/span> \"  FontItalic:       \" & objFormatCondition.FontItalic\r\n                     Debug.Print<\/span> \"  FontUnderline:    \" & objFormatCondition.FontUnderline\r\n                     Debug.Print<\/span> \"  ForeColor:        \" & objFormatCondition.ForeColor\r\n                     Debug.Print<\/span> \"  LongestBarLimit:  \" & objFormatCondition.LongestBarLimit\r\n                     Debug.Print<\/span> \"  LongestBarValue:  \" & objFormatCondition.LongestBarValue\r\n                     Debug.Print<\/span> \"  Operator:         \" & objFormatCondition.Operator\r\n                     Debug.Print<\/span> \"  ShortestBarLimit: \" & objFormatCondition.ShortestBarLimit\r\n                     Debug.Print<\/span> \"  ShortestBarValue: \" & objFormatCondition.ShortestBarValue\r\n                     Debug.Print<\/span> \"  ShowBarOnly:      \" & objFormatCondition.ShowBarOnly\r\n                     Debug.Print<\/span> \"  Type:             \" & objFormatCondition.Type\r\n                 Next<\/span> objFormatCondition\r\n         End Select<\/span>\r\n     Next<\/span> ctl\r\n     DoCmd.Close acForm, \"frmArtikel\"\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Prozedur zum Ausgeben der Eigenschaften von bedingten Formatierungen<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t