title image


Smiley Re: Überprüfung ob Tabelle schon vorhanden
Hi,ich habe da einen Lösungsvorschlag für Dich:Function ObjectExist(strObject As String) As Boolean Dim DB As Database Dim tbl As TableDef Dim strObjectType As String Dim i As Integer strObjectType = "Tabelle" Set DB = CurrentDb() ObjectExist = False If strObjectType = "Tabelle" Then For Each tbl In DB.TableDefs If tbl.Name = strObject Then ObjectExist = True Set DB = Nothing Exit Function End If Next tbl Else MsgBox "Die Tabelle existiert noch nicht !!!" End If End FunctionMFG aus SeesenMartino

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: