<Retour Grenier>

Début de page Question

Comment faire pour lister toutes les tables d'une base de données ?

Pour utiliser ce qui suit, vous avez besoin de savoir taper du code Visual Basic dans un module Access, compiler du code, et exécuter du code.

 

Début de page Réponse

Tapez le code suivant dans un module quelconque :

Function ListeTables()
Dim db As Database, tdf As TableDef

Set db = CurrentDb
For Each tdf In db.TableDefs
	Debug.Print tdf.Name
Next tdf
Set db = Nothing
End Function

Pour tester, ouvrez la fenêtre de debugging, et tapez-y :
? ListeTables() puis [ENTREE].