Récupérer nom tables access après code VBA [Résolu/Fermé]

Messages postés
2
Date d'inscription
lundi 5 décembre 2016
Statut
Membre
Dernière intervention
6 décembre 2016
- - Dernière réponse : flo017
Messages postés
2
Date d'inscription
lundi 5 décembre 2016
Statut
Membre
Dernière intervention
6 décembre 2016
- 6 déc. 2016 à 09:25
Bonjour,

Je fais du access basique et je suis nul en VBA. Je souhaite récupérer le nom de toutes mes tables dans ma base Access sur un tableau
Toutes les requêtes font la même chose , afficher et lister les tables mais je ne sais pas où récupérer mes tables.

Faut-il faire une requête utilisant "test()" ? Si oui, Access me dit objet non défini.

Ma librairie "Microsoft DAO 3.6 Object Library" n'est pas coché car j'ai la "Microsoft Access 15.0 Object Library" déjà coché qui doit la contenir.

le code utilisé

Public Sub test()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Set Db = CurrentDb
For Each tbd In Db.TableDefs
MsgBox "Table : " & tbd.Name
Next
End Sub

Merci d'avance pour vos retours.

Flo
Afficher la suite 

1 réponse

Messages postés
2
Date d'inscription
lundi 5 décembre 2016
Statut
Membre
Dernière intervention
6 décembre 2016
0
Merci
Bonjour,

La solution est trouvé en requête access simple
Msysobjects = 1 correspond aux tables classiques
Msysobjects = 4 correspond aux tables liés

En jouant sur cet item, vous récupérez aussi les requêtes et autres items.


SELECT Msysobjects.name, Msysobjects.[type]
FROM Msysobjects
WHERE (((Msysobjects.[type])=1) AND ((Msysobjects.[flags])=0)) OR (((Msysobjects.[type])=4));