Discussion :

[leonweb73]

Bonjour, n'ayant pas trouver de réponse sur les forums ou google, je pose la question sur le forum.
Est-il possible sous Access 2000 de supprimer un lot de table dont le nom commence par "toto" et dont la suite du nom n'est pas la même sur toutes les tables ?
Ex : toto001, toto002, toto00A etc.

Merci d'avance.

[Jean-Philippe André]

salut,

on peut faire ca en VBA éventuellement :

Code :

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

1
2
3
4
5
6
Dim tmptbl As TableDef
For Each tmptbl In CurrentDb.TableDefs
If Left(tmptbl.Name,4) = "toto" Then
currentdb.TableDefs.Delete tmptbl.Name
End if
Next

[leonweb73]

Bonjour jpcheck, merci beaucoup pour la réponse.
Par contre je ne suis pas du tout caler pour utiliser le VBA.
J'ai essayé de mettre le code dans un "module" de Access mais j'ai le message : "Erreur de compilation : type défini par l'utilisateur non défini" dès la première ligne.

Le code complet est :

Code :

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

1
2
3
4
5
6
7
8
Sub suppression_table()
Dim tmptbl As TableDef
For Each tmptbl In CurrentDb.TableDefs
If Left(tmptbl.Name, 14) = "ANALYSESIMPLE_" Then
CurrentDb.TableDefs.Delete tmptbl.Name
End If
Next
End Sub

[Jean-Philippe André]

D'accord, il est probable qu'il faille une référence pour DAO
Ajoute dans Outils>Références Microsoft DAO 3.X Object Library

et modifie de le code de telle façon à obtenir

Code :

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

Dim tmptbl As DAO.TableDef

à la place de

Code :

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

Dim tmptbl As TableDef

[leonweb73]

MERCI BEAUCOUP.
Ça fonctionne bien.

Bonne journée

Leonweb73