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!

17.4 Mit Modulen arbeiten

17.4.1 Auflisten aller enthaltenen Module

Einen Überblick über die Module eines Projekts bietet zum Beispiel die Möglichkeit, das gewünschte Modul in der VBA-Entwicklungsumgebung anzuzeigen oder zu löschen. Die folgende Prozedur gibt eine Liste aller Module mit Modulnamen und Typ des aktuellen Projekts im Testfenster aus (siehe Abbildung 17.7). Dazu ermittelt sie zunächst die Anzahl der Module über die Count-Eigenschaft der Auflistung VBComponents für das betreffende Projekt. In einer For Next-Schleife durchläuft die Prozedur dann alle Elemente der Auflistung und ermittelt den Namen und den Typ des Moduls. Letzterer wird durch einen der jeweiligen Konstanten entsprechenden Text repräsentiert.

Public Sub ListAllModules()

    Dim i As Integer
    Dim intVBComponentsCount As Integer
    Dim objVBComponent As VBComponent
    Dim strModulename As String
    Dim strModuletype As String

     intVBComponentsCount = VBE.ActiveVBProject.VBComponents.Count

    For i = 1 To intVBComponentsCount

        Set objVBComponent = VBE.ActiveVBProject.VBComponents.Item(i)

        strModulename = objVBComponent.Name

        Select Case objVBComponent.Type
            Case vbext_ct_StdModule
                strModuletype = "Standardmodul"
            Case vbext_ct_ClassModule
                strModuletype = "Klassenmodul"
            Case vbext_ct_Document
                strModuletype = "Formular- oder Berichtsmodul"
            Case vbext_ct_MSForm
                strModuletype = "MSForms Userform-Modul"
        End Select

        Debug.Print strModulename, strModuletype

    Next i

    Set objVBComponent = Nothing

End Sub

Listing 17.2: Prozedur zur Ausgabe aller Module eines Projekts

Abbildung 17.7: Ausgabe aller Module im Testfenster

Nächster Abschnitt:

17.4.2 Anlegen eines neuen Moduls

© 2006-2008 André Minhorst Alle Rechte vorbehalten.