Discussion :

[pal017]

Bonjour,

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

Faut-il faire une requête utilisant "test()" ? Si oui, pouvez-vous m'aider svp. Access me dit objet non défini pour test

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é

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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

[tee_grandbois]

Bonsoir,
c'est plus simple avec une requête et une des tables système :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT name from Msysobjects where type =1 and flags =0;

[pal017]

Merci beaucoup !!! ça fonctionne pour les tables non liés.

Dans ma base Access, j'ai des tables liées sur un serveur. Possible de les récupérer aussi avec un code de ce type ?

Merci d'avance

[pal017]

C'est bon en regardant le code, j'ai tout récupéré !!!

Merci beaucoup, vous m'avez fait gagner un temps précieux !!!

[pal017]

Encore merci.

Donc pour compléter avec mes tables liés sur serveur, mettre msysobjects=4 aussi en complément

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

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