Vorhandensein einer Tabelle prüfen

[m.sandler]

Hallo

Ich habe wieder einmal ein Problem.
Bei meiner Datenbank möchte ich prüfen, ob eine bestimmte Tabelle vorhanden ist. Kann ich das VBA-Programmiertechnisch lösen?

ich habe das zwar über eine Funktion gelöst, bin aber damit nicht ganz glücklich.... siehe code

Sub tableExists()
On Error GoTo Fehlerbehandlung

Set td = CurrentDb.TableDefs("Möbelauswertung$_Importfehler ")
FEHLERstg = 1
Exit Sub
Fehlerbehandlung:
FEHLERstg = 0
End Sub

Gibts vielleicht eine bessere Lösung, die einfacher und effizienter ist, und die auch funktioniert, wenn sich der Name ändert ... zb. Kann wie kann ich nur nach Möbelauswertung$_* suchen?

danke

[O. Helper]

Hallo m.sandler,

kannst mittels eines SELECTs auf die (versteckte) System-Tabelle "MSysObjects"

[highlight=SQL]SELECT *
FROM MSysObjects
WHERE Flags = 0
AND id > 0
AND type = 1
AND name LIKE 'Möbel*'[/highlight]