title image


Smiley Re: Überprüfung ob Tabelle schon vorhanden
Es geht zum Beispiel mit folgender Funktion:>Function TestTabelle(ByVal strName As String) As Boolean> Dim dbAktuell As DATABASE> Dim tdfIndex As TableDef> Dim blnResult As Boolean> > blnResult = False> Set dbAktuell = CurrentDb> For Each tdfIndex In dbAktuell.TableDefs> If tdfIndex.Name = strName Then> blnResult = True> Exit For> End If> Next> TestTabelle = blnResult>End FunctionEinrückungen bitte manuell wieder einrichten. Alle Leerzeichen für strukturierte Programmierung werden wohl gefiltert.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: