Discussion :

[lito74]

Bonjour,
J'ai trouvé ce code dans la faq

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Delete_Table = False
 
    Set db = CurrentDb
 
    For Each tbl In db.TableDefs
        If tbl.Name = NomTable Then
            db.TableDefs.Delete (tbl.Name)
            Delete_Table = True
        Else
            Delete_Table = False
        End If
    Next tbl

Je souhaiterai supprimer toutes les tables commençant par "ZZ". Quelle est la syntaxe à mettre à la place de 'NomTable'
Merci

[pc75]

Bonjour,

Tu testes les deux premiers caractères :

Code :

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

1
2
3
4
 
...
If Left(tbl.Name, 2) = "ZZ" Then
...

[loufab]

ou encore

Code :

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

if tbl.name like "ZZ*" then