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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.