<\/p>\n
Das Erstellen von Access-Add-Ins ist eigentlich keine große Kunst. Am anspruchsvollsten ist wohl noch die Programmierung der eigentlichen Funktionalität. Das Add-In selbst, also die Datenbankdatei mit der Tabelle USysRegInfo und einigen weiteren Spezialitäten, lässt sich nach einem festen Schema erstellen. Dennoch: Wer dies nur alle Jubeljahre erledigt, vergisst leicht mal wichtige Elemente. Also bauen wir ein kleines Add-In, das beim Ausstatten weiterer Add-Ins behilflich ist.<\/b><\/p>\n
Add-Ins bauen<\/b><\/p>\n
Normalerweise baue ich zunächst die eigentliche Funktion des Add-Ins auf und teste diese innerhalb des Add-Ins selbst – dies geht schlicht und einfach schneller, als wenn man die Anwendung direkt als Add-In aufbaut, registriert und jeweils im Kontext einer Testdatenbank über das Add-In-Menü aufruft.<\/p>\n
Das Problem bei dieser Art der Entwicklung ist, dass jede änderung des Add-Ins das Schließen der Testdatenbank, das öffnen des Add-Ins, das Durchführen der änderungen und das erneute Testen erfordert. Wenn Sie die änderungen im VBA-Modul des Add-Ins durchführen, während dieses im Kontext einer anderen Anwendung geöffnet ist, werden die änderungen nicht gespeichert.<\/p>\n
Add-In-Creator<\/b><\/p>\n
Ein Tool kann Ihnen nicht die eigentliche Programmierarbeit abnehmen. Aber es kann helfen, die Daten für den Eintrag in die Registry vorzubereiten (die in einer Tabelle namens USysRegInfo <\/b>gespeichert werden) und die Eigenschaften der Datenbank selbst anzupassen, die später im Add-In-Manager erscheinen (s. Bild 1 und Bild 2).<\/p>\n
![\"Diese](\"..\/fileadmin\/_temp_\/2013_05\/pic_907_001.png\")
<\/p>\n
Bild 1: Diese Eigenschaften …<\/span><\/b><\/p>\n Bild 2: … erscheinen im Add-In-Manager.<\/span><\/b><\/p>\n Um den Add-In-Creator zu verwenden, müssen Sie diesen zunächst installieren. Dies erledigen Sie, indem Sie den Add-In-Manager von Access starten und über die Schaltfläche Neues hinzufügen <\/b>einen Dialog zum Auswählen der Datei AddInCreator.mda <\/b>öffnen. Nach der Auswahl ist das Add-In bereits installiert und kann über das Add-In-Menü geöffnet werden. Achtung: Der Add-In-Creator funktioniert nur, wenn bereits eine Datenbankanwendung geöffnet ist!<\/p>\n Aufgabe des Add-In-Creators<\/b><\/p>\n Der Add-In-Creator soll all diese Daten in einer einzigen Maske erfassen und diese anwenden (s. Bild 3). Dabei bietet das Add-In zunächst eine Schaltfläche an, mit der Sie die Tabelle USysRegInfo <\/b>zu der aktuell geöffneten Datei hinzufügen können.<\/p>\n Bild 3: Formular zum Einstellen der Add-In-Eigenschaften<\/span><\/b><\/p>\n Diese Tabelle nimmt dann später einige Informationen auf, die beim Installieren des Add-Ins mit dem Add-In-Manager in die Registry geschrieben werden – auf diese Weise erfährt Access beim Starten von der Existenz des Add-Ins und wie es damit umgehen muss. Nach dem Anlegen der Tabelle sind noch zwei Aufgaben zu erledigen. Unter Schritt 2 findet der Benutzer einige Eigenschaften, die zum Zusammenstellen der Informationen für die Tabelle USysRegInfo<\/b> benötigt werden. Der Add-In-Creator erstellt nach Eingae der Informationen automatisch die benötigten Einträge in der Tabelle USysRegInfo<\/b>. Eventuell bereits vorhandene Einträge für ein Add-In gleichen Namens werden zuvor gelöscht. <\/p>\n <\/p>\n Im unteren Bereich fragt der Add-In-Creator weitere Eigenschaften ab. Dabei handelt es sich um die bereits beschriebenen Anwendungseigenschaften, die der Add-In-Manager später anzeigt.<\/p>\n Nach dem Anlegen der Tabelle und der übrigen Informationen muss der Benutzer prinzipiell nur noch die Funktion anlegen, die beim Start des Add-Ins aufgerufen werden soll, die Add-In-Datenbank schließen und diese über den Add-In-Manager installieren.<\/p>\n Danach sollte das neue Add-In im Add-In-Menü verfügbar sein.<\/p>\n Beschränkung auf Menü-Add-Ins<\/b><\/p>\n Fürs Erste soll der Add-In-Creator nur Menü-Add-Ins ausstatten – diese werden wohl auch am häufigsten verwendet. Für die übrigen Add-In-Typen folgt gegebenenfalls eine Erweiterung.<\/p>\n Add-In-Daten verwalten<\/b><\/p>\n Sie können mehrere Sätze von Add-In-Daten im Add-In-Creator speichern. Diese landen alle in einer Tabelle namens tblAddInDaten<\/b> (s. Bild 4).<\/p>\n Bild 4: Entwurf des Formulars zum Einstellen der Add-In-Eigenschaften<\/span><\/b><\/p>\n Funktion des Add-In-Creators<\/b><\/p>\n Schauen wir uns doch noch die eine oder andere Feinheit des Add-In-Creators an. Da wäre zunächst die Funktion, welche die Tabelle USysRegInfo <\/b>anlegt, sofern diese noch nicht vorhanden ist.<\/p>\n Dies prüft das Formular beim Anzeigen eines jeden Datensatzes. Die Schaltfläche cmdSysRegInfoErstellen <\/b>löst die Prozedur aus Listing 1 aus. Dabei nutzt sie die Execute<\/b>-Methode des Database<\/b>-Objekts der aktuell geöffneten Datenbank, um die Tabelle mithilfe einer CREATE TABLE<\/b>-Anweisung zu erstellen und dann das Datenbankfenster zu aktualisieren. An dieser Stelle der Hinweis, dass diese Tabelle nur im Navigationsbereich erscheint, wenn Sie die Anzeige von Systemtabellen aktiviert haben.<\/p>\n Listing 1: Anlegen der Tabelle USysRegInfo<\/span><\/b><\/p>\n Die Schaltfläche cmdDatenInUSys-Reg-Info <\/b>fügt die Daten aus den Steuerelementen des zweiten Bereichs im Formular so zusammen, dass die Tabelle USysRegInfo <\/b>mit den entsprechenden Daten gefüllt werden kann (s. Listing 2). <\/p>\n Listing 2: Eintragen der Werte in die Tabelle USysRegInfo<\/span><\/b><\/p>\n Interessant ist auch noch die Funktion der Schaltfläche cmdDatenSchreiben<\/b> im dritten Bereich des Add-Ins. Diese trägt die Werte der Textfelder im unteren Bereich in die entsprechenden Eigenschaften der Datenbank ein. Da diese benutzerdefiniert sind, müssen sie gegebenenfalls erst noch erstellt werden (s. Listing 3).<\/p>\n![\"...](\"..\/fileadmin\/_temp_\/2013_05\/pic_907_004.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2013_05\/pic_907_002.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2013_05\/pic_907_003.png\")
<\/p>\nPrivate Sub <\/span>cmdUSysRegInfoErstellen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSQL As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strSQL = \"CREATE TABLE USysRegInfo([Subkey] TEXT(255), [Type] INTEGER, [ValName] TEXT(255), [Value] TEXT(255));\"\r\n db.Execute strSQL\r\n Application.RefreshDatabaseWindow\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdDatenInUSysRegInfo_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSubkey As String<\/span>\r\n Dim <\/span>strRegistryText As String<\/span>\r\n strRegistryText = FLookup(\"RegistryText\", \"tblAddInTypen\", \"AddInTypID = \" & Me!AddInTyp)\r\n strSubkey = \"HKEY_CURRENT_ACCESS_PROFILE\\\"\r\n strSubkey = strSubkey & strRegistryText & \"\\\"\r\n strSubkey = strSubkey & Me!AddInName\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM USysRegInfo WHERE Subkey = ''\" & strSubkey & \"''\"\r\n db.Execute \"INSERT INTO USysRegInfo(Subkey, Type) VALUES(''\" & strSubkey & \"'', 0)\", dbFailOnError\r\n db.Execute \"INSERT INTO USysRegInfo(Subkey, Type, ValName, [Value]) VALUES(''\" & strSubkey & \"'', 1, ''Expression'', ''\" _\r\n & Me!AddInFunktion & \"'')\", dbFailOnError\r\n db.Execute \"INSERT INTO USysRegInfo(Subkey, Type, ValName, [Value]) VALUES(''\" & strSubkey & \"'', 1, ''Description'', ''\" \r\n & Me!AddInBeschreibung & \"'')\", dbFailOnError\r\n db.Execute \"INSERT INTO USysRegInfo(Subkey, Type, ValName, [Value]) VALUES(''\" & strSubkey & \"'', 1, ''Library'', ''|ACCDIR\\\" \r\n & CurrentProject.Name & \"'')\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdDatenSchreiben_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n With<\/span> db.Containers!Databases.Documents!SummaryInfo\r\n On Error Resume Next<\/span>\r\n .Properties.Append db.CreateProperty(\"Title\", dbText, Me!AddInManagerTitel)\r\n .Properties(\"Title\") = Me!AddInManagerTitel\r\n .Properties.Append db.CreateProperty(\"Comments\", dbText, Me!AddInManagerBeschreibung)\r\n .Properties(\"Comments\") = Me!AddInManagerBeschreibung\r\n .Properties.Append db.CreateProperty(\"Company\", dbText, Me!AddInManagerHersteller)\r\n .Properties(\"Company\") = Me!AddInManagerHersteller\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n