![\"Verweis](\"..\/tl_files\/images\/pic_441_001.png\")
<\/a><\/p>\nBild 1: Verweis auf die Bibliothek Microsoft Scripting Runtime<\/p>\n
Dim <\/span>objDictionary As <\/span>Dictionary\r\nSet<\/span> objDictionary = New<\/span> Dictionary<\/pre>\nWenn Sie aus irgendwelchen Gründen keinen Verweis setzen wollen, können Sie auch mit Late Binding arbeiten. In diesem Fall verwenden Sie die folgenden Anweisungen statt der oben verwendeten:<\/p>\n
Dim <\/span>objDictionary As Object<\/span>\r\nSet<\/span> objDictionary = CreateObject(\"Scripting.Dictionary\")<\/pre>\nDas Dictionary-Objekt<\/h2>\n
Das Dictionary<\/b>-Objekt enthält die folgenden Elemente:<\/p>\n\n- Add<\/b>: Fügt ein neues Element hinzu. Erwartet den Schlüssel und den Wert für das neue Element als Parameter.<\/li>\n
- CompareMode<\/b>: Modus für das Vergleichen der Schlüsselwerte. Es gibt die Werte vbTextCompare <\/b>(unterscheidet nicht zwischen Groß- und Kleinschreibung) und vbBinaryCompare <\/b>(unterscheidet zwischen Groß- und Kleinschreibung).<\/li>\n
- Count<\/b>: Liefert die Anzahl der Einträge im Dictionary<\/b>-Objekt.<\/li>\n
- Exists<\/b>: Prüft, ob das Element mit dem angegebenen Schlüssel existiert.<\/li>\n
- Item<\/b>: Erlaubt den Zugriff über den Schlüssel des jeweiligen Elements.<\/li>\n
- Items<\/b>: Auflistung aller Werte, die über den Index angesteuert werden kann.<\/li>\n
- Key<\/b>: Dient zum Zuweisen eines neuen Schlüssels für ein vorhandenes Element.<\/li>\n
- Keys<\/b>: Auflistung aller Schlüssel, die über den Index angesteuert werden kann.<\/li>\n
- Remove<\/b>: Entfernt den Eintrag mit dem angegebenen Schlüssel aus dem Dictionary<\/b>-Objekt.<\/li>\n
- RemoveAll<\/b>: Entfernt alle Einträge aus dem Dictionary<\/b>-Objekt.<\/li>\n<\/ul>\n
Erstellen und Füllen eines Dictionary-Objekts<\/h2>\n
Zum Hinzufügen eines Eintrags zu einem Dictionary<\/b>-Objekts verwenden Sie standardmäßig die Add<\/b>-Methode. Diese gibt über die zur Verfügung stehenden Parameter, die Sie nach Eingabe der Add<\/b>-Methode etwa per IntelliSense einsehen können, die Struktur eines Eintrags vor (siehe Bild 2).<\/p>\n
![\"Nutzen](\"..\/tl_files\/images\/pic_441_002.png\")
<\/a><\/p>\nBild 2: Nutzen von IntelliSense mit dem Dictionary-Objekt<\/p>\n
Dieser enthält also ein Key<\/b>– und ein Item<\/b>-Element. Für Key <\/b>geben Sie einen Namen oder einen Wert an, über den Sie den Eintrag später referenzieren wollen.<\/p>\n
Wenn Sie also etwa eine Reihe von Informationen über einen Benutzer in einem Dictionary<\/b>-Objekt speichern wollen, beginnen Sie mit dem Key <\/b>mit der Bezeichnung Vorname <\/b>und weisen dem Element mit diesem Key <\/b>den entsprechenden Wert zu, beispielsweise André<\/b>:<\/p>\nDim <\/span>objDictionary As <\/span>Dictionary\r\nSet<\/span> objDictionary = New<\/span> Dictionary\r\nWith<\/span> objDictionary\r\n .Add \"Vorname\", \"André\"\r\nEnd With<\/span><\/pre>\nöffentliches Dictionary-Objekt deklarieren<\/h2>\n
Damit wir mit dem Dictionary, dessen Daten gegebenenfalls für die komplette Sitzung mit der Access-Anwendung zur Verfügung stehen sollen, experimentieren können, deklarieren wir es außerhalb einer Prozedur in einem Standardmodul als öffentliche Variable:<\/p>\n
Public <\/span>objDictionary As <\/span>Dictionary<\/pre>\nDann erstellen wir eine Instanz der Dictionary<\/b>-Klasse und weisen diese unserer Objektvariablen zu:<\/p>\nSet<\/span> objDictionary = New<\/span> Dictionary<\/pre>\nDies können Sie in einer Prozedur erledigen, aber auch etwa über den Direktbereich des VBA-Editors.<\/p>\n
Eintrag hinzufügen mit der Add-Methode<\/h2>\n
Danach fügen wir dort den ersten Eintrag hinzu:<\/p>\n
objDictionary.Add \"Vorname\", \"André\"<\/pre>\nDamit können wir nun schon einmal die Count<\/b>-Eigenschaft nutzen, um die Anzahl der Elemente zu ermitteln – ebenfalls im Direktbereich:<\/p>\nDebug.Print<\/span> objDictionary.Count\r\n 1 <\/pre>\nWir fügen ein weiteres Element hinzu:<\/p>\n
objDictionary.Add „Nachname“, „Minhorst“<\/p>\n
Danach liefert Count <\/b>logischerweise diesen Wert:<\/p>\nDebug.Print<\/span> objDictionary.Count\r\n 2 <\/pre>\nWenn wir allerdings versuchen, ein Element zum Dictionary<\/b>-Objekt hinzuzufügen, dessen Schlüssel bereits vorhanden ist, löst dies den Fehler mit der Nummer 457 <\/b>aus (Dieser Schlüssel ist bereits einem Wert dieser Auflistung zugeordnet.<\/b>). Auch dies können wir leicht umgehen, indem wir zuvor mit der Exists<\/b>-Funktion prüfen, ob das entsprechende Element bereits vorhanden ist:<\/p>\nPublic Sub <\/span>ElementNurHinzufuegenWennNochNichtVorhanden()\r\n If <\/span>Not<\/span> objDictionary.Exists(\"Vorname\") Then<\/span>\r\n objDictionary.Add \"Vorname\", \"Klaus\"\r\n Else<\/span>\r\n MsgBox<\/span> \"Element 'Vorname' bereits vorhanden.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAuf Elemente per Key zugreifen<\/h2>\n
Wie greifen wir nun auf die einzelnen Elemente des Dictionary<\/b>-Elements zu Dazu verwenden wir beispielsweise die Item<\/b>-Eigenschaft:<\/p>\n objDictionary.Item(\"Vorname\")\r\nAndré\r\n objDictionary.Item(\"Nachname\")\r\nMinhorst<\/pre>\nAnderen Wert zuweisen<\/h2>\n
Wenn Sie den Wert eines Dictionary<\/b>-Eintrags mit einem bestimmten Schlüssel ändern wollen, referenzieren Sie das Element über den Schlüssel als Parameter der Eigenschaft Item <\/b>und weisen diesem dann den neuen Wert zu:<\/p>\nobjDictionary.Item(\"Vorname\") = \"Andreas\"<\/pre>\nDanach ist der Wert geändert:<\/p>\n
objDictionary.Item(\"Vorname\")\r\nAndreas<\/pre>\nWas aber geschieht, wenn wir einen Wert zu einem Element zuweisen wollen, das noch gar nicht existiert – wie in folgendem Beispiel<\/p>\n
objDictionary.Item(\"Strasse\") = \"Borkhofer Str. 17\"<\/pre>\nDann wird automatisch ein neuer Eintrag mit dem angegebenen Schlüssel angelegt und diesem der nachfolgende Wert zugewiesen. Das können Sie leicht an der Anzahl der Einträge prüfen:<\/p>\n
Debug.Print<\/span> objDictionary.Count\r\n 3 <\/pre>\nElemente des Dictionary-Objekts durchlaufen<\/h2>\n
Können wir die Elemente des Dictionary<\/b>-Elements auch per Schleife durchlaufen Wir probieren es zunächst mit einer einfachen For Next<\/b>-Schleife über den Index-Wert, wobei wir 1 <\/b>als untersten Wert annehmen und den obersten Wert mit der Count<\/b>-Eigenschaft von objDictionary <\/b>ermitteln:<\/p>\nPublic Sub <\/span>DictionaryDurchlaufen()\r\n Dim <\/span>i As Integer<\/span>\r\n For i = 1 To objDictionary.Count\r\n With<\/span> objDictionary\r\n Debug.Print<\/span> .Item(i)\r\n End With<\/span>\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t