LISTER LES TABLES SOUS ACCESS

Signaler
Messages postés
5
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2003
-
Messages postés
3
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
23 juillet 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7299-lister-les-tables-sous-access

Messages postés
3
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
23 juillet 2007

bonjour!
je sais ca fait longtemps qu'y a pas de com sur cette source, mais, comment peut-on faire pour recuperer les propriétés de la table?? (par exemple est-ce une table liée a un autre fichier .mdb, l'adresse du dossier contenant ces fichiers .mdb... )

euh je ne suis pas du tout programmeur ni utilisateur d'acces, c'est juste pour un petit boulot (je suis en stage actuellement), merci de ne pas me disputer si j'ai dit une betise!!
Messages postés
254
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
2 avril 2010

Merci à toi super interressant : simple et concis. Bravo

Swan94
Messages postés
41
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
20 décembre 2009

Bonjour Nagua !
Super source, ca marche nickel de plus c'est simple et bien commenté 100% satisfait donc je note 10
Merci
Messages postés
3
Date d'inscription
mardi 22 juin 2010
Statut
Membre
Dernière intervention
30 novembre 2010

Je n'ai pas vu la question plutôt.

Voici comment faire pour lister les tables d'une base Access via VBA :

1ère méthode :

Sub ListerTable()
Dim obj As AccessObject
Dim dbs As Object
Dim ListeTablesCh As String
ListeTablesCh = ""
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
ListeTablesCh = ListeTablesCh & obj.Name & Chr(10) & Chr(13)
Next obj
MsgBox ListeTablesCh
End Sub

2ème méthode :

Sub ListerTable()
Dim obj As AccessObject
Dim dbs As Object
Dim ListeTablesCh As String
Dim i As Long
i = 0
ListeTablesCh = ""
Set dbs = Application.CurrentData
For i = 0 To dbs.AllTables.Count - 1
ListeTablesCh = ListeTablesCh & dbs.AllTables.Item(i).Name & Chr(10) & Chr(13)
Next i
MsgBox ListeTablesCh
End Sub
Afficher les 7 commentaires