Discussion :

[voxov]

Bonjour,

Je voudrais afficher les tables de la base de données courante dans une liste déroulante sur un formulaire et pouvoir en sélectionner une.

Je voudrais ensuite afficher les colonnes de cette table dans une 2ème liste déroulante sur le formulaire et pouvoir en sélectionner une.

Toutes les idées et exemples de code seront les bienvenus.

Merci d'avance.

[Orion34080]

Pour répondre à la première partie de ta question (si je l'ai bien comprise), pour ma part, je "tricherais" un peu en créant une table (nommée dans l'exemple ci-dessous : "TableDesTables") avec un champ unique (nommé par exemple : "Nom_Tables") et je saisirais dans cette nouvelle table le nom de toutes les tables qui doivent aller dans ta liste déroulante.

Ensuite, il te suffirait de te servir de cette nouvelle table pour incrémenter ta liste déroulante avec dans les propriétés de cette liste déroulante(onglet "données" rubrique : "Contenu") quelque chose dans le style :

Code sql :

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

SELECT Nom_Tables FROM TableDesTables

Michel

PS : j'ai aussi trouvé ça qui paraît correspondre à ta demande
http://support.microsoft.com/kb/464625/fr

[dumas.blr]

Bonjour Voxov,

Nous avons déjà traité un sujet similaire, regarde donc ce lien

[spaiku]

Bonjour,

je n'ai pas Access sous la main, donc je n'ai pas pu tester, mais voilà une base de travail.

Pour la combobox contenant les noms de tables (à exécuter à l'ouverture du form) :

Code :

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

1
2
3
4
5
6
7
8
9
Dim db as DataBase
Dim Tdf As TableDef
Set db = CurrentDB
 
For Each Tdf In db.TableDefs
    If (Tdf.Attributes And dbSystemObject) = 0 Then
        Me.combobox1.addItem Tdf.Name
    End If
Next Tdf

Sur l'événement Change de cette combobox, pour lister les champs :

Code :

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

1
2
3
4
5
6
7
8
9
Dim db as DataBase
Dim Tdf as TableDef
Dim Fld as Field
 
Set db = CurrentDB
Set Tdf = db.TableDefs(Me.combobox1.Value)
For Each Fld in Tdf.Fields
    Me.combobox2.AddItem Fld.Name
Next Fld

Il faut bien sûr que tes combobox aient des sources de type liste de valeurs.

[voxov]

Merci Spaiku.
Solution simple et efficace. C'est parfait.