Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

HINWEIS

Eigenschaft Beschreibung

DateCreated Erstellungsdatum

DateModified Datum der letzten Entwurfsänderung

IsLoaded Ladezustand (True/False)

Name Name des AccessObjects

Parent Verweis auf übergeordnetes Objekt

Properties Verweis auf Properties-Auflistung

Type Objekttyp (acTable, acForm etc.)

Tabelle 5.10 Einige Eigenschaften von AccessObject

Für alle Formulare einer Datenbankanwendung werden Name, Erstellungsdatum und Datum der letzten

Änderung aufgelistet.

Dim a As AccessObject

For Each a In CurrentProject.AllForms

With a

Debug.Print .Name & vbCrLf & "Erstellt am " & .DateCreated & vbTab & "Geändert am " & .DateModified

End With

Next a

Das Ergebnis im Direktfenster:

Abbildung 5.12 Beispiel zum AccessObject

Der Zugriff auf weitere Eigenschaften des DataAccess-Objekts wird im Zusammenhang mit den späteren

Beispielen zu CurrentProject und CurrentData deutlich.

CurrentProject

Dieses Hauptobjekt beinhaltet die projektspezifischen Auflistungen (AllForms, AllReports, AllModules etc.)

und Eigenschaften (Path, ProjectType, Properties etc.).

273

Die Access-Objekthierarchie

BEISPIEL

BEISPIEL

BEISPIEL

Kapitel 5: Programmieren mit Objekten

AllForms-Auflistung

In AllForms sind alle Formulare enthalten, egal ob geöffnet oder nicht. In der Forms-Auflistung des Appli-

cation-Objekts hingegen finden Sie nur die geöffneten Formulare.

Das Durchlaufen der

Forms

-Auflistung:

Dim frm As Form

For Each frm In Application.Forms

Debug.Print frm.Name, frm.Caption

Next frm

... liefert z.B. im Direktfenster die Zeile:

Formular2 Beispiel 2

Formular3 Beispiel 3

Das Durchlaufen der

AllForms

-Auflistung

Dim ao As AccessObject

For Each ao In Application.CurrentProject.AllForms

Debug.Print ao.Name, ao.IsLoaded

Next ao

liefert auch das nicht geöffnete

Formular1

:

Formular1 Falsch

Formular2 Wahr

Formular3 Wahr

Die

Caption

-Eigenschaft steht bei einem

AccessObject

nicht zur Verfügung.

Path- und BaseConnectionString-Eigenschaft

Den Objekten CurrenProject, CurrentData etc. sind nicht nur Auflistungen untergeordnet, sondern auch

noch ganz »normale« Eigenschaften wie Path- und BaseConnection. Diese sind schreibgeschützt und ermit-

teln Zeichenketten, d.h. das aktuelle Datenbankverzeichnis (Path) bzw. die Verbindungszeichenfolge (Base-

ConnectionString).

Eine Bitmap, die sich im Datenbankverzeichnis befindet, wird in ein

StatusBar-

ActiveX-Control geladen.

Dim verz As String

verz = Application.CurrentProject.Path

Statusbar1.Panels.Add , , , sbrDate, LoadPicture(verz & "\kalender.ico")

274