Tabellen-Existenz prüfen (DAO) Überprüft, ob eine bestimmte Tabelle in einer Datenbank vorhanden ist.
Autor:   Jens Kruse	Bewertung:     [ Jetzt bewerten ]	Views:  18.209
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Ein entsprechender Tipp, wie man die Tabellen einer Datenbank ermittelt ist bereits bekannt:
 Tabellen einer Access-Datenbank ermitteln (DAO)

Wenn man obigen Tipp etwas verändert, lässt sich dieser auch dazu benutzen, um zu ermitteln, ob eine bestimmte Tabelle innerhalb der Datenbank existiert oder nicht.

Fügen Sie hierzu folgenden Code in ein Modul ein:

' Tabellen-Existent prüfen
Public Function dbTableExists( _
  Db As Database, _
  ByVal sName As String) As Boolean
 
  Dim oTabDef As TableDef
 
  ' Alle Tabellen durchlaufen...
  For Each oTabDef In Db.TableDefs
    If UCase$(oTabDef.Name) = UCase$(sName) Then
      dbTableExists = True
      Exit For
    End If
  Next
End Function

Die Funktion erwartet folgende zwei Paramater:

1. Db: Database-Objekt einer geöffneten Datenbank
2. sName: Tabellenname

Beispiel für den Aufruf:

' Datenbank öffnen
Dim Db As Database
Set Db = DBEngine.OpenDatabase("MyDB.mdb")
 
' Existiert die Tabelle "Adressen"?
If Not dbTableExists(Db, "Adressen") Then
  ' Nein...
  ...
End If