Aktuelles Datenbankobjekt ermittelnDie Ermittlung des aktiven Datenbankobjektes ist für mehrere Einsatzzwecke interessant - nämlich für alle, in denen etwas mit dem entsprechenden Objekt getan werden soll. Im vorliegenden Beitrag erfahren Sie, wie Sie den Objekttyp und den Objektnamen ermitteln und was Sie damit anfangen können.
Die Funktionen CurrentObjectType und CurrentObjectNameDie beiden genannten Funktionen sind bereits der Schlüssel. Sie sind Funktionen des Application-Objekts und werden beispielsweise folgendermaßen eingesetzt:
Debug.Print Application.CurrentObjectType
Debug.Print Application.CurrentObjectName
Die Funktion CurrentObjectType kann folgende Werte annehmen:  | -1: kein aktuelles Objekt
| | 0: Tabelle
| | 1: Abfrage
| | 2: Formular
| | 3: Bericht
| | 4: Makro
| | 5: Datenzugriffsseite
| | 6: VBA-Modul |
Dabei kontrolliert die Funktion zunächst, ob ein Objekt geöffnet ist. Ist das der Fall, ermittelt sie den Typ dieses Objekts. Ist kein Objekt geöffnet, wird das Datenbankfenster untersucht. Wenn auch hier kein Objekt aktiviert ist, sondern einer der Assistenten oder gar kein Eintrag, gibt die Funktion den Wert -1 zurück.
Ein wenig unkomplizierter ist die Funktion CurrentObjectName. Sie gibt einfach den Namen des aktuellen Objekts zurück und eine leere Zeichenkette, wenn kein Objekt aktiv ist. EinsatzbereicheDie Funktionen sind zum Beispiel sinnvoll, wenn man dem Datenbankfenster Kontextmenübefehle hinzufügt, die irgendetwas mit dem entsprechenden Eintrag anstellen sollen. Mit Hilfe der genannten Funktionen kann man dann zunächst einen Bezug zum aktivierten Eintrag des Datenbankfenster herstellen und dann die gewünschte Funktion darauf ausführen. |
