Prüfen ob eine Tabelle vorhanden ist

So kriegt man per VBA raus, ob eine Tabelle vorhanden ist:

Function tableExists(meineTab As String) As Boolean
On Error GoTo Fehlerbehandlung
Dim tdf As DAO.TableDef

Set tdf = CurrentDb.TableDefs(meineTab)
tableExists = True
Exit Function
Fehlerbehandlung:
tableExists = False
End Function