<\/p>\n
Vielleicht kennen Sie die kleinen Helferlein, die beim Anklicken einer Eigenschaft eines Formulars oder Steuerelements in Form einer Schaltfläche mit drei Punkten (…) auftauchen und beim Anklicken Unterstützung für das Füllen der jeweiligen Eigenschaft präsentieren. Wenn wir schon Access-Add-Ins, Tabellen-, Abfrage-, Formular und Berichtsassistenten sowie Steuerelement-Assistenten programmieren können, warum dann nicht auch noch Eigenschaftsassistenten? In diesem Beitrag zeigen wir die Grundlagen für das Programmieren eines Assistenten, der beim Anklicken der genannten Schaltfläche erscheint und seine Hilfe anbietet.<\/b><\/p>\nEingebaute Eigenschaftsassistenten<\/h2>\n
Beispiele für eingebaute Assistenten findet man schnell. Die Bild<\/b>-Eigenschaft von Formularen oder Steuerelementen bietet die Schaltfläche mit den drei Punkten an, um die anzuzeigende Bilddatei auszuwählen.<\/p>\n
Ein anderes Beispiel, das Sie in Bild 1 sehen, wird beim Anklicken der Eigenschaft Steuerelementinhalt <\/b>aktiviert.<\/p>\n
![\"Starten](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_001.png\")
<\/p>\n
Bild 1: Starten eines Eigenschaftsassistenten<\/span><\/b><\/p>\n Dieses öffnet den Ausdrucks-Generator aus Bild 2, mit dem wir den Ausdruck für die entsprechende Eigenschaft aus verschiedenen Listen und Optionen zusammenklicken können.<\/p>\n Bild 2: Der Ausdrucks-Generator<\/span><\/b><\/p>\n Wie aber bauen wir selbst einen solchen Assistenten? Dazu sind die folgenden Schritte nötig:<\/p>\n Damit der Beitrag nicht den Rahmen sprengt, wollen wir in diesem erst einmal einen rudimentären Eigenschaftsassistenten erstellen. Dieser soll ein einfaches Formular anzeigen, welches den Wert für das Add-In per Textfeld abfragt.<\/p>\n In einem weiteren Beitrag schauen wir uns ein konkretes und in der Praxis nutzbares Beispiel für einen Eigenschaftsassistenten an (siehe Ausblick am Ende des Beitrags).<\/p>\n Die VBA-Funktion, die wir oben erwähnt haben, muss ein bestimmtes Format aufweisen.<\/p>\n Der Name der Funktion und der drei Parameter spielt keine Rolle, aber wir müssen drei String<\/b>-Parameter deklarieren und die Funktion muss das Ergebnis des Assistenten als String zurückgeben.<\/p>\n Ein Beispiel für diese Funktion lautet:<\/p>\n Die drei Parameter werden beim Aufrufen des Assistenten mit drei Werten gefüllt:<\/p>\n Als Benutzeroberfläche werden Sie typischerweise ein Formular verwenden. Die wichtigste Information hierzu ist, dass Sie es mit der oben genannten Funktion aufrufen können und beim Schließen des Formulars den Wert für die Eigenschaft daraus auslesen müssen.<\/p>\n Dazu ist es erforderlich, dass das Formular als modaler Dialog geöffnet wird, also beispielsweise wie folgt:<\/p>\n Auf diese Weise wird der aufrufende Code angehalten, wenn das Formular geöffnet wird. Nach der Eingabe der gewünschten Informationen wird der Benutzer das Formular dann beispielsweise über eine OK<\/b>-Schaltfläche schließen, was das Formular aber nicht tatsächlich schließen, sondern nur ausblenden sollte.<\/p>\n Auf diese Weise läuft die Funktion, die das Formular geöffnet hat, nun weiter und kann den relevanten Wert einlesen und dann das Formular schließen.<\/p>\n Und die Vorgabe, dass das Formular als modaler Dialog geöffnet wird, hat noch einen anderen Hintergrund: Dadurch, dass der Benutzer so bis zum Schließen des Assistenten nicht auf die übrigen Elemente von Access zugreifen kann, wird sichergestellt, dass bei Schließen des Assistenten die Eigenschaft, die dieser aktualisieren soll, auch noch geöffnet ist.<\/p>\n Access-Add-Ins und Assistenten werden in der Regel über den Add-In-Manager von Access installiert, den Sie über den Ribbonbefehl Datenbanktools|Add-Ins|Add-Ins|Add-In-Manager <\/b>aufrufen können.<\/p>\n Hier wählen Sie dann die .accda<\/b>-Datei des zu installierenden Add-Ins oder Assistenten aus.<\/p>\n Anschließend wertet der Add-In-Manager die Einträge in der Tabelle USysRegInfo <\/b>aus und trägt diese an entsprechender Stelle in die Registry ein. Der Ort, wo diese Eintragungen vorgenommen werden, legt fest, um was für ein Add-In oder was für einen Assistenten es sich handelt, die Einträge selbst geben an, in welcher Datei sich die Funktionen befinden, ob ein Icon angezeigt werden soll, wie die Funktion zum Starten des Add-Ins oder Assistenten heißt und wie die Beschreibung des Tools lautet.<\/p>\n Der Ort für Eigenschaftsassistenten in der Registry heißt HKEY_CURRENT_USER\\Software\\MIcrosoft\\Office\\x.0\\Access\\Wizards\\Property Wizards\\[Name des Assistenten]<\/b>. Darunter befinden sich Einträge mit den Registry-Werten für unseren Assistenten.<\/p>\n Für einen Eigenschaftsassistenten können wir die folgenden Schlüssel festlegen:<\/p>\n [<\/p>\n Die Tabelle mit den Informationen für die Registry muss den Namen USysRegInfo <\/b>erhalten, damit diese vom Add-In-Manager automatisch erkannt werden kann. Gleichzeitig beginnt der Name dieser Tabelle mit USys…<\/b>, was neben dem Präfix MSys… <\/b>dazu führt, dass diese Tabellen standardmäßig nicht im Navigationsbereich von Access angezeigt werden.<\/p>\n Wenn Sie also eine solche Tabelle mit den Feldern aus Bild 3 angelegt, gespeichert und geschlossen haben, wird diese möglicherweise komplett verschwinden. Um diese wieder einzublenden, klicken Sie mit der rechten Maustaste auf die Titelzeile des Navigationsbereichs und wählen dort den Kontextmenübefehl Navigationsoptionen… <\/b>aus. Hier aktivieren Sie die Option Systemobjekte anzeigen. Anschließend wird die Tabelle USysRegInfo <\/b>neben einigen anderen zuvor ausgeblendeten Tabellen eingeblendet.<\/p>\n Bild 3: Die Tabelle USysRegInfo<\/span><\/b><\/p>\n Nun fügen wir die oben beschriebenen Informationen für die Registry in die Tabelle ein – mit je einem Datensatz pro Information. Das Ergebnis sehen sie in Bild 4. Hier sind zwei Informationen wichtig:<\/p>\n Bild 4: Die Tabelle USysRegInfo in der Datenblattansicht<\/span><\/b><\/p>\n Der Platzhalter HKEY_CURRENT_ACCESS_PROFILE<\/b> wird beim Installieren des Assistenten durch den Registrypfad für die aktuelle Office-Installation ersetzt. In unserem Fall (Windows 64-Bit, Office 32-Bit) bedeutete dies den folgenden Schlüssel:<\/p>\n Der Platzhalter |ACCDIR <\/b>wird durch das Add-In-Verzeichnis von Access ersetzt, in aktuellen Kombinationen aus Windows und Office also durch C:\\Users\\[Benutzername]\\AppData\\Roaming\\Microsoft\\AddIns<\/b>.<\/p>\n Nun legen wir eine kleine Beispielfunktion in Form der Funktion Autostart <\/b>an. Diese soll einfach nur testweise die Werte der Parameter strObject<\/b>, strControl <\/b>und strCurVal <\/b>in einer Meldung ausgeben und den neuen Wert für die Eigenschaft per InputBox erfragen:<\/p>\n Um den Assistenten zu installieren, sind Administrator-Rechte erforderlich, wir müssen Access also als Administrator öffnen.<\/p>\n Dazu klicken Sie mit der rechten Maustaste auf den Befehl zum Starten von Access und wählen dort den Eintrag Als Administrator öffnen <\/b>aus.<\/p>\n Danach öffnen wir irgendeine Datenbankdatei, da sonst das Ribbon mit dem Befehl zum Starten des Add-In-Managers <\/b>nicht angezeigt wird.<\/p>\n Nun öffnen wir mit Datenbanktools|Add-Ins|Add-Ins|Add-In-Manager <\/b>den Add-In-Manager<\/b>.<\/p>\n Hier klicken wir auf die Schaltfläche Neues hinzufügen… <\/b>und öffnen so einen Dateiauswahldialog (siehe Bild 5). Mit diesem wählen wir unsere .accda<\/b>-Datei aus.<\/p>\n Bild 5: Installieren eines neuen Assistenten<\/span><\/b><\/p>\n Wenn alles funktioniert, können wir uns den neuen Eintrag nun in der Registry ansehen. Diese sieht dann wie in Bild 6 aus.<\/p>\n Bild 6: Der Eintrag des Assistenten in der Registry<\/span><\/b><\/p>\n Nun erstellen wir in der aktuellen Beispieldatenbank ein neues, leeres Formular in der Entwurfsansicht und fügen diesem ein Textfeld hinzu. Anschließend öffnen wir das Eigenschaftenblatt und wechseln dort zur Registerseite Format<\/b>. Dort finden wir auch eine Eigenschaft namens Format<\/b>, die wir nun anklicken. Es erscheint die Schaltfläche mit den drei Punkten, die wir ebenfalls betätigen.<\/p>\n Daraufhin erscheint erst die Meldung mit den Werten der drei Parameter der aufgerufenen VBA-Funktion und dann die InputBox, mit der wir den neuen Wert für die Eigenschaft Format<\/b> eingeben können (siehe Bild 7). Nach der Eingabe eines Wertes erscheint dieser schließlich in der entsprechenden Eigenschaft.<\/p>\n Bild 7: Durch den Assistenten hervorgerufene InputBox<\/span><\/b><\/p>\n Richtig praktisch ist, dass beispielsweise der Assistent für die Eigenschaft Format <\/b>überall dort eingesetzt werden kann, wo diese Eigenschaft auftaucht – also nicht nur im Entwurf von Formularen und Berichten, sondern auch in den Eigenschaften von Tabellenfeldern oder Abfragefeldern.<\/p>\n Von dem Moment an, wo Sie den Assistenten zum ersten Mal über den Add-In-Manager installiert haben, liegen zwei Versionen der .accda<\/b>-Datei vor. Die erste in dem Verzeichnis, in dem Sie diesen auch erstellt haben, die zweite im Add-In-Verzeichnis von Windows. Das heißt, dass Sie von nun an eine Strategie benötigen, um die Funktionen des Assistenten zu aktualisieren. Es gibt zwei Möglichkeiten für Aktualisierungen, die nur die in der .accda<\/b>-Datei enthaltenen Elemente betreffen:<\/p>\n Die erste Variante müssen Sie eigentlich nur verwenden, wenn Sie auch Änderungen an der Tabelle USysRegInfo <\/b>vornehmen und diese an die Registry übergeben wollen. Aber auch dann können Sie die Änderungen an der .accda<\/b>-Datei im Add-In-Verzeichnis durchführen – Sie müssen diese dann lediglich wie jedes andere Add-In erneut über den Add-In-Manager neu installieren.<\/p>\n Wenn beispielsweise ein Laufzeitfehler auftaucht, während Sie das Add-In von einer Access-Anwendung aus geöffnet haben, der nicht behandelt wurde, zeigt Access den VBA-Editor mit dem relevanten Codeausschnitt plus Fehlermeldung an (außer natürlich, Sie haben aus der .accda<\/b>-Datei eine .accde<\/b>-Datei gemacht und nutzen diese als Add-In). Das entscheidende ist, dass der VBA-Editor nun wie in Bild 8 nicht mehr nur ein Projekt anzeigt, sondern zwei – nämlich das der aktuell geöffneten Datenbank und das der .accda<\/b>-Datei des Assistenten.<\/p>\n Bild 8: Fehler in der .accda-Datei<\/span><\/b><\/p>\n Das Problem ist: Nehmen wir nun Änderungen im VBA-Projekt der .accda<\/b>-Datei vor, werden diese nicht gespeichert. Die Änderungen sind zwar temporär wirksam und können auch in der aktuellen Session erneut ausgeführt und getestet werden, aber sobald Access geschlossen wird, gehen die Änderungen in der .accda<\/b>-Datenbank verloren.<\/p>\n Meine Vorgehensweise in einem solchen Fall ist, den Fehler an Ort und Stelle zu beheben und die neue Version zu testen und sobald alles wie gewünscht läuft, den Code des jeweiligen Moduls in die Zwischenablage zu kopieren. Danach schließe ich die Datenbank, öffne die .accda<\/b>-Datenbank selbst und kopiere die neue Version des jeweiligen Moduls über die alte Version.<\/p>\n Das verlangt zwar nach ein wenig Selbstdisziplin, aber wenn man zwei, drei Mal umfangreiche Änderungen verloren hat, funktioniert es.<\/p>\n Um zu schauen, was passiert, haben wir der gleichen Add-In-Datenbank noch einen zweiten Satz von Daten in der Tabelle USysRegInfo <\/b>hinzugefügt. Dazu haben wir die ersten fünf Datensätze der Tabelle kopiert und lediglich im Feld SubKey <\/b>den Wert FormatAssistent <\/b>in NochEinFormatAssistent <\/b>geändert sowie den Wert des Datensatzes mit der Description <\/b>(siehe Bild 10).<\/p>\n Bild 9: Die Tabelle USysRegInfo für zwei Assistenten<\/span><\/b><\/p>\n Das Ergebnis sehen wir nach einer erneuten Installation der .accda<\/b>-Datenbank in Bild 9.<\/p>\n Bild 10: Generator zur Auswahl von mehr als einem Assistenten<\/span><\/b><\/p>\n Nach dem Aufrufen des Assistenten über die Schaltfläche mit den drei Punkten erscheint der Dialog Generator auswählen <\/b>und bietet alle verfügbaren Assistenten an.<\/p>\n Gleichzeitig haben wir damit gezeigt, dass wir durchaus mehrere Assistenten in der gleichen .accda<\/b>-Datenbank unterbringen können. Wir müssen dazu nur jeweils einen neuen Satz von Daten für die Registry in der Tabelle USysRegInfo <\/b>unterbringen und die Eigenschaften der verschiedenen Datensätze für den neuen Assistenten anpassen.<\/p>\n Wenn wir das Add-In über den Add-In-Manager wieder löschen wollen, müssen wir es im aktuellen Zustand suchen – zumindest, wenn man wie ich schon einige nicht fertig programmierte Add-Ins im System hat. Anderenfalls findet man zumindest einen Eintrag vor, der mit dem Namen Database <\/b>und mit den weiteren Informationen Firma unbekannt <\/b>und Keine Beschreibung verfügbar <\/b>angezeigt wird (siehe Bild 11).<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_002.png\")
<\/p>\nEigenschaftsassistent im Eigenbau<\/h2>\n
\n
Aufgabe unseres Beispiel-Eigenschaftsassistenten<\/h2>\n
Aufbau der Startfunktion des Assistenten<\/h2>\n
Public Function <\/span>Autostart(strObject As String<\/span>, _\r\n strControl As String<\/span>, strCurVal As String<\/span>) As String<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Aufbau des Formulars für die Benutzeroberfläche des Assistenten<\/h2>\n
DoCmd.OpenForm \"frmAssistent\", WindowMode:=acDialog<\/pre>\n
Speichern der Assistenten-Informationen für die Registry<\/h2>\n
Mögliche Registry-Schlüssel<\/h2>\n
\n
Aufbau der Tabelle USysRegInfo<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_004.png\")
<\/p>\nFüllen der Tabelle USysRegInfo<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_005.png\")
<\/p>\nHKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\ClickToRun\\REGISTRY\\MACHINE\\Software\\Wow6432Node\\Microsoft\\Office\\16.0\\Access\\Wizards\\Property Wizards\\Format\\FormatAssistent<\/pre>\n
Funktion im Assistenten anlegen<\/h2>\n
Public Function <\/span>Autostart(strObject As String<\/span>, _\r\n strControl As String<\/span>, strCurVal As String<\/span>) As String<\/span>\r\n MsgBox<\/span> strObject & \" \" & strControl & \" \" & strCurVal\r\n Autostart = InputBox(\"Eigenschaftswert: \")\r\nEnd Function<\/span><\/pre>\nInstallation über den Add-In-Manager<\/h2>\n
![\"Installieren](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_006.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_007.png\")
<\/p>\nAssistent ausprobieren<\/h2>\n
![\"Durch](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_008.png\")
<\/p>\nEigenschaftsassistenten funktionieren überall für die vorgesehen Eigenschaft<\/h2>\n
Assistent aktualisieren<\/h2>\n
\n
Änderungen nicht im Add-In-Modus!<\/h2>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_009.png\")
<\/p>\nMehrere Assistenten pro Eigenschaft<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_011.png\")
<\/p>\n![\"Generator](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_010.png\")
<\/p>\nMehrere Assistenten pro .accda-Datenbank<\/h2>\n
Einstellungen für die Anzeige im Add-In-Manager<\/h2>\n
![\"Ungünstige](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_012.png\")
<\/p>\n
![\"Einstellungen](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_013.png\")
<\/p>\n![\"Optimierte](\"..\/fileadmin\/_temp_\/2023_01\/pic_1416_014.png\")
<\/p>\n