Wie kann ich auf geöffnete Formulare und Berichte zugreifen? Wie kann ich feststellen, welches Formular oder welcher Bericht aktiv ist?

SubAktiveObjekte()
  Dim frm As Form, ctlAs Control
  ' Form-Objekt zurückgeben, das auf das aktive Formular zeigt.
  Set frm= Screen.ActiveForm
  ' Control-Objekt zurückgeben, das auf das aktive Steuerelement zeigt.
  Set ctl= Screen.ActiveControl
  MsgBoxctl.Name & " ist das aktive Steuerelement " _
     " im aktiven Formular namens " & frm.Name& "."
End Sub

Die Auflistung Forms enthält alle geöffneten Formulare. Forms(0) gibt beispielsweise einen Zeiger auf das als erstes geöffnete Formular zurück.

Die Auflistung Reports enthält alle geöffneten Berichte. Reports(0) gibt beispielsweise einen Zeiger auf den als ersten geöffneten Bericht zurück.

Sowohl Form-Objekt als auch Report-Objekt enthalten die Auflistung Controls, die die Steuerelemente enthält.

Die Auflistung Modules enthält alle geöffneten Module. Modules(0) gibt beispielsweise einen Zeiger auf das als erstes geöffnete Modul zurück.

Application enthält außerdem das Objekt Screen. Die wichtigsten Eigenschaften von Screen sind:

• ActiveForm: Verweis auf das aktive Formular

• ActiveControl: Verweis auf das aktive Steuerelement

• PreviousControl: Verweis auf das vorherige Steuerelement

• ActiveReport: Verweis auf den aktiven Bericht

• MousePointer: Form des Mauszeigers (0: Automatisch, 1: Pfeil, 3: I-Balken, 7: Vertikaler Doppelpfeil, 9: Horizontaler Doppelpfeil, 11: Sanduhr)

• ActiveDataSheet: Verweis auf das aktive Datenblatt

Über das Objekt DoCmd können Sie auf Makro-Aktionen zurückgreifen.

Ist bei der Verwendung von ActiveForm, ActiveControl, PreviousControl und ActiveReport kein Formular/Steuerelement/Bericht aktiv bzw. gibt es kein vorheriges Steuerelement, verweisen diese Eigenschaften auf Null.