Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

Module-Eigenschaft

Ein Module-Objekt kann selbst wiederum als Eigenschaft von Berichten und Formularen auftreten, wo sie

auf das zugeordnete Formular- bzw. Berichtsmodul verweist.

Die

Beep

-Methode wird im

Open

-Event von

Formular1

eingefügt.

Dim mdl As Module

Set mdl = Forms!Formular1.Module

mdl.InsertText "Sub Form_Open(Cancel As Integer)" & vbCrLf & "Beep" & vbCrLf & "End Sub"

Reference-Objekt und References-Auflistung

Ein Reference-Objekt ist nichts anderes als ein Verweis auf eine Datei, die eine Klassenbibliothek enthält.

Mögliche Dateitypen sind der folgenden Tabelle zu entnehmen. Die References-Auflistung umfasst alle Ver-

weise der Anwendung.

Datei-Extension Typ der Klassenbibliothek

.olb, .tlb Klassenbibliothek

.mdb, .accdb, .mda, .mde Datenbank

.exe, .dll Ausführbare Datei

.ocx ActiveX-Steuerelement

Tabelle 5.5 Dateierweiterungen für Klassenbibliotheken

Eigenschaft Read-only Erklärung

BuiltIn X Gibt an, ob Standardverweis vorliegt (True), der nicht gelöscht werden kann

Collection X Liefert einen Verweis auf eine Auflistung, zu der Objekt gehört (vergleichbar mit

Parent-Eigenschaft)

FullPath X Liefert den Pfad und den Dateinamen der Klassenbibliothek

GUID X Liefert eine globale eindeutige Kennung für Windows-Registrierung

IsBroken X Das Objekt zeigt auf gültigen Verweis in Windows-Registrierung (True)

Kind X Liefert die Art des Verweises: Project = Visual Basic Projekt (1) TypeLib = Datei

Major X Liefert den links vom Punkt stehenden Teil der Versionsnummer der Anwendung,

auf welche der Verweis zeigt (Long)

Minor X Liefert den rechts vom Punkt stehenden Teil der Versionsnummer der Anwendung,

auf welche der Verweis zeigt (Long)

Name X Liefert den Namen des Reference-Objekts (String)

Tabelle 5.6 Eigenschaften des Reference-Objekts

261

Auflistungen

BEISPIEL

HINWEIS

BEISPIEL

Kapitel 5: Programmieren mit Objekten

Für jedes

Reference

-Objekt der

References

-Auflistung werden im Testfenster die Werte der Eigenschaften

Name

,

FullPath

,

GUID

,

Major

und

Minor

ausgegeben:

Sub eigenschaftenAnzeigen()

Dim ref As Reference

For Each ref In References

If ref.IsBroken = False Then

Debug.Print "Name: ", ref.Name

Debug.Print "FullPath: ", ref.FullPath

Debug.Print "Version: ", ref.Major & "." & ref.Minor

Else

Debug.Print "Verweis ist ungültig: ", ref.GUID

End If

Next ref

End Sub

Die Eigenschaften der References-Auflistung beschränken sich auf die standardmäßig bei jeder Auflistung

vorhandenen (Count, Parent).

Die Objekte innerhalb der References-Auflistung sind beginnend ab 1 indiziert!

Methode Erklärung

AddFromFile (Dateiname) Erstellt Verweis auf eine Klassenbibliothek

AddFromGUID (guid) Erstellt ein Reference-Objekt basierend auf GUID (Windows-Registrierung)

RemoveReferenz Entfernt einen Verweis aus der Auflistung

Tabelle 5.7 Methoden der References-Auflistung

Der Verweis auf die Kalender-ActiveX-Komponente wird entfernt.

Dim ref As Reference

Set ref = References!MSACAL

References.Remove ref

Ereignis Erklärung

ItemAdded Tritt ein, wenn per Code ein Verweis hinzugefügt wurde

ItemRemoved Tritt ein, wenn per Code ein Verweis entfernt wurde

Tabelle 5.8 Ereignisse der References-Auflistung

262