<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Bis zum Erscheinen von Access 2000 war einer der größten Wünsche der Access-Gemeinde die Formatierung einzelner Daten in Abhängigkeit von ihrem Inhalt. Dann war es endlich soweit: Microsoft erfüllte den Wunsch und spendierte Access eine Funktion namens Bedingte Formatierung (engl. Conditional Formatting). Damit lassen sich Daten in unterschiedlichen Schriften, Schriftarten oder Hintergrundfarben anzeigen – und das in Formularen und Berichten.<\/b><\/p>\n
Mit der Einführung der bedingten Formatierung steigert Microsoft die Benutzerfreundlichkeit und Ergonomie von Access-Anwendungen enorm. Die Markierung von Daten mit bestimmten Eigenschaften ermöglicht das Ermitteln von wichtigen Daten aus größeren Datenmengen mit bloßem Auge, wo bisher Suchfunktionen und Abfragen nötig waren.<\/p>\n
Wenn Sie beispielsweise gleichzeitig besonders teure und besonders billige Artikel in einem Formular anzeigen möchten, legen Sie einfach zwei Formatierungen für die entsprechenden Preisgrenzen fest – das Resultat zeigt Abb. 1.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Teure Produkte sind fett gedruckt und billige mit einer anderen Hintergrundfarbe markiert.<\/span><\/b><\/p>\n Der vorliegende Beitrag stellt Ihnen die grundlegende Anwendung der bedingten Formatierung vor und zeigt Ihnen anschließend, wie Sie diese Funktion mit VBA noch flexibler in Ihren Formularen und Berichten einsetzen können.<\/p>\n Die Beispieldaten liefert die Nordwind-Datenbank. Wenn Sie die nachfolgenden Beispiele nachvollziehen möchten, erstellen Sie einfach eine neue Datenbank und importieren Sie die Tabellen Artikel, Lieferanten und Kategorien aus der mit Access mitgelieferten Nordwind-Datenbank. Das erledigen Sie ganz einfach:<\/p>\n Access importiert nun die angegebenen Objekte. Erstellen Sie nun ein Beispielformular, mit dem Sie die nachfolgenden Beispiele ausprobieren können:<\/p>\n <\/b><\/p>\n Bild 2: Das Beispielformular in der Datenblattansicht<\/span><\/b><\/p>\n Das Formular sieht zwar exakt wie eine Tabelle aus, aber es bietet wesentlich mehr Möglichkeiten: So lässt sich beispielsweise die bedingte Formatierung nicht auf Tabellen oder Abfragen, wohl aber auf Formulare in der Datenblattansicht anwenden.<\/p>\n Der Dialog zur bedingten Formatierung ist verhältnismäßig leicht zu durchschauen, sodass man diese Funktion durchaus auch Nicht-Accesslern zum Markieren von Daten bereitstellen kann – es gibt allerdings auch hier einige Fallstricke. In den nachfolgenden Abschnitten erfahren Sie alles über die Festlegung von Bedingungen für bestimmte Formatierungen.<\/p>\n Mit dem soeben erstellten Formular können Sie nach Belieben bedingte Formatierungen festlegen. Dazu klicken Sie einfach auf das Feld, in dem Sie bestimmte Werte hervorheben möchten, und rufen dann den Menübefehl Format ( Bedingte Formatierung auf.<\/p>\n Der nun erscheinende Dialog ist die Schaltzentrale der bedingten Formatierung (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 3: Festlegen einer bedingten Formatierung<\/span><\/b><\/p>\n Als erstes Beispiel legen Sie nun fest, dass alle Preise höher als 15 EUR gelb unterlegt und fett gedruckt werden. Dazu belassen Sie den Inhalt des ersten Kombinationsfeldes bei dem Wert Feldwert ist, wählen im zweiten Kombinationsfeld den Eintrag Größer als aus und geben als Vergleichswert im Textfeld ganz rechts den Wert 15 ein. Schließen Sie die Eingabe mit einem Klick auf die Schaltfläche OK ab und betrachten Sie das Ergebnis (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 4: Ergebnis der festgelegten bedingten Formatierung<\/span><\/b><\/p>\n Sie können nun für das gleiche Feld weitere Formatierungen festlegen. öffnen Sie erneut den Dialog zum Festlegen der bedingten Formatierung und klicken Sie auf die Schaltfläche Hinzufügen >>. Unter dem Bereich für die erste Bedingung erscheint ein weiterer Bereich. Geben Sie hier beispielsweise an, dass alle Preise unter 5 EUR in roter, fetter Schrift angezeigt werden sollen. Die entsprechende Bedingung sieht wie in Bild 5 aus. Sie erkennen bereits, dass sich mit wenig Aufwand aussagekräftige Ergebnisse erzielen lassen. Betrachten wir doch die vorhandenen Optionen ein wenig genauer, um alles aus den bedingten Formatierungen herauszuholen.<\/p>\n <\/b><\/p>\n Bild 5: Festlegen einer zweiten Bedingung<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Eine Bedingung mit unterer und oberer Grenze<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Festlegen einer Bedingung durch einen Ausdruck<\/span><\/b><\/p>\n Die bedingte Formatierung lässt sich nur auf Text- und Kombinationsfelder anwenden. <\/p>\n Beim Anlegen einer neuen Bedingung besteht diese aus drei Teilen. Das gilt allerdings nur, solange im linken Kombinationsfeld der Eintrag Feldwert ist ausgewählt ist. Es gibt dort noch zwei weitere Einträge: Ausdruck ist und Feld hat Fokus.<\/p>\n Bleiben wir doch zunächst beim Eintrag Feldwert ist: In dem Fall können Sie im zweiten Kombinationsfeld einen der Vergleichsoperatoren Zwischen, Nicht zwischen, Gleich, Ungleich, Größer als, Kleiner als, Größer als oder gleich oder Kleiner als oder gleich angeben.<\/p>\n Für die letzten sechs Möglichkeiten geben Sie im rechten Textfeld den gewünschten Vergleichswert an.<\/p>\n Die ersten beiden Ausdrücke benötigen zwei Werte für eine brauchbare Bedingung: die untere und die obere Grenze (siehe Bild 6).<\/p>\n Wer sich einmal mit dieser zweiten Möglichkeit zum Anlegen von Bedingungen auseinandergesetzt hat, wird vermutlich nicht mehr auf die erste zurückgreifen wollen: Diese Variante ermöglicht die Formulierung eigener Bedingungen unter Zuhilfenahme aller in der Tabelle vorkommenden Felder und aller in Access zur Verfügung stehenden Funktionen.<\/p>\n Mit das Einfachste, was Sie mit dieser Variante tun können, ist das Ersetzen einer „Feldwert ist…“-Bedingung. Zum Markieren aller Preise, deren Wert größer als 10,- EUR ist, verwenden Sie einfach den Ausdruck aus Bild 7.<\/p>\n <\/p>\n Sie können allerdings noch einiges mehr damit anstellen: Wenn Sie beispielsweise wissen möchten, welcher Artikel in mehr als 20 Bestellungen berücksichtigt wurde, verwenden Sie den folgenden Ausdruck:<\/p>\n Der Ausdruck zählt das Vorkommen der einzelnen Bestellnummern in der Tabelle Bestelldetails, und zwar für alle Bestellungen, die auch den aktuellen Artikel enthalten. Dass die Zählung sich auf die Artikel-Nr des jeweiligen Datensatzes beschränkt, liegt am letzten Teil der DCount-Funktion: „[Artikel-Nr]=“ & [Artikel-Nr]<\/p>\n Wenn Sie in Ausdrücken für die bedingte Formatierung Feldnamen verwenden, müssen Sie solche, die nicht ausschließlich aus Buchstaben bestehen, unbedingt in eckige Klammern einschließen – wie hier im Falle der Felder [Artikel-Nr] und [Bestell-Nr]. <\/p>\n Die dritte und letzte Möglichkeit für eine bedingte Formatierung ist Feld hat Fokus. Damit erreichen Sie, dass das Feld, auf dem der Fokus liegt, in der gewünschten Formatierung angezeigt wird.<\/p>\n Damit auch alle Felder beim Fokuserhalt markiert werden, müssen Sie die bedingte Formatierung natürlich auch für alle Felder festlegen.<\/p>\n Weiter unten erfahren Sie, wie Sie dies einfach per VBA erledigen und sich damit eine Menge Handarbeit sparen können.<\/p>\n Die bedingte Formatierung ermöglicht die individuelle Verwendung folgender Steuerelementeigenschaften:<\/p>\n Das große Textfeld links von den Formatierungsoptionen zeigt eine Vorschau auf das gewählte Format.<\/p>\n Auch wenn sich dieser Beitrag auf die Beschreibung der bedingten Formatierung in Zusammenhang mit Formularen beschränkt, ist diese Funktion auch in Berichten verfügbar.<\/p>\n In Formularen können Sie sogar in allen zur Dateneingabe verwendbaren Formularansichten bedingte Formatierungen einfügen: in der Datenblattansicht, in der Formularansicht und in der Endlosansicht.<\/p>\n Bedingte Formatierungen lassen sich nicht deaktivieren, sondern nur löschen. Um eine von mehreren bedingten Formatierungen eines Steuerelements zu löschen, klicken Sie auf die entsprechende Schaltfläche. Es erscheint ein Dialog, in dem Sie die zu löschenden Bedingungen aktivieren und schließlich den Löschvorgang starten (siehe Bild 8).<\/p>\n <\/b><\/p>\n Bild 8: Löschen von Bedingungen<\/span><\/b><\/p>\n Die freie Gestaltung der Bedingung lässt zu, dass mehrere für ein Feld zutreffende Bedingungen festgelegt werden können. Wenn Sie beispielsweise „Feldwert ist größer als 10“ und „Feldwert ist größer als 20“ als Bedingungen verwenden, treffen auf Felder mit einem Inhalt größer als 20 beide Bedingungen zu. Hier entscheidet dann die Reihenfolge der Bedingungen: Wenn zwei oder mehr Bedingungen für den Inhalt eines Feldes zutreffend sind, verwendet Access die erste angegebene Bedingung.<\/p>\n Wenn Sie also tatsächlich die beiden beispielhaft angeführten Bedingungen verwenden möchten, sollten Sie die Bedingung „Feldwert ist größer als 20“ als erste und „Feldwert ist größer als 10“ als zweite Bedingung angeben.<\/p>\n Sonst können Sie aufgrund der Formatierung nur erkennen, ob ein Wert größer als 10 ist; Werte über 20 führen nicht zu der angegebenen Formatierung.<\/p>\n <\/b><\/p>\n Bild 9: Die bedingte Formatierung lässt nur drei Zustände je Feld zu.<\/span><\/b><\/p>\n Wer ein wenig mit der bedingten Formatierung herumspielt, macht schnell eine einschränkende Erfahrung: Nach drei Formaten je Feld ist nämlich Schluss.<\/p>\n Die Hinzufügen-Schaltfläche wird deaktiviert und weitere Bedingungen lassen sich nicht integrieren (siehe Bild 9). Das ist vielleicht auch gar nicht schlecht, denn es gibt sicher einige Fans von farbigen Darstellungen, die es ansonsten übertreiben würden. Es lassen sich allerdings für jedes Feld drei Bedingungen festlegen; für ausreichend Möglichkeiten zur farblichen Gestaltung ist also gesorgt.<\/p>\n Die Artikel-Tabelle enthält zwei Felder mit Lookup-Daten: Lieferanten und Kategorien. Die beispielsweise im Feld Kategorien angezeigten Einträge wie Getränke, Süßwaren oder Milchprodukte sind in einer eigenen Tabelle gespeichert; das eigentliche Feld der Tabelle Artikel ist über den Primärschlüssel der Tabelle Kategorien mit dem entsprechenden Wert verknüpft.<\/p>\n Es gehört zu den großen Vorzügen von Access, dass diese Felder in Tabellen, Abfragen und Formularen den aus der verknüpften Tabelle ausgewählten Wert anstelle des nackten Primärschlüssels anzeigen.<\/p>\n Bei der bedingten Formatierung führt das allerdings zu Problemen: Legen Sie einmal für das Feld Kategorien in unserem Beispielformular ein Kriterium wie „Feldwert ist gleich Milchprodukte“ an. Sie erhalten postwendend eine Fehlermeldung mit dem Hinweis, dass das Automatisierungsobjekt „Milchprodukte“ nicht vorhanden ist – mit dieser Meldung können nur die wenigsten etwas anfangen.<\/p>\n Auch der Versuch, den Ausdruck wie bei String-Kriterien in Abfragen in Anführungszeichen zu setzen, bringt nicht das gewünschte Resultat. Als Ergebnis bleibt immerhin die Fehlermeldung aus, aber die gewünschte Formatierung ist auch nicht zu sehen. Die Lösung ist einfach: Die Kriterien der bedingten Formatierung müssen sich auf den eigentlichen Feldinhalt beziehen, also auf den Zahlenwert in der Tabelle Artikel, der den entsprechenden Datensatz der Tabelle Kategorien repräsentiert.<\/p>\n Werfen wir also einen Blick in die Tabelle Kategorien: Der Kategoriename Milchprodukte entspricht beispielsweise der Kategorienummer 4. Und tatsächlich: Die Bedingung „Feldwert ist gleich 4“ führt zur Markierung der Felder, die den Wert Milchprodukte anzeigen.<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Das Access-Objektmodell hält für Textfelder und Kombinationsfelder selbstverständlich auch Anweisungen zum Hinzufügen, Bearbeiten und Löschen von bedingten Formatierungen bereit.<\/p>\n Bedingte Formatierungen lassen sich wie viele andere Eigenschaften von Steuerelementen ganz einfach anpassen.<\/p>\n Mit der Add-Methode fügen Sie einem Steuerelement eine bedingte Formatierung hinzu. Die Methode hat bis zu vier Parameter.<\/p>\n Die Parameter sind genau wie in dem Dialog zum Anlegen von bedingten Formatierungen angeordnet und hängen genauso voneinander ab – wenn Sie also als Typ den Wert acFieldHasFocus wählen, benötigen Sie keine weiteren Parameter.<\/p>\n Im Falle von acExpression enthält der zweite Parameter direkt die Bedingung.<\/p>\n Ein wenig mehr Parameter sind für den Typ acFieldValue erforderlich:<\/p>\n Zunächst wählen Sie aus einem der Vergleichsoperatoren aus (acBetween, acEqual, acGreaterThan, acLessThan, acGreaterThanEqual, acLessThanOrEqual, acNotBetween, acNotEqual) und geben dann in einem oder zwei weiteren Parametern die entsprechenden Vergleichswerte an. Ein Beispiel finden Sie in Quellcode 1.<\/p>\n Zum Löschen einer bedingten Formatierung verwenden Sie die Delete-Methode eines Elements der FormatConditions-Auflistung. Für die mit der vorherigen Prozedur angelegte bedingte Formatierung reicht eine Anweisung aus:<\/p>\n Das Format zu einer bedingten Formatierung passen Sie wie in der Prozedur aus Quellcode 1 an. Es stehen die Eigenschaften BackColor, Enabled, FontBold, FontItalic, FontUnderline und ForeColor zur Verfügung.<\/p>\n Quellcode 3<\/b><\/p>\n Weiter oben haben wir erwähnt, dass im Falle vieler betroffener Steuerelemente eine Einstellung der bedingten Formatierung per VBA sinnvoll sein könnte. Das trifft beispielsweise zu, wenn Sie die Option „Feld hat Fokus“ verwenden, um das aktuelle Feld zu markieren.<\/p>\n Die Prozedur aus Quellcode 2 legt für alle Text- und Kombinationsfelder eines Formulars eine bedingte Formatierung an, die das Feld mit dem Fokus mit einem gelben Hintergrund und fetter Schrift versieht. Wenn Sie einem Formular eine Menge bedingter Formatierungen verpasst haben, können Sie diese mit der Prozedur aus Quellcode 3 schnell wieder entfernen. Diese Prozedur spart viel Arbeit, wenn Ihnen nach einer Weile Arbeit mit Feldern, die bei Fokuserhalt zum Beispiel einen gelben Hintergrund bekommen, eine andere Formatierung sinnvoller erscheint.<\/p>\n Sie müssen die bedingte Formatierung nicht im Entwurfsmodus hinzufügen, sondern auch in den anderen Anzeigearten. Mit dem Dialog erledigen Sie das ja auch zur Laufzeit und nicht während des Entwurfs. <\/p>\n Nachfolgend stellen wir Ihnen noch einige besondere Anwendungsmöglichkeiten vor.<\/p>\n Neben den optischen Formatierungen können Sie mit der bedingten Formatierung auch Text- oder Kombinationsfelder sperren. Es gibt einige Beispiele für Daten, die beim Eintreten einer bestimmten Bedingung nicht mehr geändert werden dürfen – beispielsweise Rechnungsdaten nach Versenden einer Rechnung.<\/p>\n Dies wird normalerweise durch ein bestimmtes Datum wie dem Rechnungsdatum oder durch das Setzen eines Häkchens in ein entsprechendes Boolean-Feld markiert.<\/p>\n Wenn ein auf diese Weise markierter Datensatz nicht mehr geändert werden soll, fügen Sie einfach eine Bedingung hinzu, die überprüft, ob das entsprechende Datum gesetzt ist und das Format des Feldes auf den Wert „Deaktiviert“ einstellt.<\/p>\n Mit der bedingten Formatierung können Sie einem Formular leicht Kommentar-Textfelder hinzufügen, die nur unter bestimmten Bedingungen erscheinen. Beispiel: Sie möchten, dass ein Warntext erscheint, wenn der Vorrat eines bestimmten Produkts zur Neige geht.<\/p>\n <\/b><\/p>\n Bild 10: Hinzufügen eines Warnfeldes<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 11: Diese bedingte Formatierung sorgt für ein Warnsignal beim Erreichen eines bestimmten Lagerbestandes.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 12: Diese Meldung wird durch eine bedingte Formatierung sichtbar gemacht.<\/span><\/b><\/p>\n Nehmen Sie sich doch die Formularansicht unseres Beispielformulars vor. Dort fügen Sie neben dem Feld Lagerbestand ein Textfeld mit dem Text Achtung! Mindestbestand erreicht! ein (siehe Bild 10).<\/p>\n ändern Sie anschließend die Hintergrundfarbe und die Textfarbe des Textfeldes auf die gleiche Farbe, die auch der Formularhintergrund hat. Stellen Sie außerdem die Eigenschaft Rahmenart auf den Wert Transparent ein.<\/p>\n Der Text soll nur sichtbar sein, wenn der Lagerbestand des Artikels den Mindestbestand erreicht oder darunter fällt und der Artikel kein Auslaufartikel ist. Die entsprechende bedingte Formatierung entnehmen Sie Bild 11.<\/p>\n Das Ergebnis sieht wie in Bild 12 aus. Die Meldung hat nur einen Schönheitsfehler: Der Hintergrund kann nicht mit herkömmlichen Mitteln an die Farbe des Formularhintergrunds angepasst werden, wenn diese nicht in der Farbpalette des Dialogs Bedingte Formatierung vorhanden ist.<\/p>\n Per VBA können Sie natürlich alle denkbaren Farben als Hintergrundfarbe zuweisen. Dazu verwenden Sie etwa folgende Anweisung:<\/p>\n Verwenden Sie den Index 0, wenn die bedingte Formatierung die erste im Dialog Bedingte Formatierung ist. <\/p>\n Bedingte Formatierungen sind gegenüber älteren Access-Versionen bis Version 97 ein deutlicher Fortschritt.<\/p>\n Sie können damit zwar nicht beliebig viele, aber ansonsten uneingeschränkte Bedingungen prüfen, die unter Umständen gar nichts mit den in der Tabelle enthaltenen Daten zu tun haben.<\/p>\n Durch die Möglichkeit, diese Funktionalität auch per VBA zu programmieren, lässt sich in vielen Fällen eine Menge Arbeit sparen.<\/p>\n","protected":false},"excerpt":{"rendered":" Bis zum Erscheinen von Access 2000 war einer der größten Wünsche der Access-Gemeinde die Formatierung einzelner Daten in Abhängigkeit von ihrem Inhalt. Dann war es endlich soweit: Microsoft erfüllte den Wunsch und spendierte Access eine Funktion namens Bedingte Formatierung (engl. Conditional Formatting). Damit lassen sich Daten in unterschiedlichen Schriften, Schriftarten oder Hintergrundfarben anzeigen – und das in Formularen und Berichten.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012005,662005,44000024,44000028,44000023],"tags":[],"class_list":["post-55000259","post","type-post","status-publish","format-standard","hentry","category-66012005","category-662005","category-Berichte_und_Reporting","category-Ergonomie_und_Benutzeroberflaeche","category-Mit_Formularen_arbeiten"],"yoast_head":"\nBeispieldatenbank<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic002.png\")
<\/p>\nAller Anfang ist leicht …<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic007.png\")
<\/p>\nHinweis<\/h3>\n
Die Bedingung<\/h2>\n
Vergleich mit dem Feldwert<\/h3>\n
Ausdrücke<\/h3>\n
DomAnzahl(\"[Bestell-Nr]\";\"Bestelldetails\";\"[Artikel-Nr]=\" & [Artikel-Nr])>20<\/pre>\n
Praxis-Tipp<\/h3>\n
Feld hat den Fokus<\/h3>\n
Die Formatierung<\/h2>\n
Anwendungsgebiete<\/h2>\n
Löschen einer bedingten Formatierung<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic008.png\")
<\/p>\nWer zuerst kommt, mahlt zuerst<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic009.png\")
<\/p>\nWeniger ist mehr<\/h2>\n
Probleme mit Lookup-Feldern<\/h2>\n
Public Sub BedingteFormatierungAnlegen()\r\n Dim frm As Form\r\n Dim ctl As Control\r\n DoCmd.OpenForm \"frmArtikel\"\r\n Set frm = Forms!frmArtikel\r\n Set ctl = frm.Controls(\"Einzelpreis\")\r\n With ctl.FormatConditions\r\n .Add acFieldValue, acGreaterThan, 10\r\n .Item(0).FontBold = True\r\n End With\r\nEnd Sub<\/pre>\n
Public Sub FeldHatFokusHinzufuegen(strFormularname _ As String)\r\n Dim ctl As Control\r\n Dim frm As Form\r\n DoCmd.OpenForm strFormularname, acDesign\r\n Set frm = Forms(strFormularname)\r\n For Each ctl In frm.Controls\r\n If ctl.ControlType = acTextBox Or _ ctl.ControlType = acComboBox Then\r\n ctl.FormatConditions.Add acFieldHasFocus\r\n With ctl.FormatConditions(0)\r\n .FontBold = True\r\n .BackColor = 65535\r\n End With\r\n End If\r\n Next ctl\r\n DoCmd.Save acForm, strFormularname\r\n DoCmd.Close acForm, strFormularname\r\nEnd Sub<\/pre>\n
Bedingte Formatierunghinzufügen<\/h3>\n
Bedingte Formatierung löschen<\/h3>\n
Forms!frmArtikel!Einzelpreis.FormatConditions(0).Delete<\/pre>\n
Anpassen des Formats<\/h3>\n
Public Sub AlleBedingtenFormatierungenEntfernen(strFormularname As String)\r\n Dim ctl As Control\r\n Dim frm As Form\r\n Dim varBedingteFormatierung As Variant\r\n DoCmd.OpenForm strFormularname, acDesign\r\n Set frm = Forms(strFormularname)\r\n For Each ctl In frm.Controls\r\n If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then\r\n For Each varBedingteFormatierung In ctl.FormatConditions\r\n varBedingteFormatierung.Delete\r\n Next varBedingteFormatierung\r\n End If\r\n Next ctl\r\n DoCmd.Save acForm, strFormularname\r\n DoCmd.Close acForm, strFormularname\r\nEnd Sub<\/pre>\n
Beispiele für das Erstellen und Löschen von bedingten Formatierungen per VBA<\/h3>\n
Praxis-Tipp<\/h3>\n
Sperren von Steuerelementen<\/h2>\n
Anzeigen zusätzlicher Kommentare<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic010.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic011.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07D96EA-D25C-4864-91CA-5F747BC2F75C}\/pic012.png\")
<\/p>\nForms!frmArtikel!txtWarnung.FormatConditions(0).BackColor = -2147483633<\/pre>\n