Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

7.6.3 Arrays

7.6.4 Benutzerdefinierte Typen

Benutzerdefinierte Typen fassen ähnlich wie Arrays Daten zusammen. Allerdings bestehen sie aus einer festen Anzahl von Elementen, die dafür aber auch verschiedene Datentypen besitzen können. Sinnvoll ist die Verwendung solcher Typen, wenn Sie bestimmte Variablen immer gemeinsam etwa beim Aufruf anderer Routinen weitergeben.

Im folgenden Beispiel werden Informationen zu einem Artikel beispielsweise zum Typ TArtikel zusammengefasst. Die Funktion TypFuellen füllt die einzelnen Elemente der Type-Variablen und gibt diese an eine andere Funktion weiter, die die enthaltenen Informationen ausliest.

Public Type TArtikel
    ArtikelNr As Long
    Artikelname As String
    Einzelpreis As Currency
End Type

Public Function TypFuellen()
    Dim typArtikel As TArtikel
    With typArtikel
        .ArtikelNr = 1
        .Artikelname = "Das Access 2003 Entwicklerbuch"
        .Einzelpreis = 49.9
    End With
    TypAusgeben typArtikel
End Function

Public Function TypAusgeben(typArtikel As TArtikel)
    With typArtikel
        Debug.Print .ArtikelNr, .Artikelname, _
            Format(.Einzelpreis, "0.00")
    End With
End Function

Listing 7.7: Beispiel für die Verwendung benutzerdefinierter Typen

Nächster Abschnitt:

7.6.5 Alle Variablen verwenden

© 2006-2008 André Minhorst Alle Rechte vorbehalten.