Prüft, ob ein Objekt vorhanden ist

Sprache / Programm: Access ab Version 97

Beschreibung

Die Funktion prüft, ob ein Datenbank-Objekt vorhanden ist.

VBA-Quelltext

' Prüft, ob ein Objekt vorhanden ist
Public Function ObjektVorhanden(ObjektTyp As String, ObjektName As String) As Boolean
Dim Nr As Integer
ObjektVorhanden = True
' Objekte der Reihe nach abfragen und Namen hinzufügen
For Nr = 0 To CurrentDb.Containers(ObjektTyp).Documents.Count - 1
If CurrentDb.Containers(ObjektTyp).Documents(Nr).NAme = ObjektName Then Exit Function
Next Nr
ObjektVorhanden = False
End Function

Argumente der Funktion/Prozedur

Objekt

Text der die zurückgegebenen Objekte mit von Access festgelegten Begriffen beschreibt, z.B.

Begriff	Objekt
"Tables"	gibt Tabellen, Systemtabellen und Abfragen zurück, langsame Ausführung
"Forms"	Formulare
"Reports"	Berichte
"Scripts"	Makros
"Modules"	Module

Rückgabewert

True oder False.

Hinweis

Die Funktion kann die Existenz verschiedener Objekte überprüfen