<\/p>\n
Mit Access 2010 hat Microsoft den Steuerelementen von Access einige neue Eigenschaften spendiert. Dabei können Sie die meisten Eigenschaften ganz einfach über die Benutzeroberfläche einstellen. Wer allerdings etwa Steuerelemente per VBA-Code zu Formularen hinzufügt oder diese in einem Rutsch anpassen möchte, muss Forschungsarbeit leisten: Die Zusammenhänge zwischen den Eigenschaften der Benutzeroberfläche und den entsprechenden VBA-Eigenschaften sind nämlich nicht auf den ersten Blick ersichtlich.<\/b><\/p>\n
Voraussetzungen<\/b><\/p>\n
Die in diesem Beitrag beschriebenen Techniken setzen mindestens Access 2010 voraus.<\/p>\n
Neues ab Access 2010<\/b><\/p>\n
Mit Access 2010 wurden einige neue Eigenschaften für Steuerelemente eingeführt. Dementsprechend wurden auch die Standardeigenschaften für die meisten Steuerelemente angepasst. Das ist leider hier und da etwas schiefgegangen … siehe beispielsweise Bild 1. Dort haben wir einem Formular eine Schaltfläche und eine Umschaltfläche hinzugefügt.<\/p>\n
![\"Beispielformular](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_001.png\")
<\/p>\n
Bild 1: Beispielformular mit der zu bearbeitenden Schaltfläche<\/span><\/b><\/p>\n Während die Schaltfläche als gelungen bezeichnet werden kann, ist bei der Umschaltfläche scheinbar etwas schiefgelaufen: Sie sieht aus wie eine gezoomte Variante eines eigentlich viel kleineren Steuerelements und unterscheidet sich deutlich vom Design der Schaltfläche.<\/p>\n Umschaltfläche – was ist passiert<\/b><\/p>\n Wir werden nicht reproduzieren können, was Microsoft sich bei der Gestaltung dieses Steuerelements gedacht hat, dessen Design sich ja eigentlich an das der Schaltfläche anlehnen sollte. Interessanterweise hat Microsoft dieses scheinbare Problem noch nicht einmal in Access 2013 korrigiert – dort sieht die Umschaltfläche immer noch so wie im Sceenshot aus.<\/p>\n Aber es ist eine gute Möglichkeit, die Eigenschaften dieser beiden Steuerelemente zu untersuchen und herauszufinden, wie wir das Design der Umschaltfläche an das der Schaltfläche angleichen.<\/p>\n über die Benutzeroberfläche gelingt dies übrigens recht leicht: Sie müssen im Formularentwurf lediglich eine nach Ihren Wünschen formatierte Schaltfläche markieren, auf den Ribbon-Eintrag Start|Zwischenablage|Format übertragen <\/b>klicken und dann die Umschaltfläche anklicken.<\/p>\n Schon sieht die Umschaltfläche genauso aus wie die herkömmliche Schaltfläche (s. Bild 2).<\/p>\n Bild 2: Die Umschaltfläche lässt sich leicht anpassen.<\/span><\/b><\/p>\n Unterschiede zwischen Steuerelementen<\/b><\/p>\n Wir könnten nun das Eigenschaftsfenster zu Rate ziehen und Eigenschaft für Eigenschaft die Werte für die Schaltfläche und die Umschaltfläche vergleichen. Das geht allerdings auch eleganter: Wir speichern das Formular zunächst unter dem gewünschten Namen und sichern dessen Code dann als Textdatei auf der Festplatte. Angenommen, das Formular heißt frmSchaltflaechen<\/b>, dann verwenden wir die folgende Anweisung:<\/p>\n Dies legt eine Textdatei im Verzeichnis der Datenbankdatei an. Diese öffnen wir und suchen uns die beiden Teile heraus, die mit Begin CommandButton <\/b>beziehungsweise mit Begin ToggleButton <\/b>beginnen. Kopieren Sie beide Teile und fügen Sie diese in neue Textdateien ein, erhalten Sie, wenn Sie diese nebeneinander positionieren, die Ansicht aus Bild 3.<\/p>\n Bild 3: Unterschiede der Eigenschaften von Umschaltfläche und Schaltfläche<\/span><\/b><\/p>\n Wie es aussieht, gibt es eine ganze Reihe von Eigenschaften, die wir uns ansehen müssen!<\/p>\n Formatierung per Benutzeroberfläche<\/b><\/p>\n Bevor wir uns die einzelnen VBA-Eigenschaften ansehen, werfen wir jedoch einen Blick auf die Möglichkeiten, welche die Benutzeroberfläche bietet. Diese finden Sie auf dem Ribbon-Tab Format<\/b>, wenn Sie in der Entwurfsansicht eines Formulars auf eine Schaltfläche klicken.<\/p>\n Während Eigenschaften wie die zur Schriftformatierung sich nicht geändert haben, finden Sie in der Gruppe Steuerelementformatierung<\/b>, die eigentlich recht unscheinbar aussieht, eine große Vielzahl neuer Möglichkeiten. Bild 4 zeigt die verschiedenen Einstellungen für alle Eigenschaften in aufgeklappter Form.<\/p>\n Bild 4: Möglichkeiten zum Formatieren von Schaltflächen<\/span><\/b><\/p>\n Designs analysieren<\/b><\/p>\n Wie aber erfahren wir nun, welche der vielen Einstellungen sich wie auf die VBA-Eigenschaften der betroffenen Steuerelemente auswirken Ganz einfach: Wir vergleichen einfach Eigenschaft für Eigenschaft zwischen zwei verschiedenen Designs. Natürlich soll dies nicht manuell geschehen – wir erledigen dies per VBA-Code. Dazu erstellen Sie ein neues Formular namens frmEigenschaften <\/b>und fügen diesem eine Schaltfläche namens frmSchaltflaeche <\/b>hinzu.<\/p>\n Außerdem benötigen wir eine Tabelle, in der wir die Eigenschaftswerte des Formulars vor und nach einer änderung speichern. Diese soll tblEigenschaften <\/b>heißen und im Entwurf wie in Bild 5 aussehen. Wichtig ist, dass Sie für das Feld EigenschaftName <\/b>einen eindeutigen Index definieren – auf diese Weise kann für jede Eigenschaft nur ein Satz von Werten gespeichert werden. Die beiden Felder EigenschaftWertAlt <\/b>und EigenschaftWertNeu <\/b>nehmen den vorherigen und den aktuellen Wert der Eigenschaft auf.<\/p>\n Bild 5: Tabelle zum Speichern der unterschiedlichen Eigenschaftswerte<\/span><\/b><\/p>\n Für diese Tabelle erstellen Sie ein Unterformular namens sfmEigenschaften<\/b>. Dieses zeigt die drei Felder EigenschaftName<\/b>, EigenschaftWertAlt <\/b>und EigenschaftWertNeu <\/b>in der Datenblattansicht an.<\/p>\n Das Unterformular ziehen Sie in das bereits angelegte Formular frmEigenschaften<\/b>. Die Kombination aus Haupt- und Unterformular sollte nun wie in Bild 6 aussehen.<\/p>\n Bild 6: Formular zum Ermitteln der Unterschiede zwischen zwei Designs<\/span><\/b><\/p>\n Prozedur zum Speichern von Eigenschaften<\/b><\/p>\n Nun benötigen wir noch eine Prozedur, welche die aktuellen Eigenschaften der Schaltfläche frmSchaltflaeche <\/b>in der Tabelle tblEigenschaften <\/b>speichert. Diese lösen wir praktischerweise mit der einzigen Schaltfläche auf dem Formular aus. Die Prozedur sieht wie in Listing 1 aus. Sie füllt die Variable db <\/b>mit einen Verweis auf die aktuelle Datenbank, um später die Execute<\/b>-Methode nutzen zu können. Vor dem wenige Sekunden dauernden Durchlaufen und Speichern aller Eigenschaften zeigt die Prozedur den Mauszeiger als Sanduhr an und deaktiviert das Neuzeichnen des Formulars, da dieses sonst unnötig flackert. Diese beiden Einstellungen macht die Prozedur anschließend wieder rückgängig. Die Variable cmd <\/b>wird mit einem Verweis auf die Schaltfläche cmdSchaltflaeche <\/b>gefüllt. Die Eigenschaften müssen wir glücklicherweise nicht alle von Hand eintippen – wir können die Properties<\/b>-Auflistung des CommandButton<\/b>-Steuer-elements nutzen, um alle vorhandenen Eigenschaften in einer For Each<\/b>-Schleife zu durchlaufen. Die Laufvariable prp <\/b>dieser Schleife hat den Datentyp Property<\/b>.<\/p>\n Listing 1: Aufzeichnen der Eigenschaften einer Schaltfläche<\/span><\/b><\/p>\n In dieser Schleife prüfen wir in einer Select Case<\/b>-Bedingung den Namen der Property<\/b>. Bei der Eigenschaft InSelection <\/b>soll nichts geschehen, da diese Eigenschaft nur in der Entwurfsansicht verfügbar ist. Für alle übrigen Eigenschaften deaktiviert die Prozedur zunächst kurzzeitig die Fehlerbehandlung – den Hintergrund erfahren Sie gleich.<\/p>\n Die Prozedur speichert nun einen eventuell bereits im Feld EigenschaftWertNeu <\/b>der Tabelle tblEigenschaften <\/b>gespeicherten Wert für die aktuelle Eigenschaft in der Variablen strWertAlt<\/b>. Den bereits vorhandenen Wert ermittelt die Prozedur per DLookup<\/b>, wobei der mit prp.Name <\/b>ermittelte Eigenschaftsname als Vergleichswert beim Kriterium dient. Den aktuellen Wert der Eigenschaft speichert die Prozedur in der Variablen strWertNeu<\/b>. Dabei ersetzt die Prozedur gleich eventuell im Eigenschaftswert enthaltene einfache Anführungszeichen durch zwei einzelne Anführungszeichen.<\/p>\n Schließlich legt die folgende INSERT INTO<\/b>-Aktionsabfrage einen neuen Datensatz in der Tabelle tblEigenschaften <\/b>an, wobei der Name sowie der alte und der neue Eigenschaftswert in den entsprechenden Feldern landen.<\/p>\n Sobald die Eigenschaften erstmalig in die Tabelle eingetragen wurden, führt der Aufruf dieser SQL-Anweisung zu einem Fehler: Der Wert im Feld EigenschaftName <\/b>ist dann nämlich bereits vorhanden. Da dieses Feld mit einem eindeutigen Index versehen ist, löst dies den Fehler 3022 <\/b>aus. Der Datensatz wird in diesem Fall nicht angelegt.<\/p>\n Aber wir haben ja vorgesorgt: Durch das vorherige On Error Resume Next <\/b>haben wir verhindert, dass der Fehler angezeigt wird. Und durch die Prüfung der Fehlernummer in der folgenden Select Case<\/b>-Bedingung sorgen wir im Falle des Fehlers mit der Nummer 3022 <\/b>dafür, dass eine weitere SQL-Aktionsabfrage ausgeführt wird.<\/p>\n Diese ersetzt die Werte der Felder EigenschaftWertAlt <\/b>und EigenschaftWertNeu <\/b>durch die in den Variablen strWertAlt <\/b>und strWertNeu <\/b>gespeicherten Werte – und zwar nur für den Datensatz mit der aktuell untersuchten Eigenschaft. Nach dem Durchlaufen aller Eigenschaften aktualisiert die Prozedur noch den Inhalt des Unterformulars, wodurch das komplette Formular nun wie in Bild 7 aussieht.<\/p>\n <\/p>\n Bild 7: Formular zur Anzeige der alten und neuen Werte der Eigenschaften einer Schaltfläche<\/span><\/b><\/p>\n Fehlt noch eine Kleinigkeit, um die Unterschiede zu ermitteln: eine bedingte Formatierung, welche diejenigen Felder farbig markiert, bei denen der alte und der neue Wert nicht übereinstimmen. Alternativ können Sie den Inhalt des Unterformulars natürlich auch so filtern, dass nur die Datensätze mit unterschiedlichen Werten angezeigt werden.<\/p>\n Um die Datensätze mit unterschiedlichen Werten in den Feldern EigenschaftWertAlt <\/b>und EigenschaftWertNeu <\/b>farbig hervorzuheben, legen Sie für die beiden Textfelder EigenschaftWertAlt <\/b>und EigenschaftWertNeu <\/b>jeweils eine bedingte Formatierung an, für die Sie den folgenden Ausdruck hinterlegen:<\/p>\n Im Formular der Beispieldatenbank haben wir außerdem noch ein Kontrollkästchen hinterlegt, welches nach der Aktualisierung die Prozedur aus Listing 2 auslöst.<\/p>\n Listing 2: Filtern nach Datensätzen mit unterschiedlichen alten und neuen Werten<\/span><\/b><\/p>\n Wenn Sie die Schaltfläche nun, ausgehend von der Standardformatierung, mit einem neuen Farbverlauf versehen (Ribbon-Eintrag Format|Steuer-ele-ment-for-ma-tie-rung|Füll-effekt|Farb-ver-lauf|Linear diagonal<\/b>), erscheint als einzige geänderte Eigenschaft die Eigenschaft Gradient <\/b>(s. Bild 8).<\/p>\n Bild 8: Anzeige einer geänderten Eigenschaft<\/span><\/b><\/p>\n Kleiner Tipp: Wenn Sie während der Experimente das Standarddesign wiederherstellen möchten, fügen Sie dem Formular eine frische Schaltfläche hinzu und übertragen ihre Formatierungen mit dem Ribbon-Befehl Start|Zwischenablage|Format übertragen<\/b>.<\/p>\n Theme benutzen<\/b><\/p>\n Wenn Sie eine Datenbank öffnen, die mit einer älteren Version als Access 2010 erstellt wurde, und sich wundern, warum sich die änderungen einiger Eigenschaften per VBA nicht auswirken, liegt es vermutlich an der Eigenschaft UseTheme <\/b>(im Eigenschaftsfenster: Design verwenden<\/b>). Diese wurde erst mit Access 2010 eingeführt und ist dementsprechend für Steuerelemente in Datenbanken älterer Versionen standardmäßig auf den Wert 0 <\/b>(False<\/b>) eingestellt.<\/p>\n Wenn Sie die Designmöglichkeiten von Access 2010 nutzen möchten, können Sie die Eigenschaft per VBA oder über das Eigenschaftsfenster einstellen – oder durch die Auswahl eines der Ribbon-Einträge, welche die Verwendung eines Themes erfordern (also etwa durch Festlegen einer anderen Form als der rechteckigen).<\/p>\n Eigenschaften per VBA anpassen<\/b><\/p>\n Damit Sie im Beispielformular schnell mal eine Einstellung für eine Steuerelementeigenschaft ausprobieren können, haben wir dieser noch zwei Steuerelemente hinzugefügt.<\/p>\n Das Erste ist ein Kombinationsfeld und heißt cboEigenschaften<\/b>. Es verwendet die folgende Abfrage als Datensatzherkunft<\/b>:<\/p>\n Das Kombinationsfeld soll nur das zweite Feld anzeigen, deshalb stellen Sie die Eigenschaft Spaltenanzahl <\/b>auf den Wert 4 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf 0cm;;0cm;0cm <\/b>ein.<\/p>\n Nach dem Auswählen einer Eigenschaft aus der Tabelle tblEigenschaften <\/b>(was voraussetzt, dass diese bereits gefüllt ist) soll das darunter befindliche Textfeld txtWert <\/b>mit dem aktuellen Wert der Eigenschaft gefüllt werden.<\/p>\n Dies erledigt die folgende Prozedur:<\/p>\n über das Textfeld können Sie dann einen neuen Wert für die aktuell ausgewählte Eigenschaft einstellen.<\/p>\n Die folgende Prozedur wird durch das Ereignis Nach Aktualisierung <\/b>des Textfeldes ausgelöst und stellt den Wert der ausgewählten Eigenschaft für die Beispielschaltfläche cmdSchaltflaeche <\/b>auf den angegebenen Wert ein:<\/p>\n Was bringt uns dies Zunächst können wir schnell mal die Wirkung verschiedener Eigenschaften ausprobieren. Außerdem bewirkt die Einstellung mancher Eigenschaften, dass automatisch weitere Eigenschaften angepasst werden – dies werden wir weiter unten sehen.<\/p>\n Wenn Sie dies schnell testen wollen, brauchen Sie nur die betroffene Eigenschaft zu ändern und können dann nach einem Klick auf die Schaltfläche cmdSchaltflaeche <\/b>schnell prüfen, ob sich tatsächlich noch weitere Eigenschaften geändert haben. Wenn Sie so beispielsweise die Eigenschaft Back-ThemeColorIndex <\/b>ändern, können Sie schnell feststellen, dass sich damit gleichzeitig die Eigenschaft BackColor <\/b>ändert.<\/p>\n Damit Sie den eingegebenen Wert mit der Eingabetaste bestätigen und diesen gleich danach nochmals ändern können, haben wir noch eine weitere Prozedur hinzugefügt, die beim Betätigen der Eingabetaste ausgelöst wird:<\/p>\n Die Prozedur legt den aktuellen Text als Wert fest und ruft die Prozedur txtWert_AfterUpdate <\/b>auf. Durch das Einstellen von KeyCode <\/b>auf 0 <\/b>bleibt die Einfügemarke im Textfeld txtWert<\/b>.<\/p>\n Designeinstellungen per VBA<\/b><\/p>\n Nachfolgend schauen wir uns an, wie Sie die verschiedenen Einstellungen, die Sie sonst über die Ribbon-Befehle des Design-Tabs erhalten, per VBA vornehmen können (s. Bild 9) beziehungsweise welche VBA-Eigenschaften durch die Einstellungen im Ribbon geändert werden.<\/p>\n Bild 9: ändern einer Eigenschaft direkt über das Formular<\/span><\/b><\/p>\n Schnellformatvorlagen<\/b><\/p>\n Die über den Ribbon-Eintrag For-mat|Steuer-ele-ment-for-ma-tie-rung|Schnell-for-matvorlagen <\/b>verfügbaren Designs für Steuerelemente ändern gleich eine ganze Reihe von Eigenschaften – und auch nicht unbedingt immer die gleichen. Wir wollen diese hier nicht im Detail aufführen.<\/p>\n Formen ändern<\/b><\/p>\n Mit den Ribbon-Einträgen unter For-mat|Steuer-ele-ment-for-ma-tie-rung|Form ändern<\/b> stellen Sie die Form der Steuerelemente ein (s. Bild 10). Wenn Sie etwa von Rechteck <\/b>auf Gerundetes Rechteck (kleine Spitze) <\/b>wechseln, ändert dies lediglich den Wert der Eigenschaft Shape<\/b> von 1 <\/b>auf 0<\/b>.<\/p>\n Bild 10: Einstellen der Form eines Steuerelements<\/span><\/b><\/p>\n Hier sind die Werte, die diese Eigenschaft annehmen kann:<\/p>\n Fülleffekte<\/b><\/p>\n Der Ribbon-Eintrag Format|Steuer-ele-ment-for-ma-tie-rung|Füll-effekt <\/b>hält gleich mehrere Optionen bereit. Die erste lautet Auto<\/b>, was ausgehend von der Standardeinstellung gleich mehrere Eigenschaften ändert:<\/p>\n Dies stellt also zunächst die Eigenschaft Gradient <\/b>ein, die wir uns weiter unten ansehen. Außerdem sind gleich neun weitere Eigenschaften betroffen, wovon allerdings je drei zusammenhängen – und zwar, weil Sie die Hintergrundfarbe für den Standardzustand, für den Hover-Zustand und für den angeklickten Zustand definieren. Dabei wird jeweils die Eigenschaft …Color<\/b>, …ThemeColorIndex <\/b>und …Tint <\/b>geändert.<\/p>\n Die änderung einer der Eigenschaften BackThemeColorIndex<\/b>, HoverThemeColorIndex <\/b>und PressedThemeColorIndex <\/b>per VBA sorgt jedoch auch direkt für die Einstellung der Eigenschaften BackColor<\/b>, HoverColor <\/b>und PressedColor<\/b>.<\/p>\n Designfarben aufhellen<\/b><\/p>\n Im vorherigen Beispiel haben Sie die Eigenschaften BackTint<\/b>, HoverTint <\/b>und PressedTint <\/b>kennengelernt.<\/p>\n Diese Eigenschaften dienen dazu, die mit der jeweiligen …ThemeColorIndex <\/b>ausgewählte Designfarbe aufzuhellen. Die …Tint<\/b>-Eigenschaften nehmen Werte von 0 <\/b>bis 100 <\/b>an. Der Wert 100 <\/b>liefert die Designfarbe in der Originalhelligkeit.<\/p>\n Wenn Sie die Farbe um eine bestimmte Prozentzahl aufhellen möchten, ziehen Sie diese Zahl von 100 <\/b>ab. 20% Aufhellung entsprechen somit einem …Tint<\/b>-Wert von 80<\/b>.<\/p>\n Designfarbe auswählen<\/b><\/p>\n Wenn Sie eine der Designfarben aus dem Eintrag auswählen, ändert Access wieder einige Eigenschaftswerte. Gradient <\/b>wird wieder auf 0 <\/b>einstellt, damit enthält die Schaltfläche nun keinen Farbverlauf mehr.<\/p>\n Davon abgesehen stellt dies die Eigenschaften BackThemeColorIndex<\/b>, HoverThemeColorIndex <\/b>und PressedThemeColorIndex <\/b>alle auf den gleichen Wert ein – den Index für die gewählte Designfarbe. Weitere Eigenschaften wie BackColor<\/b>, BackShade<\/b>, BackTint<\/b>, HoverColor<\/b>, HoverShade<\/b>, HoverTint<\/b>, PressedColor<\/b>, PressedShade <\/b>oder PressedTint <\/b>werden entsprechend der Vorgaben für die jeweilige Designfarbe angepasst. Mehr zu den Designs erfahren Sie im Beitrag Designs unter Access 2010 und 2013 <\/b>(www.access-im-unternehmen.de\/867<\/b>).<\/p>\n Wenn Sie die Designfarbe, also den Wert der Eigenschaft BackThemeColorIndex<\/b>, HoverThemeColorIndex <\/b>oder PressedThemeColorIndex <\/b>per VBA ändern, werden zusätzlich die Eigenschaften BackColor<\/b>, HoverColor <\/b>und PressedColor <\/b>eingestellt – entsprechend den Vorgaben für das jeweilige Design.<\/p>\n Standardfarbe auswählen<\/b><\/p>\n Welche Eigenschaften sich nach der Auswahl einer Standardfarbe ändern, hängt davon ab, welche Farbe zuvor eingestellt war. Wenn für das Steuerelement zuvor eine Designfarbe eingestellt war, werden zumindest die Eigenschaften BackThemeColorIndex<\/b>, HoverThemeColorIndex <\/b>und PressedThemeColorIndex <\/b>auf den Wert -1 <\/b>eingestellt und somit deaktiviert. Außerdem erhält natürlich die Eigenschaft BackColor <\/b>den Zahlenwert, welcher der ausgewählten Farbe entspricht. Den gleichen Wert erhalten aber auch die Eigenschaften HoverColor <\/b>und PressedColor<\/b>. Das bedeutet, dass das überfahren mit der Maus oder das Anklicken keine änderung der Hintergrundfarbe mehr bewirkt – es sei denn, Sie stellen die Hintergrundfarbe über das Eigenschaftsfenster oder per VBA manuell um.<\/p>\n Die Eigenschaften BackTint<\/b>, BackShade<\/b>, HoverTint<\/b>, HoverShade<\/b>, PressedTint <\/b>und PressedShade <\/b>werden alle auf den Wert 100 <\/b>eingestellt, sofern dies noch nicht der Fall ist.<\/p>\n Transparenter Hintergrund<\/b><\/p>\n Wenn Sie unter Format|Steuer-ele-ment-for-ma-tie-rung|Füll-effekt <\/b>den Wert Transparent <\/b>auswählen, stellt dies den Wert der Eigenschaft BackStyle <\/b>von 1 <\/b>auf 0 <\/b>ein. Auch Gradient<\/b> erhält den Wert 0<\/b>. Die Eigenschaften Hover-Theme-Color-Index <\/b>und Pressed-Theme–Color-Index <\/b>erhalten den Wert -1<\/b>, die Eigenschaften HoverColor <\/b>und PressedColor <\/b>den Wert -2<\/b>.<\/p>\n Farbverlauf einstellen<\/b><\/p>\n Unterhalb des Ribbon-Eintrags For–mat|Steuer-ele-ment-for-ma-tie-rung|Füll-effekt <\/b>finden Sie auch noch den Eintrag Farbverlauf<\/b>. Wenn Sie dort beispielsweise den Eintrag Kein Farbverlauf <\/b>auswählen, ändert dies den Wert der Eigenschaft Gradient<\/b>, und zwar auf den Wert 0<\/b>.<\/p>\n Interessanterweise erscheinen im Ribbon nun nicht nur die Farbverläufe in der gleichen Helligkeit, sondern je einige Einträge unter Helle Varianten und Dunkle Varianten (s. Bild 11).<\/p>\n Bild 11: Neue Auswahlmöglichkeiten nach der Auswahl von Kein Farbverlauf<\/span><\/b><\/p>\n Wenn Sie erst den Wert Kein Farbverlauf <\/b>einstellen und dann einen der dunkleren Farbverläufe auswählen, würde man annehmen, dass dies zu der gleichen Einstellung für die Eigenschaft Gradient <\/b>plus einer dunkleren Farbe führt. Dies können wir mithilfe des Formulars ja leicht prüfen. Das Ergebnis ist überraschend: Für die dunklen Farbverläufe werden weitere Werte verwendet, die Grundfarbe ändert sich nicht.<\/p>\n Nachfolgend finden Sie die VBA-Werte für die Eigenschaft Gradient <\/b>mit den jeweiligen Bezeichnungen – in Klammern die Werte für die dunkleren Farbverläufe:<\/p>\n Rahmeneinstellungen<\/b><\/p>\n Im Bereich Format|Steuerelementfor-matierungen|Formkontur <\/b>finden Sie einige Möglichkeiten, um das Aussehen des Rahmens des jeweiligen Steuerelements anzupassen (s. Bild 12). Die Farbeinstellungen entsprechen weitgehend denen, die Sie bereits für den Hintergrund kennen gelernt haben. Allerdings gibt es hier keine separaten Einstellungen für den Hover<\/b>– oder Pressed<\/b>-Effekt. Es sind also nur die Eigenschaften BorderColor<\/b>, BorderShade<\/b>, BorderThemeColorIndex <\/b>und BorderTint <\/b>von änderungen der Eigenschaften betroffen.<\/p>\n Bild 12: Einstellungen für den Steuerelementrahmen<\/span><\/b><\/p>\n Zusätzlich gibt es allerdings noch die Eigenschaften Linienstärke <\/b>und Linienart<\/b>.<\/p>\n Die sieben Einstellungen, die über das Ribbon für die Eigenschaft Linienstärke <\/b>verfügbar sind, legen für die Eigenschaft BorderWidth <\/b>die Werte 0 <\/b>(0pt<\/b>), 1 <\/b>(1pt<\/b>), 2 <\/b>(2pt<\/b>), 3 <\/b>(3pt<\/b>), 4 <\/b>(4pt<\/b>), 5 <\/b>(5pt<\/b>) und 6 <\/b>(6pt<\/b>) fest.<\/p>\n Die Eigenschaft Linienart <\/b>im Ribbon stellt die VBA-Eigenschaft BorderStyle <\/b>ein (und parallel interessanterweise die Eigenschaft OldBorderStyle<\/b>), in manchen Fällen aber auch die VBA-Eigenschaft BorderLineStyle<\/b>.<\/p>\n Es gibt die folgenden Werte:<\/p>\n Wenn BorderLineStyle <\/b>geändert wird, beispielsweise auf den Wert 5<\/b>, ändert sich auch BorderStyle<\/b>, und zwar auf den passenden Wert der obigen Auflistung.<\/p>\n Umgekehrt führt auch die änderung der VBA-Eigenschaft BorderStyle <\/b>zur Anpassung des Wertes der VBA-Eigenschaft BorderLineStyle<\/b>.<\/p>\n Formeffekte<\/b><\/p>\n Im Ribbon-Bereich unter For-mat|Steuer-ele-ment-for-ma-tie-rungen|Form-effekte <\/b>gibt es vier Bereiche:<\/p>\n Schatten<\/b><\/p>\n Bild 13 zeigt die verschiedenen Einstellungsmöglichkeiten für den Einsatz von Schatten.<\/p>\n Bild 13: Schatten-Einstellungen<\/span><\/b><\/p>\n Wenn Sie über das Ribbon von Kein Schatten <\/b>beispielsweise zu Außen, Offset diagonal unten rechts <\/b>wechseln, ändert das primär die VBA-Eigenschaft Shadow<\/b>, und zwar vom Wert 0 <\/b>auf den Wert 1<\/b>. Außerdem passt Access noch die drei Eigenschaften BottomPadding<\/b>, RightPadding <\/b>und TopPadding <\/b>an. Letztere Drei wirken sich normalerweise nicht aus – nur, wenn Sie mit einem Raster arbeiten.<\/p>\n Dort würde die Größe der entsprechenden Zelle dann wie in Bild 14 angepasst werden.<\/p>\n Bild 14: änderung der Padding-Eigenschaften im Raster<\/span><\/b><\/p>\n Die Werte für die Shadow<\/b>-Eigenschaft entsprechen den folgenden Einstellungen für die passenden Ribbon-Einträge:<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_002.png\")
<\/p>\nSaveAsText acForm, \"frmSchaltflaechen\", currentproject.Path & \"\\frmSchaltflaechen.txt\"<\/pre>\n
![\"Unterschiede](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_003.png\")
<\/p>\n![\"Möglichkeiten](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_004.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_006.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_007.png\")
<\/p>\nPrivate Sub <\/span>cmdSchaltflaeche_Click()\r\n Dim <\/span>prp As <\/span>Property\r\n Dim <\/span>cmd As <\/span>CommandButton\r\n Dim <\/span>strWertAlt As String<\/span>\r\n Dim <\/span>strWertNeu As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n DoCmd.Hourglass False<\/span>\r\n Me.Painting = False<\/span>\r\n Set<\/span> cmd = Me!cmdSchaltflaeche\r\n For Each prp In cmd.Properties\r\n Select Case prp.Name\r\n Case <\/span>\"InSelection\" ''nur in der Entwurfsansicht\r\n Case Else<\/span>\r\n On Error Resume Next<\/span>\r\n strWertAlt = Nz(DLookup(\"EigenschaftWertNeu\", \"tblEigenschaften\", _\r\n \"EigenschaftName = ''\" & prp.Name & \"''\"), \"\")\r\n strWertNeu = Replace<\/span>(Nz(prp.Value, \"\"), \"''\", \"''''\")\r\n db.Execute \"INSERT INTO tblEigenschaften(EigenschaftName, EigenschaftWertAlt, " _\r\n & "EigenschaftWertNeu) VALUES(''\" _\r\n & prp.Name & \"'', ''\" & strWertAlt & \"'', ''\" & strWertNeu & \"'')\", dbFailOnError\r\n Select Case Err.Number\r\n Case <\/span>3022\r\n db.Execute \"UPDATE tblEigenschaften SET EigenschaftWertAlt = ''\" & strWertAlt _\r\n & \"'', EigenschaftWertNeu = ''\" & strWertNeu & \"'' WHERE EigenschaftName = ''\" _\r\n & prp.Name & \"''\", dbFailOnError\r\n Case <\/span>0\r\n Case Else<\/span>\r\n Debug.Print<\/span> Err.Number, Err.Description\r\n End Select<\/span>\r\n On Error GoTo<\/span> 0\r\n End Select<\/span>\r\n Me!sfmSchaltflaechen.Form.Requery\r\n Next<\/span> prp\r\n Me.Painting = True<\/span>\r\n DoCmd.Hourglass False<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_005.png\")
<\/p>\n[EigenschaftWertAlt]<>[EigenschaftWertNeu]<\/pre>\n
Private Sub <\/span>chkNurUnterschiedliche_Click()\r\n With<\/span> Me!sfmEigenschaften.Form\r\n If <\/span>Me!chkNurUnterschiedliche = True<\/span> Then<\/span>\r\n .Filter = \"EigenschaftWertAlt <> EigenschaftWertNeu\"\r\n .FilterOn = True<\/span>\r\n Else<\/span>\r\n .Filter = \"\"\r\n End If<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_008.png\")
<\/p>\nSELECT EigenschaftID, EigenschaftName, EigenschaftWertAlt, EigenschaftWertNeu \r\nFROM tblEigenschaften \r\nORDER BY EigenschaftName;<\/pre>\n
Private Sub <\/span>cboEigenschaft_AfterUpdate()\r\n Dim <\/span>strWert As String<\/span>\r\n strWert = Nz(Me!cboEigenschaft.Column(3))\r\n Me!txtWert = strWert\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtWert_AfterUpdate()\r\n Me!cmdSchaltflaeche.Properties(Me!cboEigenschaft.Column(1)) = Me!txtWert\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtWert_KeyDown(KeyCode As Integer<\/span>, Shift As Integer<\/span>)\r\n Select Case KeyCode\r\n Case <\/span>13\r\n Me!txtWert = Me!txtWert.Text\r\n Call<\/span> txtWert_AfterUpdate\r\n KeyCode = 0\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"ändern](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_009.png\")
<\/p>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_012.png\")
<\/p>\n\n
\n
![\"Neue](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_010.png\")
<\/p>\n\n
![\"Einstellungen](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_011.png\")
<\/p>\n\n
\n
![\"Schatten-Einstellungen\"](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_013.png\")
<\/p>\n![\"änderung](\"..\/fileadmin\/_temp_\/2014_03\/pic_934_014.png\")
<\/p>\n\n