Hallo,
wie formuliert man in VBA die Abfrage, ob eine Tabelle mit Namen „XXX“ vorhanden ist.
Danke für alle Tipps, Hoss !
Hallo Hoss, hier ein kleines Beispiel von Karl Donaubauer
3.4 PRÜFEN OB TABELLE VORHANDEN
P r o b l e m
Du möchtest automatisiert prüfen, ob eine bestimmte Tabelle bereits in der DB vorhanden ist.
L ö s u n g
Dafür gibt es mehrere Varianten. Man kann z.B. den Fehler abfangen, der bei Aufruf einer nicht vorhandenen Tabelle erzeugt wird. Sauberer ist aber ein Überprüfen der TableDefs-Auflistung. Dazu schreibst du in ein (möglichst Standard-) Modul:
Function TabVorhanden(Tabellenname As String) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Name = Tabellenname Then TabVorhanden = True: Exit For
Next
End Function
Aufruf dann irgendwo in der DB mit: TabVorhanden(„DeinTabellenname“)
Nochmehr solcher Schmankerl sind zu finden unter … http://www.donkarl.com/AccessFAQ.htm?/FAQ/FAQ7Bugs.htm
gruss moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]