Arrays in Variant-Variablen speichern

30.12.2003

Variablen des Typs Variant können alle beliebigen Standarddatentypen ersetzen.

Seit Access 7.0 ist es sogar möglich, ein Array innerhalb einer Variant-Variablen zu speichern.

Um mehrere einzelne Ausdrücke einer Variant-Variablen in Form eines Arrays zuzuweisen, verwenden Sie einfach die Array-Funktion.

Der Array-Funktion können beliebig viele Parameter unterschiedlichen Datentyps übergeben werden. Das Ergebnis ist ein sogenanntes Variant-Array, das einer Variant-Variablen zugewiesen werden kann.

Das folgende Beispiel definiert ein solches Variant-Array mit insgesamt 5 Elementen:

Sub VariantTest()

    Dim VarArray As Variant
    Dim Element As Variant

    VarArray = Array(1, "Text", #1/30/01#, 1.6, 1000000)
    
    For Each Element In VarArray
        Debug.Print Element 
    Next Element

End Sub

Die einzelnen Elemente werden mittels einer For Each-Schleife im Testfenster ausgegeben. Als Alternativ kann auch eine herkömmliche For-Next-Schleife zum Einsatz kommen:

Sub VariantTest2()

    Dim VarArray As Variant 
    Dim i As Integer

    VarArray = Array(1, "Text", #1/30/01#, 1.6, 1000000) 
    For i = LBound(VarArray) To UBound(VarArray)
        Debug.Print VarArray(i) 
    Next i

End Sub

Der große Vorteil von Variant-Arrays gegenüber normalen Arrays besteht darin, dass Sie Elemente mit unterschiedlichen Datentyypen aufnehmen können. Außerdem ist keine Pflege der Array-Grenzen beim Hinzufügen oder Löschen von Elementen erforderlich.

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.