title image


Smiley TIPP: Alle Tabellen mit bestimmtem Namen in Access löschen


Dim DB as DAO.Database, Tbl as DAO.Tabledef, Done As Boolean

Set DB = Currentdb

Do Until Done

Done = True

For each tbl in db.Tabledefs

If Instr(tbl.name,"ImportErr") > 0 then

Done = False

DB.Execute "DROP Table [" & Tbl.name & "]"

end if

Next tbl

db.Tabledefs.refresh

loop



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: