<\/p>\n
Kennen Sie das auch Sie konzentrieren sich gerade mal wieder voll auf die Programmierung einer Prozedur und wollen eine SQL-Anweisung zusammenstellen. Dummerweise fällt Ihnen der Name der Tabelle und\/oder des Feldes nicht ein, das Sie dort verwenden möchten. Also wechseln Sie zum Access-Fenster, ermitteln dort den gesuchten Namen und kehren wieder zum VBA-Editor zurück. Dort ergänzen Sie dann die gesuchte Anweisung. Damit ist jetzt Schluss: Dieser Beitrag stellt nämlich eine einfache Lösung vor, mit der Sie die Namen aller Tabellen, Abfragen und Felder ganz einfach per Kontextmenü nachschlagen und zum Code hinzufügen können.<\/b><\/p>\n
Mir selbst passiert es immer wieder, dass ich nicht mehr genau weiß, wie ein bestimmtes Feld einer Tabelle oder Abfrage heißt, das ich für eine Anweisung im VBA-Code benötige. Hieß das Feld nun Anzahl oder Menge Werden die E-Mail-Adressen unter EMail <\/b>oder EMailAdresse <\/b>gespeichert Und was ist mit Strasse<\/b>, Strasse_Firma<\/b>, StrasseFirma<\/b> oder FirmaStrasse<\/b> Ganz abgesehen von den Feldnamen kann man sich mit wachsender Komplexität einer Anwendung auch nicht mehr alle Tabellennamen merken – oder auch die Namen von Abfragen.<\/p>\n
Und wenn wir schon einmal dabei sind: Was geschieht mit den übrigen Objekten wie Formularen und Berichten und den darin enthaltenen Steuerelementen Sie sehen schon: Die Idee, die Namen von Objekten, Feldern und Steuerelementen per Kontextmenü im VBA-Codefenster zur Verfügung zu stellen, liefert schnell eine große Anzahl Anwendungsmöglichkeiten.<\/p>\n
Wie soll das Ganze aber nun funktionieren – was haben Sie von der in diesem Beitrag vorgestellten Lösung zu erwarten Die Ausgangssituation ist, dass Sie den VBA-Editor geöffnet haben und programmieren.<\/p>\n
Bei einer Access-Anwendung kommt es nur selten vor, dass Sie größere Mengen Code produzieren, ohne die Objekte der Datenbank wie Tabellen, Abfragen, Formulare oder Berichte zu referenzieren. Sie dürfen dann beispielsweise Ausdrücke wie Forms!frmKunden!sfmEMailadressen.Form!txtEMail <\/b>aus dem Handgelenk schütteln. Wenn Sie denn die Namen aller Objekte direkt im Kopf haben. Falls nicht, müssen Sie immer wieder zum Access-Fenster wechseln und dort nachsehen, wie Formular, Unterformular oder Steuerelemente heißen.<\/p>\n
Die hier beschriebene Lösung soll diese Informationen direkt im VBA-Editor verfügbar machen – leicht zu erreichen per Kontextmenü. Sprich: Sie markieren die Stelle im Code, an der eine Referenz auf das gewünschte Objekt\/Steuerelement eingefügt werden soll, und betätigen dann die rechte Maustaste. Das Kontextmenü, das nun üblicherweise erscheint, reichern wir mit einem Untereintrag etwa namens Objekte an. Dieses enthält weitere Untereinträge wie Tabellen, Abfragen, Formulare und Berichte.<\/p>\n
Der Eintrag Tabellen<\/b> liefert wiederum die Namen aller verfügbaren Tabellen, die Ebene darunter die Liste der Felder einer jeden Tabelle. Bei den übrigen Objekttypen sieht es ähnlich aus. Bild 1 zeigt beispielsweise, wie Sie den Namen einer Tabelle für den Einsatz in einer OpenRecordset-Methode nachschlagen können.<\/p>\n
![\"Tabellenname](\"..\/fileadmin\/_temp_\/2014_01\/pic_921_002.png\")
<\/p>\n
Bild 1: Tabellenname vergessen und keine Lust, zum Access-Fenster zu wechseln Kein Problem!<\/span><\/b><\/p>\n Nach dem Auswählen eines der Elemente wird der entsprechende Ausdruck an der angeklickten Stelle eingefügt.<\/p>\n Passendes Kontextmenü finden<\/b><\/p>\n Wenn wir einem bestimmten Kontextmenü einen oder mehrere Einträge hinzufügen möchten, müssen wir zunächst herausfinden, wie das Kontextmenü heißt.<\/p>\n Dazu wende ich immer einen einfachen Trick an: Ich füge allen verfügbaren Kontextmenüs einen weiteren Eintrag hinzu, der schlicht und einfach den Namen des Kontextmenüs enthält. Dann brauche ich das Kontextmenü nur noch anzuzeigen und erhalte seinen Namen (s. Listing 1). Die Prozedur deklariert ein CommandBar<\/b>– und ein CommandBarButton<\/b>-Objekt. Es durchläuft dann in einer For Each<\/b>-Schleife die Auflistung CommandBars <\/b>des VBE<\/b>-Objekts. Die Angabe von VBE <\/b>ist wichtig – wenn Sie nur CommandBars <\/b>angeben, liefert dies die Auflistung der Menüs der Access-Anwendung, nicht des VBA-Editors.<\/p>\n Listing 1: Hinzufügen eines Eintrags mit dem Menünamen zu den einzelnen Kontextmenüs<\/span><\/b><\/p>\n Wenn das aktuell durchlaufene Objekt den Typ msoBarTypePopup <\/b>aufweist, handelt es sich um ein Kontextmenü – diesem wollen wir nun ein neues Element hinzufügen. Dies erledigen wir mit der Add<\/b>-Methode der Controls<\/b>-Auflistung des CommandBar<\/b>-Objekts. Dabei verwenden Sie als ersten Parameter die Konstante msoControlButton <\/b>(für die Erstellung einer Schaltfläche) und für den letzten Parameter Temporary <\/b>den Wert True <\/b>– auf diese Weise verschwinden die Einträge beim Schließen von Access automatisch wieder.<\/p>\n Für das neue CommandBarButton<\/b>-Objekt stellen wir als Beschriftung (Caption<\/b>) den Ausdruck Menüname <\/b>und den Inhalt der Name<\/b>-Eigenschaft des Menüs hinzu, also etwa Menüname Code Window<\/b>. Wenn Sie diese Prozedur einmalig ausgeführt haben, brauchen Sie nur noch mit der rechten Maustaste an die gewünschte Stelle im Codefenster zu klicken – schon finden Sie im untersten Eintrag den Namen des aktuell angezeigten Kontextmenüs (s. Bild 2). Ein Rechtsklick auf das VBA-Codefenster zeigt also beispielsweise das Kontextmenü Code Window <\/b>an.<\/p>\n Bild 2: Anzeige des Kontextmenünamens per Kontextmenü<\/span><\/b><\/p>\n Welche Objekte – und wie<\/b><\/p>\n Bevor wir in den Code einsteigen, überlegen wir uns noch, welche Elemente verwendet werden sollen und wann und wie wir diese einlesen.<\/p>\n Wenn Sie nur die Tabellen verwenden möchten, können Sie das Kontextmenü je nach der Anzahl der Tabellen vermutlich direkt vor dem Anzeigen erstellen. Wenn Sie jedoch alle Tabellen, Abfrage, Formulare und Berichte samt Steuerelementen nutzen möchten, können Sie das Kontextmenü nicht bei jeder Anzeige dynamisch erstellen – dies würde viel zu viel Zeit in Anspruch nehmen. Sie müssen, wenn Sie auch die Steuerelemente der Formulare auswählen möchten, immerhin alle Formulare im Entwurf öffnen und die Steuerelemente (sowie eventuell verschachtelte Elemente wie Unterformular) einlesen.<\/p>\n Wir wollen die umfangreiche Variante wählen und gehen folgendermaßen vor:<\/p>\n Beim Start der Anwendung muss eine Prozedur einmalig aufgerufen werden. Diese liest alle Objekte und deren Felder beziehungsweise Steuerelemente ein. Damit dies nicht jedes Mal nötig ist, speichern wir allerdings auch gleichzeitig den Zeitpunkt der letzten änderung eines jeden Objekts. Auf diese Weise können wir prüfen, ob sich das Objekt seit dem letzten Zusammenstellen der Daten für das Kontextmenü geändert hat, und brauchen die Inhalte dann nur bei Bedarf neu einzulesen.<\/p>\n Die ermittelten Informationen speichern wir in einer Tabelle namens tblObjekte<\/b>. Im gleichen Zuge, also beim Start der Anwendung, bauen wir auch das Kontextmenü neu auf. Dies ist auch nötig, wenn Sie während einer Sitzung umfangreiche änderungen vornehmen und direkt auf die neuen Elemente zugreifen möchten – die geänderten Objekte werden dann erneut eingelesen und das Kontextmenü auf Basis des aktuell in der Tabelle tblObjekte <\/b>gespeicherten Stands erstellt. Die Tabelle tblObjekte <\/b>sieht im Entwurf wie in Bild 3 aus. Sie enthält die folgenden Felder:<\/p>\n Bild 3: Tabelle zum Zwischenspeichern der Objekte<\/span><\/b><\/p>\n Einlesen der Elemente<\/b><\/p>\n Die Prozedur ObjekteEinlesen <\/b>aus Listing 2 startet den Einlesevorgang der Elemente der aktuell geöffneten Datenbankdatei. Die Prozedur füllt zunächst eine Variable vom Typ Database <\/b>mit einem Verweis auf die aktuelle Datenbank. Dann verwendet sie deren Execute<\/b>-Methode, um das Feld Loeschen <\/b>für alle Datensätze der Tabelle tblObjekte <\/b>auf den Wert True <\/b>einzustellen. Nachfolgend stellt die Prozedur für alle noch vorhandenen Elemente den Wert dieses Feldes auf False <\/b>ein. So kann sie mit der letzten Anweisung alle Elemente löschen, die gegebenenfalls seit dem vorherigen Einlesevorgang gelöscht wurden.<\/p>\n Listing 2: Einlesen der Tabellen, Abfrage und Formulare sowie Felder und Steuerelemente<\/span><\/b><\/p>\n Doch eins nach dem anderen: Zunächst einmal durchläuft die Prozedur alle Elemente der TableDefs<\/b>-Auflistung der Datenbank und referenziert diese jeweils mit der Objektvariablen tdf<\/b>. Damit ruft sie die Prozedur TabellenAbfragenFelder <\/b>auf, die sich um das Schreiben der Informationen zur jeweiligen Tabelle in die Tabelle tblObjekte <\/b>kümmert. Dazu übergibt die Prozedur den Verweis auf die Datenbank (db<\/b>) und auf das TableDef<\/b>-Element (tdf<\/b>) sowie den Wert 0 <\/b>als Typ des Elements (0 <\/b>entspricht einer Tabelle, 1 <\/b>einer Abfrage). Diese Prozedur trägt je einen Datensatz für die Tabelle und je einen weiteren für jedes Tabellenfeld in die Tabelle tblObjekte <\/b>ein. Wir schauen uns diese Prozedur weiter unten an.<\/p>\n Anschließend durchläuft die Prozedur ObjekteEinlesen <\/b>in einer ähnlichen For Each<\/b>-Schleife die QueryDef<\/b>-Objekte der Datenbank, also die Abfragen. Auch hier ruft die Prozedur für jedes Element die Prozedur TabellenAbfragenFelder <\/b>auf, die wir weiter unten beschreiben. Diesmal übergibt die Anweisung jedoch den Verweis auf das QueryDef<\/b>-Objekt als zweiten Parametern (qdf<\/b>).<\/p>\n Schließlich durchläuft die Prozedur alle Elemente der Auflistung AllForms <\/b>des Objekts CurrentProject<\/b> und referenziert das jeweilige Objekt mit der Variablen obj<\/b>.<\/p>\n Innerhalb der Schleife ermittelt die Prozedur nun zunächst das Datum der letzten änderung des aktuellen Formulars und speichert dieses in der Variablen datLetzteAenderung<\/b>. Außerdem durchsucht sie die Tabelle tblObjekte <\/b>nach einem eventuell bereits gespeicherten Datensatz für das aktuelle Formular-Objekt. Ist eines vorhanden, liest sie den Wert des Feldes LetzteAenderung <\/b>für dieses Formular in die Variable datLetzteGespeicherteAenderung <\/b>ein.<\/p>\n Dann vergleicht die Prozedur die Werte von datLetzteGespeicherteAenderung <\/b>und datLetzteAenderung<\/b>. Wurde das Formular nach dem letzten Speichern in der Tabelle tblObjekte <\/b>geändert, ist datLetzteGespeicherteAenderung <\/b>kleiner als datLetzteAenderung <\/b>und die in der entsprechenden If…Then<\/b>-Bedingung enthaltenen Anweisungen werden ausgeführt – sprich: Das Formular wird erneut eingelesen. Dazu öffnet die Prozedur das Formular in der Entwurfsansicht und referenziert es mit der Variablen frm<\/b>. Diese wird dann, nebst einigen weiteren Informationen, an die Prozedur FormulareBerichteSteuerelemente <\/b>übergeben – mehr dazu weiter unten in der Beschreibung dieser Prozedur. Nach dem Einlesen schließt die Prozedur ObjekteEinlesen <\/b>das im Entwurf geöffnete Formular wieder.<\/p>\n Sollte datLetzteGespeicherteAenderung <\/b>nicht kleiner als datLetzte-Aenderung <\/b>sein, sind eigentlich keine weiteren Schritte nötig. Allerdings haben wir ja zu Beginn der Prozedur das Feld Loeschen <\/b>für alle Elemente auf True <\/b>eingestellt. Wenn sich an einem Objekt jedoch nichts geändert hat, soll es auch nicht gelöscht werden – also stellen wir im Else<\/b>-Teil der If…Then<\/b>-Bedingung den Wert von Loeschen <\/b>auf False <\/b>ein. Dazu ermittelt die Prozedur zunächst den Primärschlüsselwert aus dem Feld ObjektID <\/b>für das Objekt mit dem angegebenen Namen und dem Wert -1 <\/b>im Feld Objekttyp<\/b>. Dann stellt sie das Feld Loeschen <\/b>zunächst für den so ermittelten Datensatz auf False <\/b>ein und dann für alle Datensätze, die diesem untergeordnet sind und dementsprechend den ermittelten Zahlenwert im Feld UnterobjektVonObjektID <\/b>aufweisen – in diesem Fall also für die Steuerelemente des Formulars.<\/p>\n Schließlich löscht die Prozedur alle Datensätze der Tabelle tblObjekte<\/b>, deren Feld Loeschen <\/b>auch nach dem Durchlaufen und gegebenenfalls Aktualisieren aller Objekte und Unterobjekte noch den Wert True <\/b>hat.<\/p>\n Eintragen von Tabellen, Abfragen und Feldern in tblObjekte<\/b><\/p>\n Nachdem der grundlegende Ablauf von der Prozedur ObjekteEinlesen <\/b>gesteuert wird, ruft diese zwei weitere Prozeduren auf, um die Daten der Objekte wie Tabellen, Abfragen oder Formulare in der Tabelle tblObjekte <\/b>zu speichern.<\/p>\n Wir schauen uns als Erstes die Prozedur TabellenAbfragenFelder <\/b>an, die in Listing 3 abgebildet ist. Die Prozedur erwartet die folgenden Parameter:<\/p>\n <\/p>\n Listing 3: Eintragen der Tabellen und Felder in die Tabelle tblObjekte<\/span><\/b><\/p>\n Die Prozedur liest zunächst den Zeitpunkt der letzten Aktualisierung der Tabelle oder Abfrage aus der Eigenschaft LastUpdated<\/b> in die Variable datLetzteAenderung <\/b>ein. Dann ermittelt sie, wiederum per DLookup<\/b>-Funktion, den Zeitpunkt der letzten Speicherung der Daten dieser Tabelle oder Abfrage in der Tabelle tblObjekte<\/b>.<\/p>\n Dann prüft die Prozedur TabellenAbfragenFelder<\/b>, ob der mit der Nz<\/b>-Funktion ermittelte Wert von datLetzteGespeicherteAktualisierung <\/b>nicht den Wert 0 <\/b>enthält. Dies ist der Fall, wenn dieses Objekt noch gar nicht gespeichert wurde, und führt dazu, dass das Objekt im ersten Teil der If…Then<\/b>-Bedingung aktualisiert und im zweiten Teil neu angelegt wird.<\/p>\n Der erste Teil der If…Then<\/b>-Bedingung unterscheidet wiederum, ob die letzte Speicherung in der Tabelle tblObjekte <\/b>älter als die aktuelle Version der Tabelle oder Abfrage ist.<\/p>\n Falls ja, aktualisiert sie die Informationen zu dieser Tabelle oder Abfrage, falls nein, aktualisiert sie nur das Feld Loeschen <\/b>für die Tabelle\/Abfrage und die enthaltenen Felder auf den Wert False<\/b>.<\/p>\n Wenn die Daten aktualisiert werden müssen, weil das Objekt zwischenzeitlich geändert wurde, führt die Prozedur zunächst eine UPDATE<\/b>-Abfrage aus, welche den Zeitpunkt der letzten änderung auf die aktuelle Zeit und das Feld Loeschen <\/b>auf den Wert False <\/b>einstellt.<\/p>\n Die Felder der Tabelle oder Abfrage wollen wir in diesem Fall gleich gründlich aktualisieren – und zwar durch Löschen und erneutes Anlegen. Dies erledigen die beiden folgenden DELETE<\/b>– und INSERT INTO<\/b>-Anweisungen. Letztere wird dabei in einer For Each<\/b>-Schleife über alle Field<\/b>-Objekte ausgeführt und legt so für jedes Feld der soeben untersuchten Tabelle oder Abfrage einen Datensatz in der Tabelle tblObjekte <\/b>an. Dabei ist wichtig, dass das Feld UnterobjektVonObjektID <\/b>den Primärschlüsselwert des Eintrags erhält, der die Tabelle oder Abfrage selbst ausweist.<\/p>\n Sollten keine änderungen vorliegen, trägt die Prozedur einfach nur für alle betroffenen Datensätze (also den für die Tabelle\/Abfrage und die für die einzelnen Felder) den Wert False <\/b>für das Feld Loeschen <\/b>ein.<\/p>\n Fehlt noch der Fall, dass die Tabelle oder Abfrage noch gar nicht gespeichert wurde. Die Prozedur trägt dann zunächst einen neuen Datensatz für die Tabelle oder Abfrage in die Tabelle tblObjekte <\/b>ein. Sie ermittelt mit SELECT @@IDENTITY <\/b>den Primärschlüsselwert des neu angelegten Datensatzes und verwendet diesen in der folgenden Schleife über alle Felder der Tabelle oder Abfrage, um in UnterobjektVonObjektID <\/b>die Zuordnung des Feldes zum übergeordneten Tabelle\/Abfrage-Datensatz herzustellen.<\/p>\n Nach dem Einlesen einiger Beispieltabellen sieht die Tabelle tblObjekte<\/b> etwa wie in Bild 4 aus.<\/p>\n Bild 4: Die Tabelle tblObjekte mit einigen Beispieldaten<\/span><\/b><\/p>\n Eintragen von Formularen in tblObjekte<\/b><\/p>\n Die Prozedur zum Eintrag eines Formulars samt Steuerelementen in die Tabelle tblObjekte <\/b>unterscheidet sich etwa von der für die Tabellen. Der Grund ist, dass wir für Tabellen und Abfragen auf der einen und für Formulare und Berichte auf der anderen Seite verschiedene Auflistungen durchlaufen und unterschiedliche Objekte untersuchen müssen.<\/p>\n Die Prozedur FormulareBerichteSteuerelemente <\/b>aus Listing 4 kümmert sich um das Eintragen letzterer Objekte.<\/p>\n Listing 4: Eintragen der Formulare und Steuerelemente in die Tabelle tblObjekte<\/span><\/b><\/p>\n Sie erwartet die folgenden Parameter:<\/p>\n Die Prozedur ermittelt zunächst anhand des Wertes von lngObjekttypID <\/b>die Bezeichnung der Auflistung entweder für Formulare (Forms<\/b>) oder Berichte (Reports<\/b>). Diese soll später beim Ausgeben eines Formulars\/Steuerelements über das Kontextmenü mit dem Objektnamen ausgegeben werden, also etwa Forms!frmFormular<\/b>.<\/p>\n Wenn der Parameter datLetzteGespeicherteAenderung <\/b>nicht den Wert 0 <\/b>enthält (0 <\/b>bedeutet, dass das Objekt noch nicht gespeichert wurde), ermittelt die Prozedur per DLookup <\/b>den Primärschlüsselwert des Datensatzes für das Formular in der Tabelle tblObjekte<\/b>. Sie aktualisiert dann den vorhandenen Datensatz und trägt das aktuelle Datum für das Feld LetzteAenderung <\/b>sowie den Wert False <\/b>für das Feld Loeschen <\/b>ein.<\/p>\n Danach löscht die Prozedur alle Datensätze für die Steuerelemente des soeben bearbeiteten Formular-Datensatzes. Diese werden, da ja neue Steuerelemente hinzugekommen oder vorhandene entfernt worden sein könnten, vollständig neu angelegt. Dies geschieht wiederum innerhalb einer For Each<\/b>-Schleife über alle Elemente der Controls<\/b>-Auflistung des mit objFrmRpt <\/b>übergebenen Formular-Objekts. Dabei gibt es zwei Varianten, um den entsprechenden Datensatz zur Tabelle tblObjekte <\/b>hinzuzufügen: Eine für Steuerelemente mit dem Typ acSubform <\/b>und eine für die übrigen. Wenn es sich um ein Unterformular-Steuerelement handelt, soll zusätzlich in das Feld EnthaeltUnterformular <\/b>noch der Name des im Unterformular-Steuerelement enthaltenen Unterformulars gespeichert werden. Dieses Feature ist für eine zukünftige Erweiterung gedacht, aktuell liefert die Lösung nur Kontextmenüs bis zur ersten Ebene von Steuerelementen eines Formulars. Die zweite Variante speichert genau wie die erste alle notwendigen Information zum aktuellen Steuerelement in der Tabelle tblObjekte<\/b> – vor allem aber den Wert False <\/b>im Feld Loeschen<\/b>, damit der neu erstellte Datensatz weiter unten nicht direkt wieder gelöscht wird.<\/p>\n Sollte der Parameter datLetzteGespeicherteAenderung <\/b>den Wert 0 <\/b>enthalten, ist das Formular noch nicht vorhanden. Dann legt die Prozedur zunächst per INSERT INTO<\/b>-Aktionsabfrage einen neuen Datensatz für das Formular in der Tabelle tblObjekte <\/b>an. Die folgende Anweisung ermittelt den Primärschlüsselwert des neu angelegten Datensatzes, damit dieser weiter unten gleich als Wert des Feldes UnterobjektVonObjekt-ID <\/b>verwendet werden kann. Dort legt die Prozedur, wieder innerhalb einer For Each<\/b>-Schleife über alle Steuerelemente des Formulars, für jedes Steuerelement einen neuen Eintrag in der Tabelle tblObjekte <\/b>an. Auch hier gibt es wieder zwei Varianten, die davon abhängen, ob es sich bei dem aktuellen Steuerelement um ein Unterformular- oder ein anderes Steuerelement handelt.<\/p>\n Bild 5 zeigt die Daten der Tabelle tblObjekte <\/b>für ein Formular und seine Steuerelemente – inklusive Unterformular-Steuerelement.<\/p>\n Bild 5: Die Tabelle tblObjekte mit einigen Beispieldaten für die Abbildung eines Formulars<\/span><\/b><\/p>\n Kontextmenü erzeugen<\/b><\/p>\n Nun benötigen wir noch eine Prozedur, die aus den in der Tabelle tblObjekte <\/b>gespeicherten Daten ein entsprechendes Kontextmenü zaubert.<\/p>\n Dabei ergibt sich ein Problem, das aus einer unterschiedlichen Implementierung beim Anklicken eines Kontextmenü-Eintrags resultiert: Während Sie für Kontextmenüs im Access-Fenster einfach die auszuführende Funktion mit der Eigenschaft OnAction <\/b>des CommandBarButton<\/b>-Elements definieren, ist dies für Kontextmenüs im VBA-Editor nicht möglich. Hier benötigen Sie ein als WithEvents <\/b>deklariertes CommandBarButton<\/b>-Element, für das Sie eine Ereignisprozedur erstellen, die auf das Click<\/b>-Ereignis reagiert. Da wir hier eine unbestimmte Anzahl von Kontextmenü-Schaltflächen erstellen müssen und nicht für jede einzelne eine eigene Variable deklarieren wollen, arbeiten wir mit einer eigenen Klasse, welche jeweils eine Variable zum Aufnehmen des CommandBarButton<\/b>-Steuerelements und die Implementierung des Click-Ereignisses enthält – dazu später mehr.<\/p>\n Zunächst deklarieren wir im Modul mdl-VBE-Kontextmenue <\/b>eine Collection<\/b>, die später die einzelnen Klassen für jedes einzelne CommandBarButton<\/b>-Element aufnimmt:<\/p>\n Dann kommen wir zu der Prozedur, welche den Großteil der Arbeit erledigt. Diese heißt VBEKontextmenueErstellen <\/b>und sieht wie in Listing 5 aus. Die Prozedur referenziert zunächst das weiter oben ermittelte Kontextmenü Code Window<\/b>. Dann instanziert sie die oben deklarierte Collection colCommandBarButtons<\/b> und löscht ein eventuell im Kontextmenü vorhandenes Element namens Datenbank-Objekte<\/b>. Dieses wird danach neu erstellt, allerdings nur als temporäres Element, und mit der gewünschten Bezeichnung versehen.<\/p>\nPublic Sub <\/span>KontextmenueFinden()\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Dim <\/span>cbb As <\/span>CommandBarButton\r\n For Each cbr In VBE.CommandBars\r\n If <\/span>cbr.Type = msoBarTypePopup Then<\/span>\r\n On Error Resume Next<\/span>\r\n Set<\/span> cbb = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n With<\/span> cbb\r\n cbb.Caption = \"Menüname: \" & cbr.Name\r\n End With<\/span>\r\n On Error GoTo<\/span> 0\r\n End If<\/span>\r\n Next<\/span> cbr\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2014_01\/pic_921_001.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2014_01\/pic_921_003.png\")
<\/p>\n\n
Public Sub <\/span>ObjekteEinlesen()\r\n Dim <\/span>datLetzteAenderung As Date<\/span>\r\n Dim <\/span>datLetzteGespeicherteAenderung As Date<\/span>\r\n Dim <\/span>db As <\/span>dao.Database\r\n Dim <\/span>tdf As <\/span>dao.TableDef\r\n Dim <\/span>qdf As <\/span>dao.QueryDef\r\n Dim <\/span>obj As <\/span>AccessObject\r\n Dim <\/span>frm As <\/span>Form\r\n Dim <\/span>lngID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblObjekte SET Loeschen = -1\", dbFailOnError\r\n For Each tdf In db.TableDefs\r\n TabellenAbfragenFelder db, tdf, 0\r\n Next<\/span> tdf\r\n For Each qdf In db.QueryDefs\r\n TabellenAbfragenFelder db, qdf, 1\r\n Next<\/span> qdf\r\n For Each obj In CurrentProject.AllForms\r\n datLetzteAenderung = obj.DateModified\r\n datLetzteGespeicherteAenderung = Nz(DLookup(\"LetzteAenderung\", _\r\n \"tblObjekte\", \"Objekt = ''\" & obj.Name & \"''\"))\r\n If <\/span>CSng(datLetzteGespeicherteAenderung) < CSng(datLetzteAenderung) _\r\n Or datLetzteGespeicherteAenderung = 0 Then<\/span>\r\n DoCmd.OpenForm obj.Name, acDesign\r\n Set<\/span> frm = Forms(obj.Name)\r\n FormulareBerichteSteuerelemente db, frm, -1, _\r\n datLetzteAenderung, datLetzteGespeicherteAenderung\r\n DoCmd.Close acForm, obj.Name\r\n Else<\/span>\r\n lngID = DLookup(\"ObjektID\", \"tblObjekte\", \"Objekt = ''\" & obj.Name & \"'' AND Objekttyp = -1\")\r\n db.Execute \"UPDATE tblObjekte SET Loeschen = 0 " _\r\n & "WHERE ObjektID = \" & lngID, dbFailOnError\r\n db.Execute \"UPDATE tblObjekte SET Loeschen = 0 " _\r\n & "WHERE UnterobjektVonObjektID = \" & lngID, dbFailOnError\r\n End If<\/span>\r\n Next<\/span> obj\r\n For Each obj In CurrentProject.AllReports\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp) VALUES(''\" _\r\n & obj.Name & \"'', \" & acForm & \")\", dbFailOnError\r\n Next<\/span> obj\r\n db.Execute \"DELETE FROM tblObjekte WHERE Loeschen = -1\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>TabellenAbfragenFelder(db As <\/span>dao.Database, objTdfQdf As Object<\/span>, lngObjekttypID As Long<\/span>)\r\n Dim <\/span>lngObjektID As Long<\/span>\r\n Dim <\/span>fld As <\/span>dao.Field\r\n Dim <\/span>datLetzteAenderung As Date<\/span>\r\n Dim <\/span>datLetzteGespeicherteAenderung As Date<\/span>\r\n datLetzteAenderung = objTdfQdf.LastUpdated\r\n datLetzteGespeicherteAenderung = Nz(DLookup(\"LetzteAenderung\", \"tblObjekte\", _\r\n \"Objekt = ''\" & objTdfQdf.Name & \"''\"))\r\n If <\/span>Not<\/span> datLetzteGespeicherteAenderung = 0 Then<\/span>\r\n lngObjektID = DLookup(\"ObjektID\", \"tblObjekte\", \"Objekt = ''\" & objTdfQdf.Name & \"''\")\r\n If <\/span>CSng(datLetzteGespeicherteAenderung) < CSng(datLetzteAenderung) Then<\/span>\r\n db.Execute \"UPDATE tblObjekte SET LetzteAenderung = \" & ISODatum(datLetzteAenderung) _\r\n & \", Loeschen = 0 WHERE ObjektID = \" & lngObjektID, dbFailOnError\r\n db.Execute \"DELETE FROM tblObjekte WHERE UnterobjektVonObjektID = \" & lngObjektID\r\n For Each fld In objTdfQdf.Fields\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, " _\r\n & "UnterobjektVonObjektID, Referenz) VALUES(''\" & fld.Name _\r\n & \"'', \" & lngObjekttypID & \", \" & lngObjektID & \", ''\" & objTdfQdf.Name _\r\n & \".\" & fld.Name & \"'')\", dbFailOnError\r\n Next<\/span> fld\r\n Else<\/span>\r\n db.Execute \"UPDATE tblObjekte SET Loeschen = 0 WHERE ObjektID = \" _\r\n & lngObjektID, dbFailOnError\r\n db.Execute \"UPDATE tblObjekte SET Loeschen = 0 WHERE UnterobjektVonObjektID = \" _\r\n & lngObjektID, dbFailOnError\r\n End If<\/span>\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, " _\r\n & "LetzteAenderung, Referenz) VALUES(''\" & objTdfQdf.Name & \"'', \" _\r\n & lngObjekttypID & \", \" & ISODatum(datLetzteAenderung) _\r\n & \", ''\" & objTdfQdf.Name & \"'')\", dbFailOnError\r\n lngObjektID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n For Each fld In objTdfQdf.Fields\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, " _\r\n & "UnterobjektVonObjektID, Referenz) VALUES(''\" & fld.Name _\r\n & \"'', \" & lngObjekttypID & \", \" & lngObjektID & \", ''\" _\r\n & objTdfQdf.Name & \".\" & fld.Name & \"'')\", dbFailOnError\r\n Next<\/span> fld\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
![\"Die](\"..\/fileadmin\/_temp_\/2014_01\/pic_921_004.png\")
<\/p>\nPublic Sub <\/span>FormulareBerichteSteuerelemente(db As <\/span>dao.Database, _\r\n objFrmRpt As Object<\/span>, lngObjekttypID As Long<\/span>, _\r\n datLetzteAenderung As Date<\/span>, datLetzteGespeicherteAenderung As Date<\/span>)\r\n Dim <\/span>lngObjektID As Long<\/span>\r\n Dim <\/span>ctl As <\/span>Control\r\n Dim <\/span>strObjekttyp As String<\/span>\r\n If <\/span>lngObjekttypID = -1 Then<\/span>\r\n strObjekttyp = \"Forms\"\r\n Else<\/span>\r\n strObjekttyp = \"Report\"\r\n End If<\/span>\r\n If <\/span>Not<\/span> datLetzteGespeicherteAenderung = 0 Then<\/span>\r\n lngObjektID = DLookup(\"ObjektID\", \"tblObjekte\", \"Objekt = ''\" & objFrmRpt.Name & \"''\")\r\n db.Execute \"UPDATE tblObjekte SET LetzteAenderung = \" & ISODatum(datLetzteAenderung) _\r\n & \", Loeschen = 0 WHERE ObjektID = \" & lngObjektID, dbFailOnError\r\n db.Execute \"DELETE FROM tblObjekte WHERE UnterobjektVonObjektID = \" & lngObjektID\r\n For Each ctl In objFrmRpt.Controls\r\n If <\/span>ctl.ControlType = acSubform Then<\/span>\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, "_\r\n & "UnterobjektVonObjektID, Referenz, \" _\r\n & \"EnthaeltUnterformular) VALUES(''\" & ctl.Name _\r\n & \"'', \" & ctl.ControlType & \", \" & lngObjektID & \", ''\" _\r\n & strObjekttyp & \"!\" & objFrmRpt.Name & \"!\" & ctl.Name _\r\n & \"'', ''\" & ctl.SourceObject & \"'')\", dbFailOnError\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, " _\r\n "UnterobjektVonObjektID, Referenz) VALUES(''\" & ctl.Name _\r\n & \"'', \" & ctl.ControlType & \", \" & lngObjektID & \", ''\" _\r\n & strObjekttyp & \"!\" & objFrmRpt.Name & \"!\" _\r\n & ctl.Name & \"'')\", dbFailOnError\r\n End If<\/span>\r\n Next<\/span> ctl\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, LetzteAenderung, " _\r\n & "Referenz) VALUES(''\" & objFrmRpt.Name & \"'', \" _\r\n & lngObjekttypID & \", \" & ISODatum(datLetzteAenderung) _\r\n & \", ''\" & strObjekttyp & \"!\" & objFrmRpt.Name _\r\n & \"'')\", dbFailOnError\r\n lngObjektID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n For Each ctl In objFrmRpt.Controls\r\n If <\/span>ctl.ControlType = acSubform Then<\/span>\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, " _\r\n "UnterobjektVonObjektID, Referenz, \" _\r\n & \"EnthaeltUnterformular) VALUES(''\" & ctl.Name & \"'', \" _\r\n & ctl.ControlType & \", \" & lngObjektID & \", ''\" _\r\n & strObjekttyp & \"!\" & objFrmRpt.Name & \"!\" & ctl.Name _\r\n & \"'', ''\" & ctl.SourceObject & \"'')\", dbFailOnError\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblObjekte(Objekt, Objekttyp, " _\r\n & "UnterobjektVonObjektID, Referenz) VALUES(''\" & ctl.Name _\r\n & \"'', \" & ctl.ControlType & \", \" & lngObjektID & \", ''\" _\r\n & strObjekttyp & \"!\" & objFrmRpt.Name _\r\n & \"!\" & ctl.Name & \"'')\", dbFailOnError\r\n End If<\/span>\r\n Next<\/span> ctl\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
![\"Die](\"..\/fileadmin\/_temp_\/2014_01\/pic_921_005.png\")
<\/p>\nPublic <\/span>colCommandBarButtons As <\/span>Collection<\/pre>\nPublic Sub <\/span>TabellenAbfragenFelderKontextmenue()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>cbr As <\/span>CommandBar, cbp As <\/span>CommandBarPopup\r\n Dim <\/span>rst As <\/span>DAO.Recordset, rstSteuerelemente As <\/span>DAO.Recordset\r\n Dim <\/span>cbpTabellen As <\/span>CommandBarPopup, cbpAbfragen As <\/span>CommandBarPopup\r\n Dim cbpFormulare As <\/span>CommandBarPopup\r\n Dim <\/span>cbpElement As <\/span>CommandBarPopup, objcbb As <\/span>clsCommandBarButton\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> cbr = VBE.CommandBars(\"Code Window\")\r\n Set<\/span> colCommandBarButtons = New<\/span> Collection\r\n On Error Resume Next<\/span>\r\n cbr.Controls(\"Datenbank-Objekte\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbp = cbr.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n cbp.Caption = \"Datenbank-Objekte\"\r\n Set<\/span> cbpTabellen = cbp.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n cbpTabellen.Caption = \"Tabellen\"\r\n Set<\/span> cbpAbfragen = cbp.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n cbpAbfragen.Caption = \"Abfragen\"\r\n Set<\/span> cbpFormulare = cbp.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n cbpFormulare.Caption = \"Formulare\"\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblObjekte " _\r\n & "WHERE UnterobjektVonObjektID IS NULL\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Select Case rst!Objekttyp\r\n Case <\/span>0\r\n Set<\/span> cbpElement = cbpTabellen.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n Set<\/span> objcbb = ElementHinzufuegen(cbpElement, \"[Tabelle]\", rst!Referenz)\r\n colCommandBarButtons.Add objcbb\r\n Case <\/span>1\r\n Set<\/span> cbpElement = cbpAbfragen.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n Set<\/span> objcbb = ElementHinzufuegen(cbpElement, \"[Abfrage]\", rst!Referenz)\r\n colCommandBarButtons.Add objcbb\r\n Case <\/span>-1\r\n Set<\/span> cbpElement = cbpFormulare.Controls.Add(msoControlPopup, , , , True<\/span>)\r\n Set<\/span> objcbb = ElementHinzufuegen(cbpElement, \"[Forms]\", rst!Referenz)\r\n colCommandBarButtons.Add objcbb\r\n End Select<\/span>\r\n With<\/span> cbpElement\r\n .Caption = rst!Objekt\r\n Set<\/span> rstSteuerelemente = db.OpenRecordset(_\r\n \"SELECT * FROM tblObjekte WHERE UnterobjektVonObjektID = \" _\r\n & rst!ObjektID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstSteuerelemente.EOF\r\n Set<\/span> objcbb = ElementHinzufuegen(cbpElement, rstSteuerelemente!Objekt, rst!Referenz, _\r\n Nz(rstSteuerelemente!EnthaeltUnterformular, \"\"))\r\n colCommandBarButtons.Add objcbb\r\n rstSteuerelemente.MoveNext<\/span>\r\n Loop<\/span>\r\n End With<\/span>\r\n rst.Move