Eine Sub-Prozedur führt unter VBA eine Aktion durch, eine Funktion möglicherweise auch, doch wichtiger ist in der Regel das berechnete Ergebnis, welches sie dem Aufruf zurückgibt. Fast immer handelt es sich dabei um einen bestimmten gesuchten Wert. Gelegentlich erwartet die aufrufende Prozedur aber auch eine Menge von Rückgabedaten. Hier kommen Arrays ins Spiel.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1508_Array.accdb<\/b>.<\/p>\nMultiple Ergebnisse<\/h2>\n
Gerade in der Datenbankprogrammierung ist die Rückgabe von Ergebnissen, die mehr, als einen Wert enthalten, trivial. Nur kommen hier zur Auswertung gewöhnlich Datenbankobjekte zum Einsatz, deren Hauptprotagonist das Recordset<\/b> ist.<\/p>\n
So gibt die Methode OpenRecordset<\/b> von DAO<\/b> nicht nur eine Serie von Daten zurück, sondern sogar eine zweidimensionale: in der einen Dimension die Spalten, also Felder, eines Datensatzes, in der anderen die Datensätze selbst.<\/p>\n
An die Zellen dieser zweidimensionalen Wertemenge gelangt man dann über spezielle Methoden des Objekts, statt über Indizes, wie das bei Arrays der Fall ist. Auf der einen Seite ist dies praktisch, auf der anderen Seite verlangt es mehr Programmierung.<\/p>\n
Hierzu ein Beispiel. Sie möchten den Wert der Zelle einer Adressentabelle ermitteln, sei es etwa die dritte Spalte des vierzehnten Datensatzes. Unter Excel<\/b> könnte das Arbeitsblatt nun tatsächlich über Koordinaten abgefragt werden:<\/p>\n Bei einem Recordset ist das nicht direkt möglich. Hier sähe die Routine so aus:<\/p>\n Hier haben wir eine Zeile mehr Code und die übersicht ist geringer, weil die Koordinaten auf unterschiedliche Zeilen aufgeteilt sind.<\/p>\n Befänden sich alle Adressdaten in einem Array, so könnte über zwei Indizes auf die Zelle zugegriffen werden. Immerhin hält DAO<\/b> dafür eine eigene Methode bereit:<\/p>\n GetRows<\/b> verwandelt nämlich die Datensätze eines Recordsets in ein zweidimensionales Array, wobei dieses als Variant deklariert sein muss und die einzelnen Elemente darin ebenfalls diesen Datentyp aufweisen.<\/p>\n Wollten Sie dieses Array als Ergebnis einer Funktion zurückgeben, dann käme diese Routine infrage:<\/p>\n Aber schauen wir uns den Umgang mit Arrays in Funktionen einmal etwas genereller an.<\/p>\n Es muss nicht eine Funktion sein, wenn ein Array in einer Sub-Prozedur mit Werten gefüllt werden soll. Sie können ein Array der Prozedur auch als Argument übergeben. Die folgende Routine vollzieht das:<\/p>\n Für den Aufruf der Prozedur könnte man dies schreiben:<\/p>\n Die Prozedur nimmt als Parameter die Zahl an Elementen in der Variablen cnt<\/b> entgegen und dimensioniert das Array arr<\/b> dann entsprechend, um es schließlich in einer Schleife mit Werten zu besetzen. Die Auswertung des so erhaltenen Arrays erfolgte ebenfalls in einer Schleife:<\/p>\n Das erstaunliche an der Sache ist, dass in der aufrufenden Prozedur das Array gar nicht als solches deklariert wurde, sondern als Variant<\/b>. Der Datentyp der Variablen arr<\/b> steht zu diesem Zeitpunkt also noch gar nicht fest.<\/p>\n Dennoch lässt sich die Redim-Anweisung <\/b>auf den Variant anwenden, wodurch VBA ihn automatisch zu einem Array macht, dessen Elemente ebenfalls vom Typ Variant sind. Deshalb kann in der Folge die Funktion UBound<\/b> zum Ermitteln der Grenzen des Arrays angewandt werden.<\/p>\n In dieser Version ist die vorherige Deklaration einer Variablen, die der Prozedur übergeben wird, zwingend. Anders sieht der Fall aus, wenn, wie in Listing 1, eine Funktion fuArray<\/b> zum Einsatz kommt, die als Rückgabe direkt ein Array herausrückt.<\/p>\n Listing 1: String-Array als Ergebnis einer Funktion fuArray<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Debug.Print<\/span> WorkSheet.Cells(13,2)<\/pre>\nSet<\/span> rs = CurrentDb. _\r\n OpenRecordset(\"tblAdressen\")\r\nrs.Move 13\r\nDebug.Print<\/span> rs(2).Value<\/pre>\nSet<\/span> rs = CurrentDb. _\r\n OpenRecordset(\"tblAdressen\")\r\nV = rs.GetRows\r\nDebug.Print<\/span> V(2,13)<\/pre>\nFunction <\/span>TabellenArray() As Variant<\/span>\r\n Dim <\/span>rs As <\/span>DAO.Recordset\r\n Set<\/span> rs = CurrentDb. _\r\n OpenRecordset(\"tblAdressen\")\r\n TabellenArray = rs.GetRows\r\nEnd Function<\/span><\/pre>\nArray mit Elementen füllen<\/h2>\n
Sub <\/span>FillArray(cnt As Long<\/span>, _\r\n arr As Variant<\/span>)\r\n Dim <\/span>i As Long<\/span>\r\n ReDim arr(cnt)\r\n For i = 0 To cnt\r\n arr(i) = \"Element \" & i\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nDim <\/span>arr As Variant<\/span>\r\nFillArray 4, arr<\/pre>\nFor i = 0 To UBound<\/span>(arr)\r\n Debug.Print<\/span> arr(i)\r\nNext<\/span> i<\/pre>\nSub <\/span>Test()\r\n Dim <\/span>arr As Variant<\/span>\r\n arr = fuArray(4)\r\n For i = 0 To UBound<\/span>(arr)\r\n Debug.Print<\/span> arr(i)\r\n Next<\/span> i \r\nEnd Sub<\/span>\r\nFunction <\/span>fuArray(cnt As Long<\/span>) As String<\/span>()\r\n Dim <\/span>i As Long<\/span>\r\n Dim <\/span>arr() As String<\/span>\r\n \r\n ReDim arr(cnt)\r\n For i = 0 To cnt\r\n arr(i) = \"Element \" & i\r\n Next<\/span> i\r\n fuArray = arr\r\nEnd Function<\/span><\/pre>\n
\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