Récupérer nom tables access après code VBA
Résolu
flo017
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
flo017 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
flo017 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Récupérer nom tables access après code VBA
- Code ascii - Guide
- Recuperer message whatsapp supprimé - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
1 réponse
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));
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));