<\/p>\n
![\"Der](\"..\/fileadmin\/_temp_\/2019_06\/pic_1213_001.png\")
<\/p>\n
Bild 1: Der Verweise-Dialog von Access<\/span><\/b><\/p>\n Wenn Sie den Umfang der Objekte, Methoden, Eigenschaften und Ereignisse unter VBA erweitern wollen, geht kein Weg am Verweise-Dialog des VBA-Editors zum Hinzufügen neuer Verweise vorbei. Hier legen Sie fest, welche zusätzlichen Bibliotheken neben den eingebauten Bibliotheken noch ihre Elemente für die Programmierung im aktuellen VBA-Projekt bereitstellen sollen. In diesem Beitrag werfen wir einen kurzen Blick auf den Verweise-Dialog, aber vor allem schauen wir uns an, wie Sie per VBA auf die enthaltenen Einträge zugreifen und diese verwalten.<\/b><\/p>\n Wenn Sie vom Access-Fenster aus mit einer geöffneten Datenbankdatei eine der Tastenkombinationen Strg + G <\/b>oder Alt + F11 <\/b>betätigen, erscheint der VBA-Editor. Hier öffnen Sie mit dem Menübefehl Extras|Verweise <\/b>den Verweise<\/b>-Dialog. Dieser enthält standardmäßig, also für eine neu unter Access 2016 angelegte Access-Datenbank, die Einträge wie in Bild 1.<\/p>\n Bild 1: Der Verweise-Dialog von Access<\/span><\/b><\/p>\n Sie können Verweise hinzufügen, indem Sie diese in der Liste auffinden und das Kontrollkästchen des gewünschten Eintrags aktivieren. Um einen Verweis zu entfernen, entfernen Sie einfach den passenden Haken. Sie können auch Bibliotheken hinzufügen, die nicht in der Liste angezeigt werden. Dazu klicken Sie auf die Schaltfläche Durchsuchen…<\/b>, mit der Sie einen Dialog zum Auswählen der hinzuzufügenden Datei öffnen.<\/p>\n Die References-Auflistung<\/b><\/p>\n Es gibt zwei interessante Elemente, die wir uns in diesem Beitrag ansehen werden: die References<\/b>-Auflistung und das Reference<\/b>-Objekt.<\/p>\n Die References<\/b>-Auflistung liefert die folgenden Eigenschaften, Methoden und Ereignisse:<\/p>\n Das Reference-Objekt<\/b><\/p>\n Die References<\/b>-Auflistung enthält Objekte des Typs Reference<\/b>. Diese Objekte haben die folgenden Eigenschaften:<\/p>\n Durchlaufen der vorhandenen Verweise<\/b><\/p>\n Um die im Verweise<\/b>-Dialog angezeigten und somit eingebundenen Bibliotheken auszugeben, können Sie die References<\/b>-Auflistung durchlaufen und dabei die Eigenschaften der Reference<\/b>-Objekte ausgeben. Das können Sie sowohl mit einer For…Next<\/b>-Schleife als auch mit einer For Each<\/b>-Schleife erledigen. Mit einer For…Next<\/b>-Schleife verwenden Sie eine Zählervariable und greifen über die Item<\/b>-Eigenschaft auf die Verweise zu:<\/p>\n Dies liefert im Direktbereich des VBA-Editors für die standardmäßig vorhandenen Bibliotheken die folgende Ausgabe:<\/p>\n In einer For Each<\/b>-Schleife weisen Sie die Reference<\/b>-Objekte direkt der in der Schleife verwendeten Variablen zu:<\/p>\n Eigenschaften von Verweisen ausgeben<\/b><\/p>\n Mit der folgenden Prozedur geben wir die Werte aller Eigenschaften des mit der Variablen ref <\/b>referenzierten Reference<\/b>-Elements (außer Collection<\/b>) im Direktbereich des VBA-Editors aus:<\/p>\n Für die Bibliothek Visual Basic for Applications <\/b>erhalten wir beispielsweise die folgende Ausgabe:<\/p>\n Verweise hinzufügen<\/b><\/p>\n Zum Hinzufügen von Verweisen gibt es zwei Methoden. Die erste ist das Hinzufügen über den Dateinamen mit AddFromFile<\/b>, die zweite das Hinzufügen über die GUID mit AddFromGUID<\/b>. Um die beiden Methoden auszuprobieren, fügen wir zunächst einen Verweis auf eine Bibliothek über den Verweise<\/b>-Dialog hinzu, und zwar die Bibliothek Microsoft Office x.0 Object Library<\/b>. Diese finden Sie in aktuelleren Access-Versionen nicht unter diesem Namen in der Liste der Verweise, sondern unter der Bezeichnung Office<\/b> (siehe Bild 2).<\/p>\n <\/p>\n Bild 2: Hinzufügen des Verweises auf die Office-Bibliothek<\/span><\/b><\/p>\n Wenn Sie den Verweis allerdings erst einmal hinzugefügt haben und den Verweise<\/b>-Dialog erneut öffnen, erscheint die richtige Bezeichnung in der Liste der Verweise, nämlich im Falle von Access 2016 Microsoft Office 16.0 Object Library<\/b>.<\/p>\n Um die beiden Methoden AddFromFile <\/b>und AddFromGuid <\/b>auszuprobieren, lassen wir uns den Dateinamen und die GUID dieses Verweises im Direktbereich ausgeben – das erledigen wir mit der Prozedur Verweiseigenschaften<\/b>, die wir weiter oben bereits vorgestellt haben.<\/p>\n Die Ergebnisse lauten:<\/p>\n Diese beiden Informationen nutzen wir nun als Parameter der Methoden AddFromFile <\/b>und AddFromGuid<\/b>. Vorher entfernen wir den Verweis auf die Office-Bibliothek jedoch wieder aus der Liste der Verweise – zunächst noch einmal über den Verweise-<\/b>Dialog (gleich erfahren Sie aber auch, wie das per VBA gelingt).<\/p>\n Mit der AddFromFile<\/b>-Methode fügen wir den Verweis auf die Office-Bibliothek wie folgt hinzu:<\/p>\n Danach geben wir den Namen des neu hinzugefügten und mit der Objektvariablen ref <\/b>referenzierten Verweises im Direktbereich des VBA-Editors aus, um zu zeigen, dass diese nun vorhanden ist. Sie können sich aber auch im Verweise<\/b>-Dialog davon überzeugen, dass der Verweis auf die Office-Bibliothek erfolgreich hinzugefügt wurde.<\/p>\n Wenn Sie diese Prozedur erneut aufrufen, löst dies übrigens den Fehler aus Bild 3 aus.<\/p>\n Bild 3: Fehlermeldung beim Versuch, eine bereits vorhandene Bibliothek zu referenzieren<\/span><\/b><\/p>\n Hinzufügen eines Verweises über die GUID<\/b><\/p>\n Über die GUID fügen wir einen Verweis mit der Methode AddFromGuid <\/b>zur Liste der Verweise hinzu. Dazu definieren wir noch zwei Variablen namens lngMajor <\/b>und lngMinor<\/b>, die wir zunächst leer lassen und als zweiten und dritten Parameter an den Aufruf der AddFromGuid<\/b>-Methode übergeben:<\/p>\n lngMajor <\/b>und lngMinor <\/b>geben hier allerdings jeweils den Wert 0 <\/b>aus. Sie können also mit diesen Parametern offensichlich angeben, welche Version einer Bibliothek referenziert werden soll.<\/p>\n Das ist nur nötig, wenn es mehrere Versionen einer Bibliothek mit der gleichen GUID gibt. Um dies herauszufinden, öffnen Sie den Registrierungseditor mit dem Befehl Reg-Edit<\/b>, den Sie im Suchfeld von Windows eingeben.<\/p>\n Im Registrierungseditor wählen Sie den Menü-befehl Bearbeiten|Suchen… <\/b>aus und geben im nun erscheinenden Suchformular die GUID ein. Den gefundenen Eintrag klappen Sie auf. Finden Sie dort mehrere Untereinträge, können Sie mit den Parametern Major <\/b>und Minor <\/b>die genaue Version der zu referenzierenden Bibliothek eintragen. Im Fall der Office-Bibliothek gibt es auf meinem Rechner fünf Einträge (siehe Bild 4). Die Zahl vor dem Punkt gibt die Major<\/b>-Versionsnummer an, die Zahl hinter dem Punkt die Minor<\/b>-Versionsnummer.<\/p>\n Bild 4: Registrierungseinträge für verschiedene Versionen der Office-Bibliothek<\/span><\/b><\/p>\n Wenn Sie wissen, welche Version Sie benötigen, können Sie diese also für den zweiten und dritten Parameter der AddFromGuid<\/b>-Methode angeben. Das ist insbesondere dann hilfreich, wenn Sie selbst mit Access 2016 entwickeln und den entsprechenden Office-Verweis verwenden und der Kunde noch mit einer älteren Version arbeitet. Dann können Sie beim Öffnen der Anwendung gleich die richtige Version des Verweises laden.<\/p>\n Geben Sie für beide Parameter den Wert 0<\/b> an, verwendet die Methode AddFromGuid <\/b>automatisch die neueste Version der zu referenzierenden Bibliothek. <\/p>\n Sie können nur jeweils eine Version einer Bibliothek gleichzeitig referenzieren.<\/p>\n Verweis per VBA entfernen<\/b><\/p>\n Die Methode Remove <\/b>der References<\/b>-Auflistung dient zum Entfernen eines Verweises. Um einen Verweis zu entfernen, müssen Sie diesen mit einer Objektvariable referenzieren. Das erledigen wir in diesem Fall über die Item<\/b>-Eigenschaft der References<\/b>-Auflistung mit dem Namen office <\/b>als Parameter:<\/p>\n Danach ist der Verweis auf die Bibliothek Microsoft Office 16.0 Object Library <\/b>aus der Liste der Verweise verschwunden.<\/p>\n Wenn Sie versuchen, einen Verweis zu entfernen, dessen Eigenschaft BuiltIn <\/b>den Wert True <\/b>aufweist, löst das den Fehler aus Bild 5 aus.<\/p>\n Bild 5: Fehler beim Versuch, einen eingebauten Verweis zu entfernen<\/span><\/b><\/p>\n Verweise beim Öffnen einer Anwendung automatisch hinzufügen<\/b><\/p>\n Um Problemen vorzubeugen, die mit der Version von Verweisen zusammenhängen, können Sie beim Start einer Anwendung dafür sorgen, dass alle benötigten Verweise automatisch gelöscht und neu angelegt werden.<\/p>\n Dazu geben Sie einfach nur die Anweisungen zum Löschen und Hinzufügen der benötigten Verweise an. Wenn Sie etwa die Verweise auf Outlook, Word und Excel benötigen, gehen Sie wie folgt vor:<\/p>\n Im Beispiel aus Listing 1 deaktivieren wir die Fehlerbehandlung mit On Error Resume Next<\/b>, bevor wir den ersten Verweis, in diesem Fall den auf die Excel-Bibliothek, entfernen. Das ist bereits beim Entfernen sinnvoll, denn sollte einer der Verweise direkt von Beginn an nicht vorhanden sein, wird kein Fehler ausgelöst, wenn die Remove<\/b>-Methode nicht das angegebene Element findet. Danach setzen wir das Err<\/b>-Objekt mit der Clear<\/b>-Methode zurück, da wir die Fehlernummer in diesem Fall nicht speichern wollen.<\/p>\n Listing 1: Erneuern von Verweisen<\/span><\/b><\/p>\n Wenn die folgende AddFromGuid<\/b>-Methode hingegen einen Fehler auslöst, was der Fall ist, wenn die Bibliothek mit der angegebenen GUID nicht vorhanden ist, wollen wir den Fehler noch weiterverarbeiten. Und zwar in einer Meldung, die den Benutzer darauf hinweis, dass die gesuchte Bibliothek nicht referenziert werden konnte. Auch danach leeren wir das Err<\/b>-Objekt wieder, damit wir bei folgenden Prüfungen von Err.Number <\/b>sicher sein können, dass der Fehler auch durch die unmittelbar zuvor aufgerufene AddFromGuid<\/b>-Methode ausgelöst wurde.<\/p>\n Ereignisse der References-Auflistung<\/b><\/p>\n Schließlich stellt die References<\/b>-Auflistung noch die beiden Ereignisse ItemAdded <\/b>und ItemRemoved <\/b>zur Verfügung. Diese sollen ausgelöst werden, wenn man der References<\/b>-Auflistung per VBA einen Eintrag hinzufügt oder einen Eintrag entfernt. Durch das Hinzufügen oder Entfernen von Verweisen über den Verweise-Dialog werden die Ereignisse nicht ausgelöst.<\/p>\n Um diese Ereignisse zu nutzen, benötigen Sie eine Klasse, die eine Objektvariable des Typs References <\/b>mit dem Schlüsselwort WithEvents <\/b>deklariert:<\/p>\n Diese wird dann im Initialize<\/b>-Ereignis der Klasse initialisiert und im Terminate<\/b>-Ereignis wieder geleert:<\/p>\n Die beiden Ereignisse implementieren Sie dann, indem Sie in den beiden Kombinationsfeldern des Codefensters der Klasse links den Eintrag objReferences <\/b>und rechts den Namen des gewünschten Ereignisses auswählen. Diese beiden Ereignisprozeduren füllen wir jeweils mit einer MsgBox<\/b>-Anweisung:<\/p>\n Wenn Sie dann per VBA einen Verweis hinzufügen oder entfernen, erscheint die entsprechende Meldung. Nach unserer Erfahrung gelingt dies jedoch immer nur einmal, nachdem die Klasse initialisiert wurde – danach nicht mehr. Probieren Sie es einmal aus.<\/p>\n<\/p>\n\n
\n
Public Sub <\/span>VerweisePerForNext()\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>ref As <\/span>Reference\r\n For i = 1 To References.Count\r\n Set<\/span> ref = References.Item(i)\r\n Debug.Print<\/span> ref.Name\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nVBA\r\nAccess\r\nstdole\r\nDAO<\/pre>\n
Public Sub <\/span>VerweisePerForEach()\r\n Dim <\/span>ref As <\/span>Reference\r\n For Each ref In References\r\n Debug.Print<\/span> ref.Name\r\n Next<\/span> ref\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>Verweiseigenschaften()\r\n Dim <\/span>ref As <\/span>Reference\r\n For Each ref In References\r\n Debug.Print<\/span> \"BuildIn: \" & ref.BuiltIn\r\n Debug.Print<\/span> \"FullPath: \" & ref.FullPath\r\n Debug.Print<\/span> \"GUID: \" & ref.Guid\r\n Debug.Print<\/span> \"IsBroken: \" & ref.IsBroken\r\n Debug.Print<\/span> \"Kind: \" & ref.Kind\r\n Debug.Print<\/span> \"Major: \" & ref.Major\r\n Debug.Print<\/span> \"Minor: \" & ref.Minor\r\n Debug.Print<\/span> \"Name: \" & ref.Name\r\n Next<\/span> ref\r\nEnd Sub<\/span><\/pre>\nBuildIn: Wahr\r\nFullPath: C:Program Files (x86)Common FilesMicrosoft SharedVBAVBA7.1VBE7.DLL\r\nGUID: {000204EF-0000-0000-C000-000000000046}\r\nIsBroken: Falsch\r\nKind: 0\r\nMajor: 4\r\nMinor: 2\r\nName: VBA<\/pre>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2019_06\/pic_1213_002.png\")
<\/p>\nFullPath: C:Program Files (x86)Microsoft Office\rootVFSProgramFilesCommonX86Microsoft SharedOffice16MSO.DLL\r\nGUID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}<\/pre>\nPublic Sub <\/span>OfficeHinzufuegenFromFile()\r\n Dim <\/span>strFile As String<\/span>\r\n Dim <\/span>ref As <\/span>Reference\r\n strFile = \"C:Program Files (x86)Microsoft Office rootVFSProgramFilesCommonX86Microsoft Shared Office16MSO.DLL\"\r\n Set<\/span> ref = References.AddFromFile(strFile)\r\n Debug.Print<\/span> ref.Name\r\nEnd Sub<\/span><\/pre>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2019_06\/pic_1213_003.png\")
<\/p>\nPublic Sub <\/span>OfficeHinzufuegenFromGuid()\r\n Dim <\/span>strGuid As String<\/span>\r\n Dim <\/span>ref As <\/span>Reference\r\n Dim <\/span>lngMajor As Long<\/span>\r\n Dim <\/span>lngMinor As Long<\/span>\r\n strGuid = \"{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}\"\r\n Set<\/span> ref = References.AddFromGuid(strGuid, lngMajor, lngMinor)\r\n Debug.Print<\/span> ref.Name, lngMajor, lngMinor\r\nEnd Sub<\/span><\/pre>\n![\"Registrierungseinträge](\"..\/fileadmin\/_temp_\/2019_06\/pic_1213_004.png\")
<\/p>\nPublic Sub <\/span>OfficeEntfernen()\r\n Dim <\/span>ref As <\/span>Reference\r\n Set<\/span> ref = References.Item(\"office\")\r\n References.Remove ref\r\nEnd Sub<\/span><\/pre>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2019_06\/pic_1213_005.png\")
<\/p>\n\n
Public Sub <\/span>VerweiseErneuern()\r\n With<\/span> References\r\n On Error Resume Next<\/span>\r\n .Remove References.Item(\"Excel\")\r\n Err.Clear\r\n .AddFromGuid \"{00020813-0000-0000-C000-000000000046}\", 0, 0\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> \"Der Verweis auf die Bibliothek 'Microsoft Excel x.0 Object Library' konnte nicht gesetzt werden.\"\r\n Err.Clear\r\n End If<\/span>\r\n .Remove References.Item(\"Outlook\")\r\n Err.Clear\r\n .AddFromGuid \"{00062FFF-0000-0000-C000-000000000046}\", 0, 0\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> \"Der Verweis auf die Bibliothek 'Microsoft Outlook x.0 Object Library' konnte nicht gesetzt werden.\"\r\n Err.Clear\r\n End If<\/span>\r\n .Remove References.Item(\"Word\")\r\n ... \r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents objReferences As <\/span>References<\/pre>\nPrivate Sub <\/span>Class_Initialize()\r\n Set<\/span> objReferences = References\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Class_Terminate()\r\n Set<\/span> objReferences = Nothing\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objReferences_ItemAdded(ByVal Reference As <\/span>Reference)\r\n MsgBox<\/span> \"Verweis '\" & Reference.FullPath & \"' hinzugefügt.\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>objReferences_ItemRemoved(ByVal Reference As <\/span>Reference)\r\n MsgBox<\/span> \"Verweis '\" & Reference.FullPath & \"' entfernt.\"\r\nEnd Sub<\/span><\/pre>\n