<\/p>\n
Im Beitrag Schaltflächen-Assistent (www.access-im-unternehmen.de\/1308) zeigen wir, wie Sie das Grundgerüst eines Schaltflächen-Assistenten definieren. Was Sie mit dem Schaltflächen-Assistenten anfangen können, zeigen wir Ihnen im vorliegenden Beitrag. Wir wollen zunächst das Anlegen bestimmter Standardschaltflächen erlauben. Die erste sind einfache OK- und Abbrechen-Schaltflächen. Diese Aufgabe kostet in jedem Formular, das sie neu erstellen, ein paar Minuten. Zeit, die Sie sich sparen können – indem Sie einmalig Zeit in die Entwicklung eines passenden Steuerelement-Assistenten investieren.<\/b><\/p>\nZiel des Assistenten<\/h2>\n
Das Ziel des Assistenten ist das Anlegen einer neuen OK<\/b>-Schaltfläche. Dies soll folgende Eigenschaften umfassen:<\/p>\n Das Grundgerüst des Assistenten haben wir bereits im oben genannten Beitrag beschrieben. Dieses nutzen wir als Basis für die im vorliegenden Beitrag beschriebenen Techniken.<\/p>\n Beim Starten des Steuerelement-Assistenten soll als Erstes ein Formular angezeigt werden, mit dem der Benutzer einige Einstellungen vornehmen kann, bevor er das Anlegen der Schaltfläche bestätigt. Dieses Formular soll auch eine Vorschau der zu erstellenden Schaltfläche anzeigen.<\/p>\n Für dieses Formular, das frmButtonWizardOK <\/b>heißen soll, stellen wir zunächst einige Eigenschaften ein. Die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>sollen den Wert Nein <\/b>erhalten, die Eigenschaft Automatisch zentrieren <\/b>den Wert Ja<\/b>.<\/p>\n Außerdem soll das Formular selbst eine OK<\/b>-Schaltfläche sowie eine Abbrechen<\/b>-Schaltfläche enthalten, damit der Benutzer die vorgenommenen Änderungen direkt anwenden oder auch verwerfen kann. Danach sieht das Formular wie in Bild 1 aus.<\/p>\n Bild 1: Erster Entwurf des Formulars zum Einstellen von Schaltflächen-Eigenschaften<\/span><\/b><\/p>\n Nun wollen wir ja mit dem Formular festlegen, wie eine zu erstellende OK<\/b>-Schaltfläche aussehen soll. Dazu fügen wir Steuerelemente hinzu, mit denen wir die wichtigsten Einstellungen vornehmen. Diese haben wir in Bild 2 bereits hinzugefügt.<\/p>\n Bild 2: Formular mit Steuerelementen zum Einstellen der Schaltflächeneigenschaften<\/span><\/b><\/p>\n Dies sind die Steuerelemente:<\/p>\n Natürlich hätten wir noch einige weitere Eigenschaften aufnehmen können, aber das würde den Rahmen dieses Beitrags sprengen.<\/p>\n In einer Prozedur dieses Formulars wollen wir Umlaute in Vokale umwandeln. Die Replace-Funktion ändert bei Verwendung von Option Compare Database <\/b>im Kopf des Moduls ä <\/b>in ae<\/b>, aber auch Ä <\/b>in ae<\/b>. Damit Ä <\/b>in Ae <\/b>geändert wird, stellen wir im Klassenmodul des Formulars frmButtonWizard <\/b>die Anweisung Option Compare Binary <\/b>ein:<\/p>\n Das Eintragen einer Beschriftung ist der erste Schritt. Hierbei sollen direkt einige Aktionen erfolgen. Zum einen wollen wir dem Benutzer die Arbeit abnehmen, den Namen der Schaltfläche einzutragen.<\/p>\n Daher soll dieser dynamisch basierend auf der Beschriftung generiert werden – mehr dazu weiter unten. Außerdem soll die Größe der Vorschau immer direkt an die enthaltene Beschriftung, gegebenenfalls mit Icon, angepasst werden.<\/p>\n Da wir die Beschriftung auch noch in anderen Prozeduren benötigen, legen wir für diese eine modulweit deklarierte Variable namens strBeschriftung <\/b>an:<\/p>\n Danach können wir in die Ereignisprozedur einsteigen, die aufgerufen wird, wenn der Benutzer den Text im Textfeld txtBeschriftung <\/b>anpasst. Das löst mit der Eingabe eines jeden Zeichens die Prozedur aus Listing 1 aus.<\/p>\n Listing 1: Ereignisprozedur, die beim Ändern der Beschriftung ausgelöst wird<\/span><\/b><\/p>\n Die Prozedur erfasst zunächst den aktuellen Text im Textfeld, und zwar über die Eigenschaft Text<\/b>. Diese unterscheidet sich vom üblicherweise abgefragten Wert des Textfeldes, weil der Wert oder die Eigenschaft Value immer den zuletzt bestätigten Wert liefert. Text <\/b>hingegen liefert den aktuell angezeigten Text. Der Text landet in der Variablen strText<\/b>, den wir danach mit der Trim<\/b>-Funktion von führenden und folgenden Leerzeichen befreien. Dann tragen wir den aktuellen Wert von strText <\/b>in die Variable strBeschriftung <\/b>ein, die wir später in weiteren Prozeduren abfragen. Außerdem landet die Beschriftung aus strText <\/b>in der Eigenschaft Caption <\/b>der Beispielschaltfläche cmdBeispiel<\/b>, damit der Text direkt angezeigt wird.<\/p>\n Danach folgen die Schritte, in denen wir den Namen für die Schaltfläche aus dem aktuellen Text für die Beschreibung ableiten. Der Schaltflächenname soll aus dem Präfix cmd <\/b>plus der Beschriftung bestehen, wobei wir aus der Beschriftung die Leerzeichen entfernen, neue Wörter in der CamelCase-Notation schreiben und Umlaute in die entsprechenden Vokale umwandeln. Aus Jetzt löschen <\/b>wird also der Schaltflächenname cmdJetztLoeschen<\/b>.<\/p>\n Dazu ermitteln wir zuerst die Position des ersten Leerzeichens und speichern diese in der Variablen lngPosLeer<\/b>. Ist diese nicht 0<\/b>, kommt also mindestens ein Leerzeichen in der Beschriftung vor, steigen wir in eine Do While<\/b>-Schleife ein.<\/p>\n Diese stellt den Wert in strText <\/b>neu zusammen, und zwar aus den Zeichen bis zum ersten Leerzeichen (Left(strText, lngPosLeer – 1)<\/b>), dem ersten Buchstaben des Wortes nach dem Leerzeichen als Großbuchstaben (UCase(Mid(strText, lngPosLeer + 1, 1))<\/b>) sowie dem Rest des Textes nach diesem Buchstaben (Mid(strText, lngPosLeer + 2)<\/b>).<\/p>\n Aus Jetzt alles schließen <\/b>wird dann JetztAlles schließen<\/b>. Danach prüfen wir innerhalb der Do While<\/b>-Schleife, ob es noch ein Leerzeichen im Ausdruck gibt. Das ist bei unserem Beispiel der Fall, also ist lngPosLeer <\/b>noch nicht 0 <\/b>und wir durchlaufen die Do While<\/b>-Schleife ein zweites Mal. Danach hat strText <\/b>den Inhalt JetztAllesSchließen<\/b>. <\/p>\n Damit verlässt die Prozedur die Schleife und ruft die Funktion UmlauteErsetzen <\/b>auf, die wie folgt aussieht:<\/p>\n Die Funktion ersetzt alle Umlaute durch Vokale und ß <\/b>durch ss<\/b>, was in unserem Beispiel zum Ergebnis JetztAllesSchliessen <\/b>führt. Dem stellt die Ereignisprozedur noch das Präfix cmd <\/b>voran: cmdJetztAlles-Schliessen<\/b>. Schließlich wird die Prozedur GroesseOptimieren <\/b>aufgerufen, welche die Größe der Beispielschaltfläche anpasst.<\/p>\n Die Prozedur GroesseOptimieren <\/b>schauen wir uns weiter unten an, da diese noch weitere Steuerelemente berücksichtigt, die wir noch nicht erstellt haben. In Bild 3 sehen Sie einen Zwischenstand.<\/p>\n Bild 3: Zwischenergebnis nach der Eingabe der Beschriftung<\/span><\/b><\/p>\n Wenn Sie den nun automatisch aus der Beschriftung der Schaltfläche abgeleiteten Namen ändern möchten, können Sie dies problemlos tun. Beachten Sie nur, dass dieser bei erneuter Änderung der Beschriftung wieder von der Beschriftung abgeleitet wird. Sie können bei Bedarf eine Option einbauen, welche die nachträgliche Änderung des Namens verhindert, wenn dieser einmal festgelegt wurde. Wir wollen es an dieser Stelle allerdings nicht zu kompliziert machen.<\/p>\n Bei der Bereitstellung der Bilder wollen wir eine eingebaute Funktion von Access nutzen. Dabei können Sie in der Entwurfsansicht eines Formulars den Ribbon-Befehl Entwurf|Steuerelemente|Bild einfügen|Durchsuchen…<\/b> nutzen, um Bilder zur Datenbank hinzuzufügen (siehe Bild 4).<\/p>\n Bild 4: Auswählen von Bildern für die aktuelle Datenbank<\/span><\/b><\/p>\n Diese können wir beim Programmieren der .accda<\/b>-Datenbank zunächst nutzen, um ein paar als Icon zu verwendende Bilddateien in der Datenbank zu speichern. Die Bilder landen dann in einem Anlagefeld in der Tabelle MSysResources<\/b>.<\/p>\n Diese Tabelle verwenden wir in der Abfrage für die Datensatzherkunft des Kombinationsfeldes cboBilder <\/b>als Datenquelle. Und wir setzen noch einen drauf, denn wir wollen auch einen Eintrag mit dem Text Dies liefert ein Ergebnis wie in Bild 5.<\/p>\n Bild 5: Datensatzherkunft für das Kombinationsfeld cboBilder<\/span><\/b><\/p>\n Für das Kombinationsfeld cboBilder <\/b>stellen wir die Eigenschaften Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein. Danach können Sie mit dem Kombinationsfeld die Bilder wie in Bild 6 auswählen. Das funktioniert für den Moment, später werden wir hier noch nachjustieren müssen.<\/p>\n Bild 6: Auswahl von Bildern mit dem Kombinationsfeld cboBilder<\/span><\/b><\/p>\n Das Aktualisieren des Kombinationsfeldes löst das Ereignis Nach Aktualisierung <\/b>mit der folgenden Ereignisprozedur aus. Diese ruft zwei Prozeduren auf: BildEinstellen<\/b>, um das neue Bild festzulegen, und die bereits oben einmal aufgerufene Prozedur GroesseOptimieren<\/b>. Diese soll die Größe an den geänderten Inhalt anpassen:<\/p>\n Die Prozedur BildEinstellen <\/b>prüft, ob das Kombinationsfeld cboBilder <\/b>den Wert 0 <\/b>hat, was dem Text Das Kontrollkästchen chkTransparent <\/b>soll die Eigenschaft BackStyle <\/b>entweder auf den Wert 0 <\/b>einstellen (transparent) oder auf den Wert 1 <\/b>(ausgefüllt).<\/p>\n Dies wird direkt nach dem Wählen eines neuen Wertes auf die Beispielschaltfläche angewendet:<\/p>\n Das Kombinationsfeld cboBeschriftungAnzeigen <\/b>erlaubt es, einen der sechs vorgesehenen Werte für die Eigenschaft Anordnung der Bildbeschriftung <\/b>vorzunehmen. Die sechs Werte tragen wir direkt in die Eigenschaft Datensatzherkunft <\/b>des Kombinationsfeldes ein:<\/p>\n Damit nur die Texte und nicht die Zahlen angezeigt werden und die Liste überhaupt korrekt verarbeitet wird, legen Sie die Eigenschaft Herkunftstyp <\/b>auf Wertliste<\/b>, Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>fest.<\/p>\n Nach der Auswahl eines der Werte wird der passende Zahlenwert der VBA-Eigenschaft PictureCaptionArrangement <\/b>zugewiesen. Anschließend erfolgt der obligatorische Aufruf der Prozedur GroesseOptimieren<\/b>:<\/p>\n Wenn Sie einer Schaltfläche ein Icon und einen Text zuweisen, kann es sein, dass der Platz zwischen beiden Elementen etwas zu klein ist. Dann bietet es sich an, dem Text ein oder mehrere Leerzeichen voranzustellen. Das erledigen wir mit dem Kombinationsfeld cboAbstandBildSchrift<\/b>, das die Werte 0;1;2;3 <\/b>als Wertliste anzeigt. Nach der Auswahl eines Wertes mit diesem Feld feuert das Ereignis Nach Aktualisierung <\/b>und löst die folgende Ereignisprozedur aus:<\/p>\n Die Prozedur speichert eine Zeichenkette mit der dem Zahlenwert entsprechen Menge Leerzeichen in der Variablen strLeerzeichen<\/b>. Dann fügt sie diese vor der Beschriftung aus strBeschriftung <\/b>ein und weist das Ergebnis der Eigenschaft Caption <\/b>der Beispielschaltfläche zu. Schließlich ruft auch diese Prozedur die Routine GroesseOptimieren <\/b>auf.<\/p>\n Wir könnten theoretisch die zu verwendenden Bilder analysieren und die Größe per Code ermitteln. Das ist uns aber an dieser Stelle zu aufwendig, weshalb wir dem Benutzer selbst die Möglichkeit geben, die Bildabmessungen in die beiden Textfelder txtBildbreite <\/b>und txtBildhoehe <\/b>einzugeben.<\/p>\n Die Eingabe löst die folgenden Prozeduren aus, die jeweils die Routine GroesseOptimieren <\/b>aufrufen:<\/p>\n Das Kontrollkästchen chkFetteSchrift <\/b>gibt an, ob die Beschriftung der Schaltfläche fett angezeigt werden soll. Die Änderung des Wertes des Kontrollkästchens löst diese Prozedur aus, die das Format der Beschriftung der Beispielschaltfläche anpasst:<\/p>\n Schließlich wollen wir dem Benutzer noch die Möglichkeit geben, den Inhalt der Ereignisprozedur, die durch das Ereignis Beim Klicken <\/b>ausgelöst wird, festzulegen. Dazu haben wir eine Tabelle vorgesehen, um verschiedene Anweisungen zu speichern.<\/p>\n Diese Tabelle enthält die Felder Ereignis-prozedurID<\/b>, Bezeichnung <\/b>und Code <\/b>und sieht im Entwurf wie in Bild 7 aus. Für das Feld Bezeichnung <\/b>haben wir einen eindeutigen Index festgelegt, da jede Bezeichnung nur einmal vorkommen darf.<\/p>\n Bild 7: Entwurf der Tabelle zum Speichern der Prozedurinhalte<\/span><\/b><\/p>\n Für das Kombinationsfeld cboEreignisprozeduren <\/b>legen wir die folgende Abfrage auf Basis der Tabelle tblEreignisprozeduren <\/b>als Datensatzherkunft fest:<\/p>\n Auch hier nutzen wir eine UNION<\/b>-Abfrage, um einen zusätzlichen Eintrag zum Kombinationsfeld hinzuzufügen. Diese enthält den Wert 0 <\/b>und den Text Und wieder stellen wir die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte 2 <\/b>und 0cm <\/b>ein. Wenn der Benutzer einen Eintrag im Kombinationsfeld auswählt, geschieht ausnahmsweise einmal nichts – die Ereignisprozedur wird erst beim Abschließen des Assistenten zur neu erstellten Schaltfläche hinzugefügt.<\/p>\n <\/p>\n Mit der Schaltfläche cmdEreignisprozedurenBearbeiten <\/b>soll der Benutzer ein Formular zum Verwalten der Ereignisprozeduren öffnen können. Es löst die Prozedur aus Listing 2 aus.<\/p>\n Listing 2: Ereignisprozedur zum Anzeigen des Dialogs für die Verwaltung von Ereignisprozeduren<\/span><\/b><\/p>\n Die Prozedur prüft zunächst, ob der Eintrag In beiden Fällen läuft die Prozedur durch das Öffnen des Formulars frmEreignisprozeduren<\/b> als modaler Dialog erst dann weiter, wenn das Formular geschlossen oder unsichtbar gemacht wird. Dann prüft die Prozedur, ob das Formular noch geöffnet ist. Falls ja, übernimmt die Prozedur den aktuell im Formular angezeigten Datensatz in das Kombinationsfeld cboEreignisprozeduren<\/b>. Falls kein Datensatz ausgewählt ist, geschieht nichts. Das Formular wird dann einfach geschlossen.<\/p>\n Wenn das Formular schon geschlossen ist, geht die aufrufende Prozedur davon aus, dass der Benutzer das Formular frmEreignisprozeduren <\/b>mit der Abbrechen<\/b>-Schaltfläche geschlossen hat. Das Kombinationsfeld wird dann ebenfalls nicht aktualisiert.<\/p>\n Zum Verwalten der Ereignisprozeduren legen wir ein Formular namens frmEreignisprozeduren <\/b>an (siehe Bild 8). Dieses binden wir an die Tabelle tblEreignisprozeduren<\/b> und ziehen die beiden Felder Bezeichnung <\/b>und Code <\/b>in den Detailbereich der Entwurfsansicht. Außerdem fügen wir ein Kombinationsfeld namens cboSchnellauswahl <\/b>hinzu. Dieses verwendet ebenfalls die Tabelle tblEreignisprozeduren <\/b>als Basis für die Datensatzherkunft. In diesem Fall stellen wir eine Abfrage zusammen, welche die beiden Felder EreignisprozedurID <\/b>und Bezeichnung <\/b>enthält, wobei die Einträge aufsteigend nach der Bezeichnung sortiert werden.<\/p>\n Bild 8: Entwurf des Formulars frmEreignisprozeduren<\/span><\/b><\/p>\n Da das Kombinationsfeld nur die Bezeichnungen der Ereignisprozeduren anzeigen soll und nicht die Primärschlüsselwerte, stellen wir noch die Eigenschaften Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein.<\/p>\n Damit das Formular beim Öffnen vom Assistenten aus mittig angezeigt wird, stellen wir die Eigenschaft Automatisch zentrieren <\/b>auf den Wert Ja <\/b>ein.<\/p>\n Die aktuell angezeigte Ereignisprozedur soll beim Schließen des Formulars in das Kombinationsfeld cboEreignisprozeduren <\/b>des aufrufenden Formulars übernommen werden. Das erledigen wir in der aufrufenden Prozedur, die prüft, ob das Formular frmEreignisprozeduren <\/b>ausgeblendet oder geschlossen wird. Dazu legen wir die beiden Schaltflächen cmdOK <\/b>und cmdAbbrechen <\/b>an, welche die folgenden Ereignisprozeduren auslösen:<\/p>\n Für ein wenig mehr Komfort soll das Formular frmEreignis-prozeduren <\/b>ein Kombinationsfeld zur Schnellauswahl von Ereignisprozeduren anbieten.<\/p>\n Dieses löst nach der Auswahl die folgende Prozedur aus und zeigt damit die gewählte Ereignisprozedur im Formular an:<\/p>\n Und schließlich wollen wir auch noch, dass das Kombinationsfeld zur Schnellauswahl eines Datensatzes immer den Eintrag anzeigt, der auch im Formular erscheint. Das erledigen wir mit einer Prozedur, die beim Anzeigen eines Datensatzes ausgelöst wird und welche cboSchnellauswahl <\/b>auf den Wert des Feldes EreignisprozedurID <\/b>einstellt:<\/p>\n Der Aufruf dieses Formulars sieht wie in Bild 9 aus.<\/p>\n Bild 9: Aufruf des Formulars zum Verwalten der Ereignisprozeduren<\/span><\/b><\/p>\n Wir gehen davon aus, dass der Benutzer den Assistenten nutzt, um neue Schaltflächen anzulegen und nicht zum Bearbeiten vorhandener Schaltflächen. Das wäre zwar auch möglich, würde aber ebenfalls den Rahmen sprengen. Daher initialisieren wir das Formular beim Anzeigen mit einigen Standardwerten. Das erledigt die Prozedur Initialisieren wie folgt:<\/p>\n Sie könnten eine weitere Tabelle anlegen, die verschiedene Konstellationen speichert – zum Beispiel eine mit einer OK<\/b>-Schaltfläche, eine mit einer Abbrechen<\/b>-Schaltfläche und so weiter. Zum Einstellen des Steuerelements cboBilder <\/b>nutzt die Prozedur eine Hilfsfunktion namens Bildnummer<\/b> (siehe Listing 3). Dieser übergibt sie den Namen des Bildes, in diesem Fall ok<\/b>, und ermittelt den Primärschlüsselwert für dieses Bild in der Tabelle MSysResources<\/b>.<\/p>\n\n
Grundgerüst des Steuerelement-Assistenten<\/h2>\n
Formular zum Anpassen der zu erstellenden Schaltfläche<\/h2>\n
![\"Erster](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_001.png\")
<\/p>\nBeispiel-Schaltfläche<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_002.png\")
<\/p>\n\n
Wichtig: Option Compare Binary statt Option Compare Database<\/h2>\n
Option Compare Binary\r\nOption Explicit<\/span><\/pre>\nHinzufügen einer Beschriftung<\/h2>\n
Dim <\/span>strBeschriftung As String<\/span><\/pre>\nPrivate Sub <\/span>txtBeschriftung_Change()\r\n Dim <\/span>strText As String<\/span>\r\n Dim <\/span>lngPosLeer As Long<\/span>\r\n strText = Me!txtBeschriftung.Text\r\n strText = Trim<\/span>(strText)\r\n strBeschriftung = strText\r\n Me!cmdBeispiel.Caption = strText\r\n lngPosLeer = InStr<\/span>(1, strText, \" \")\r\n Do While<\/span> Not<\/span> lngPosLeer = 0\r\n strText = Left<\/span>(strText, lngPosLeer - 1) & UCase(Mid<\/span>(strText, lngPosLeer + 1, 1)) & Mid<\/span>(strText, lngPosLeer + 2)\r\n lngPosLeer = InStr<\/span>(lngPosLeer + 1, strText, \" \")\r\n Loop<\/span>\r\n strText = UmlauteErsetzen(strText)\r\n Me!txtName = \"cmd\" & strText\r\n GroesseOptimieren\r\nEnd Sub<\/span><\/pre>\nCamelCase für den Schaltflächennamen<\/h2>\n
Public Function <\/span>UmlauteErsetzen(ByVal strText As String<\/span>) As String<\/span>\r\n strText = Replace<\/span>(strText, \"ä\", \"ae\")\r\n strText = Replace<\/span>(strText, \"ö\", \"oe\")\r\n strText = Replace<\/span>(strText, \"ü\", \"ue\")\r\n strText = Replace<\/span>(strText, \"Ä\", \"Ae\")\r\n strText = Replace<\/span>(strText, \"Ö\", \"Oe\")\r\n strText = Replace<\/span>(strText, \"Ü\", \"Ue\")\r\n strText = Replace<\/span>(strText, \"ß\", \"ss\")\r\n UmlauteErsetzen = strText\r\nEnd Function<\/span><\/pre>\n![\"Zwischenergebnis](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_003.png\")
<\/p>\nNamen der Schaltfläche ändern<\/h2>\n
Bild auswählen<\/h2>\n
![\"Auswählen](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_004.png\")
<\/p>\nSELECT 0 AS ID, \"<Kein Bild>\" AS Name, \"\" AS Type FROM MSysResources UNION SELECT Id, Name, Type FROM MSysResources WHERE Type=\"img\"<\/pre>\n
![\"Datensatzherkunft](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_005.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_006.png\")
<\/p>\nPrivate Sub <\/span>cboBilder_AfterUpdate()\r\n BildEinstellen\r\n GroesseOptimieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>BildEinstellen()\r\n If <\/span>Me!cboBilder = 0 Then<\/span>\r\n Me!cmdBeispiel.Picture = \"\"\r\n Else<\/span>\r\n Me!cmdBeispiel.Picture = Me!cboBilder.Column(1)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nHintergrund transparent schalten<\/h2>\n
Private Sub <\/span>chkTransparent_AfterUpdate()\r\n If <\/span>Me!chkTransparent Then<\/span>\r\n Me!cmdBeispiel.BackStyle = 0\r\n Else<\/span>\r\n Me!cmdBeispiel.BackStyle = 1\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nBeschriftungsanzeige einstellen<\/h2>\n
\"0\";\"Keine Beschriftung\";\"1\";\"Standard\";2;\"Beschriftung oben\";3;\"Beschriftung unten\";4;\"Beschriftung links\";5;\"Beschriftung rechts\"<\/pre>\n
Private Sub <\/span>cboBeschriftungAnzeigen_AfterUpdate()\r\n Me!cmdBeispiel.PictureCaptionArrangement = Me!cboBeschriftungAnzeigen\r\n GroesseOptimieren\r\nEnd Sub<\/span><\/pre>\nAbstand zwischen Bild und Schrift einstellen<\/h2>\n
Private Sub <\/span>cboAbstandBildSchrift_AfterUpdate()\r\n Dim <\/span>strLeerzeichen As String<\/span>\r\n strLeerzeichen = Space(Me!cboAbstandBildSchrift)\r\n Me!cmdBeispiel.Caption = strLeerzeichen & strBeschriftung\r\n GroesseOptimieren\r\nEnd Sub<\/span><\/pre>\nBildgröße eingeben<\/h2>\n
Private Sub <\/span>txtBildbreite_AfterUpdate()\r\n GroesseOptimieren\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtBildhoehe_AfterUpdate()\r\n GroesseOptimieren\r\nEnd Sub<\/span><\/pre>\nFett dargestellte Beschriftung<\/h2>\n
Private Sub <\/span>chkFetteSchrift_AfterUpdate()\r\n Me!cmdBeispiel.FontBold = Me!chkFetteSchrift\r\n GroesseOptimieren\r\nEnd Sub<\/span><\/pre>\nEreignisprozedur auswählen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_007.png\")
<\/p>\nSELECT 0 AS EreignisprozedurID, ''<Keine Ereignisprozedur>'' AS Bezeichnung FROM tblEreignisprozeduren\r\nUNION\r\nSELECT EreignisprozedurID, Bezeichnung\r\nFROM tblEreignisprozeduren\r\nORDER BY Bezeichnung;<\/pre>\n
Private Sub <\/span>cmdEreignisprozedurenBearbeiten_Click()\r\n Dim <\/span>lngEreignisprozedurID As Long<\/span>\r\n If <\/span>Nz(Me!cboEreignisprozeduren, 0) = 0 Then<\/span>\r\n DoCmd.OpenForm \"frmEreignisprozeduren\", WindowMode:=acDialog, datamode:=acFormAdd\r\n Else<\/span>\r\n DoCmd.OpenForm \"frmEreignisprozeduren\", WindowMode:=acDialog, WhereCondition:=\"EreignisprozedurID = \" _\r\n & Me!cboEreignisprozeduren, datamode:=acFormEdit\r\n End If<\/span>\r\n If <\/span>IstFormularGeoeffnet(\"frmEreignisprozeduren\") Then<\/span>\r\n lngEreignisprozedurID = Nz(Forms!frmEreignisprozeduren!EreignisprozedurID, 0)\r\n If <\/span>Not<\/span> lngEreignisprozedurID = 0 Then<\/span>\r\n Me!cboEreignisprozeduren = lngEreignisprozedurID\r\n End If<\/span>\r\n DoCmd.Close acForm, \"frmEreignisprozeduren\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nEreignisprozeduren verwalten<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_008.png\")
<\/p>\nPrivate Sub <\/span>cmdAbbrechen_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cmdOK_Click()\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboSchnellauswahl_AfterUpdate()\r\n Dim <\/span>lngEreignisprozedurID As Long<\/span>\r\n lngEreignisprozedurID = Nz(Me!cboSchnellauswahl, 0)\r\n If <\/span>Not<\/span> lngEreignisprozedurID = 0 Then<\/span>\r\n Me.Filter = \"EreignisprozedurID = \" & Me!EreignisprozedurID\r\n Me.FilterOn = True<\/span>\r\n Else<\/span>\r\n Me.Filter = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n Me!cboSchnellauswahl = Me!EreignisprozedurID\r\nEnd Sub<\/span><\/pre>\n![\"Aufruf](\"..\/fileadmin\/_temp_\/2021_03\/pic_1309_009.png\")
<\/p>\nInitialisierung des Hauptformulars<\/h2>\n
Private Sub <\/span>Initialisieren()\r\n Me!txtBeschriftung = \"OK\"\r\n strBeschriftung = Me!txtBeschriftung\r\n Me!txtName = \"cmdOK\"\r\n Me!cboBilder = Bildnummer(\"ok\")\r\n Me!chkTransparent = True<\/span>\r\n Me!cboBeschriftungAnzeigen = 1\r\n Me!cboAbstandBildSchrift = 1\r\n Me!txtBildbreite = 24\r\n Me!txtBildhoehe = 24\r\n Me!chkFetteSchrift = False<\/span>\r\n With<\/span> Me.cmdBeispiel\r\n .Caption = Me!txtBeschriftung\r\n .PictureCaptionArrangement = Me!cboBeschriftungAnzeigen\r\n BildEinstellen\r\n GroesseOptimieren\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>Bildnummer(strBild As String<\/span>)\r\n