Liste détaillée des containers d’une base Access
Dans l’article précédent (Liste des containers d’une base Access), on a vu comment obtenir les noms de tous les containers fournis par une base de données Access. Cette fois, on creuse un peu, en affichant la liste de ces containers, et des documents qu’ils répertorient.
Résumé des épisodes précédents
Le code
Recopiez le code qui suit dans un module standard de votre base de données.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
' --- ' LISTE DETAILLEE DES CONTAINERS ACCESS ' --- Sub ListeContainersDetaillee() Dim db As DAO.Database, container As DAO.container Set db = CurrentDb For Each container In db.Containers Debug.Print container.Name ListeDocuments container Next Set db = Nothing End Sub ' --- ' LISTE DES DOCUMENTS D'UN CONTAINER ' --- Sub ListeDocuments(container As DAO.container) Dim doc As DAO.Document For Each doc In container.Documents ' On exclut les documents temporaires ' (démarrant par ~) If Left(doc.Name, 1) <> "~" Then Debug.Print "- " & doc.Name End If Next End Sub |
Tester le code
- Faites apparaître la fenêtre Exécution (
Ctrl+G). C’est là que vont s’afficher toutes les informations. - Cliquez quelque part dans la première procédure (entre
SubetEnd Sub). - Cliquez sur l’icône Exécuter Sub/UserForm. Vous devriez obtenir quelque chose comme ça :
Oui mais…
Il reste quelques petits problèmes : pour l’instant, l’affichage est brut, dans la fenêtre Exécution. Bien pour tester, mais pas pratique à exploiter. Et si vous avez beaucoup d’objets dans votre base, la fenêtre Exécution ne mémorise pas assez de lignes pour les voir tous. Bah, ça veut dire qu’il va falloir une suite à cet article ! 🙂
