Discussion :

[Lorenzole+bo]

Je souhaiterais visualiser la liste des tables existantes dans ma base dans un formulaire et uniquement celles que j'ai créées.

Actuellement j'utilise cette méthode mais il ya des inconvénients :

Code :

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

1
2
3
4
Dim intI As Integer
For intI = 0 To CurrentDb.TableDefs.Count - 1
MsgBox CurrentDb.TableDefs.Item(intI).Name
Next intI

- Liste les tables même celles cachées
- Utilise les MsgBox

Merci de m'aider.

[pgz]

Bonjour.

Tu peux essayer un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
DIm db as DAO.DAtaBase, tbl as TableDef
 
Set db = Application.CurrentDb
For each tbl in db.TableDefs
 if tbl.Attributes = 0 Then MsgBox tbl.name
Next tbl
 
Set db = Nothing
Set tbl = Nothing
Next intI

Bon courage,

PGZ