For Each Table...

[Ragnar78]

Hy,

How can i use the FOR EACH to remove all the tables i have...

For Each Table in ...

If Table.name <> "indexes" the
Table.delete
End if

Next

indexes is the only table i dont want to remove, but i dont know what collection to call to set Table in...
Tx for the help

 

[Norie]

Try

dim db
dim tb

set db = CurrentDb

for each tb in db.TableDefs

If tb.Name <> "indexes" then

db.TableDefs.delete tb.name

End If

next

 

[mdmilner]

Don't forget about the system tables you're about to delete as it works through the full table list. A few of the selections would be:

MSysACEs
MSysObjects
MSysQueries
MSysRelationships

One method is to exclude tablenames from deletion that matched the MSys pattern for the first 4 characters of the name.

dim db 
dim tb 

set db = CurrentDb 

for each tb in db.TableDefs
  If tb.Name <> "indexes" then
    If Left(tb.Name,4) <> "MSys" Then
      db.TableDefs.delete tb.name
    End If
  End If 
next

Mike

 

[Ragnar78]

Thanks alot, you're right, i was checking for table names and i found those...you're totaly correct...

Tx for both and good luck