Dim <\/span>colKunden As <\/span>Collection<\/pre>\nDer Zugriff auf die Eigenschaften und Methoden des Objekts gelingt somit noch längst nicht – die Ausgabe der Anzahl der enthaltenen Elemente mit der Count<\/b>-Eigenschaft, die ja aktuell 0 <\/b>betragen sollte, führt gleich zu einem Fehler (siehe Bild 1). Der Grund ist einfach: Sie müssen das Collection<\/b>-Objekt erst noch instanzieren.<\/p>\n
![\"Fehler](\"..\/tl_files\/images\/pic_242_001.png\")
<\/a><\/p>\nBild 1: Fehler beim Zugriff auf ein nicht instanziertes Collection-Objekt<\/p>\n
Dies können Sie in der gleichen Zeile erledigen, welche auch das Objekt deklariert:<\/p>\n
Dim <\/span>colKunden As <\/span>New<\/span> Collection<\/pre>\nWir haben es allerdings gern etwas kontrollierter und zu dem Zeitpunkt, zu dem wir das Objekt benötigen. Daher instanzieren wir es in einer eigenen Zeile mit der New<\/b>-Anweisung und der anschließenden Zuweisung zu der dafür deklarierten Objektvariablen colKunden<\/b>:<\/p>\nDim <\/span>colKunden As <\/span>Collection\r\nSet<\/span> colKunden = New<\/span> Collection\r\nDebug.Print<\/span> colKunden.Count<\/pre>\nKeine Dimensionierung<\/h2>\n
Im Gegensatz zu einem Array, dass Sie ja entweder gleich beim Deklarieren dimensionieren oder dynamisch während des Aufbaus des Arrays mit der ReDim<\/b>-Anweisung, brauchen Sie ein Array nicht zu dimensionieren. „Dimensionieren“ bedeutet in diesen Zusammenhang, dass Sie nicht zuvor festlegen müssen, wieviele Elemente das Objekt einmal enthalten soll.<\/p>\n
Das Collection<\/b>-Objekt bietet die folgenden Methoden und Eigenschaften an:<\/p>\n\n- Add<\/b>: Fügt ein Element zur Collection <\/b>hinzu. Die Methode erwartet zumindest den Parameter Item <\/b>und somit den hinzuzufügenden Wert und bietet drei weitere optionale Paramter an: Key<\/b>, Before <\/b>und After<\/b>.<\/li>\n
- Count<\/b>: Gibt die Anzahl der aktuell im Collection<\/b>-Objekt enthaltenen Elemente aus.<\/li>\n
- Item<\/b>: Erlaubt den gezielten Zugriff auf eines der Elemente über den Index <\/b>oder über den Key<\/b>.<\/li>\n
- Remove<\/b>: Entfernt ein Element der Collection<\/b>. Das zu entfernende Objekt wird über den Parameter Item <\/b>angegeben – mehr dazu weiter unten.<\/li>\n<\/ul>\n
Einfaches Element zur Collection hinzufügen<\/h2>\n
Die einfachste Art, ein Element zu einer Collection <\/b>hinzuzufügen, ist die Angabe des Elements als ersten Parameter der Add<\/b>-Methode:<\/p>\ncolKunden.Add \"Kunde 1\"<\/pre>\nAuf diese Weise fügen Sie ein oder mehrere Elemente zur Collection <\/b>hinzu.<\/p>\nZugriff über den Index<\/h2>\n
Um die Elemente abzufragen, die Sie auf diese Weise hinzugefügt haben, greifen Sie über die Item<\/b>-Eigenschaft auf das Element mit dem entsprechenden Index zu.<\/p>\n
Der Index ist 1<\/b>-basiert, sodass Sie den mit der obigen Anweisung hinzugefügten Eintrag mit folgender Anweisung auslesen können:<\/p>\nDebug.Print<\/span> colKunden.Item(1)<\/pre>\nElement über den Index löschen<\/h2>\n
Wenn Sie das Element löschen wollen, können Sie dies ebenfalls nur mit der Kenntnis des Indexes des Elements erledigen:<\/p>\n
colKunden.Remove 1<\/pre>\nBislang haben wir nur mit Collection<\/b>-Elementen gearbeitet, die wir ohne Angabe eines Keys angelegt haben.<\/p>\n
Damit können wir ausschließlich die Funktion eindimensionaler Arrays nachbilden. Nun schauen wir uns an, wie Sie die Key<\/b>-Eigenschaft nutzen können.<\/p>\nAnlegen mit Key<\/h2>\n
Beim Anlegen eines Elements können Sie auch die Key<\/b>-Eigenschaft nutzen. Diese entspricht etwa dem Namen bei einem Name-Wert-Paar.<\/p>\n
Dies sieht etwa wie folgt aus:<\/p>\n
colKunden.Add \"André\", \"Vorname\"\r\ncolKunden.Add \"Minhorst\", \"Nachname\"<\/pre>\nWir fügen der Collection <\/b>so zwei Elemente hinzu, die unterschiedliche Keys und Werte haben.<\/p>\nAnlegen per Reihenfolge<\/h2>\n
Die beiden letzten Parameter der Add<\/b>-Methode, Before <\/b>und After<\/b>, können Sie verwenden, um Elemente vor oder hinter bestehenden Elementen einzufügen.<\/p>\n
Im folgenden Beispiel fügen wir beispielsweise erst einen Wert 1 <\/b>und dann einen Wert 2<\/b> zur Collection <\/b>hinzu. Dann sortieren wir hinter dem Element mit dem Index 1 ein weiteres Element ein:<\/p>\nDim <\/span>col As <\/span>Collection\r\nDim <\/span>var As Variant<\/span>\r\nSet<\/span> col = New<\/span> Collection\r\ncol.Add \"1\"\r\ncol.Add \"2\"\r\ncol.Add \"Zwischen 1 und 2\", , , 1\r\nFor Each var In col\r\n Debug.Print<\/span> var\r\nNext<\/span> var<\/pre>\nZugriff auf die Werte<\/h2>\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