title image


Smiley Probiers mal mit...
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
Ch. Bielmeier
aus Ludwigsburg
-MSAccess97/2000
-HTML/CSS
-C++
-PHP
-MySQL
-JS (Anfänger)
-VB6.0
-Visual Studio Express 2005 (Anfänger)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: