title image


Smiley funktioniert aber nicht richtig!
Dim tdf As TableDef, db As Database

Set db = CurrentDb

For Each tdf In db.TableDefs

If Left(tdf.Name, 4) "MSys" Then CurrentDb.Execute ("drop table " & tdf.Name & ";")

Next tdf





habe ich jetzt probiert.



Es wird dann eine einzige Tabelle gelöscht, sonst keine.



Grüße

Margit
--- Grüße Margit **schwach in Vba** Version Acess 2002

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: