liste des tales

Salut,

"Thierry"

Est il possible sous access de faire une requete qui liste les tables ?

Bien sûr... (la manière dépand de ton Access )


Une requête:
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.Flags)=0));

en VBA:

Sub EnumTable()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim message As String
Set db = CurrentDb

For Each tdf In db.TableDefs
message = message & tdf.Name & vbCrLf
Next

MsgBox message

End Sub



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Salut à vous 2,

Il y a les tables attachées aussi. Allez-voir cette page,
j'avais déjà répondu...
http://groups.google.com/groups?
q=MSysObjects+group:microsoft.public.fr.access&hl=fr&lr=&i
e=UTF-
8&as_drrb=b&as_mind=12&as_minm=8&as_miny=2004&as_maxd=9&as
_maxm=9&as_maxy=2004&selm=069e01c48f29%24f809cf00%
24a401280a%40phx.gbl&rnum=1

Bye
Yann

-----Message d'origine-----
Salut,

"Thierry"

Est il possible sous access de faire une requete qui
liste les tables ?

Bien sûr... (la manière dépand de ton Access )


Une requête:
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.Flags)
=0));

en VBA:

Sub EnumTable()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim message As String
Set db = CurrentDb

For Each tdf In db.TableDefs
message = message & tdf.Name & vbCrLf
Next

MsgBox message

End Sub



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------





.