Discussion :

[jeronimo]

Je detruis une table avec TableDelete ("AB")
Comment faire pour en détruire plusieurs ?
Est-ce que l'on peut detruire toutes les tables començant par AB avec un signe générique comme * ?

Merci

[Tofalu]

Non, tu dois utiliser une boucle à priori

[jeronimo]

c'est quoi une boucle (je m'excuse mais je débute)

[Petogaz]

salut,

avec la méthode DAO tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
dim tbl as DAO.tableDef
dim db as DAO.database
set db = currentdb()
 
for each tbl in db.tabledefs
 
if lef(tbl.name,2)="AB" then
 
Docmd.RunSQL "Drop table "& tbl.name &";"
 
next tbl
msgbox "c'est fini !"

ou si tu veux tu fais appel à ta fonction Tabledelete dans ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
dim tbl as DAO.tableDef
dim db as DAO.database
set db = currentdb()
 
for each tbl in db.tabledefs
 
if lef(tbl.name,2)="AB" then
 
TableDelete(tbl.name)
 
next tbl
msgbox "c'est fini !"

ps : ne pas oublier les références DAO!

[jeronimo]

merci beaucoup, j'essaye