title image


Smiley Re: Tabelle existent?
Hallo Thomas,Ich habe für solche Fälle eine selbstgeschriebene Funktion.Vieleicht hilft diese Dir ja auch weiter.Function IfTabExists(TabName As String) As BooleanDim db As DatabaseDim tds As TableDefsDim td As TableDef IfTabExists = True On Error GoTo IfTabExists_Err Set db = Application.CurrentDb Set tds = db.TableDefs Set td = tds(TabName) Exit Function IfTabExists_Err: IfTabExists = False If Err.Number 3265 Then Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext End If End FunctionGrüße Kurt

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: