[VBA]Récuperer nom des champs

Bonjour,

J'ai un problème je voudrais faire un morceau de code en vba qui me permette
de récupérer le nom des champs d'une table pour afficher cela dans une liste déroulante.

J'ai besoin d'aide notamment sur les propriétés d'une table qui stocke le nom des champs en cherchant j'ai trouvé la propriété Fields mais je ne vois pas comment manipuler cela

Cdlt
:roll:

Bonjour

Va jeter un coup d'oeil sur la page tuto du forum Access (tu y accédes lorsque tu arrives sur le forum Access), et regarde la rubrique DAO, il y'a un excellent tuto.

Starec

Cherche dans la FAQ => For Each ... Next

Je n'y arrive pas. Pourtant j'ai parcouru la FAQ

Je cherche simplement à récuperer la liste de nom des champs pour pouvoir l'afficher.

Merci de votre aide

Bonjour

Consulte ce tuto sur DAO : http://warin.developpez.com/access/dao/

Starec

Oui, merci j'ai déja lu ce tuto sur les dao et leur propriété etc, mais je ne vois pas comment on se srt des objets Querydef et de la propriété Fields sur ma table, il n'y a pas beaucoup d'exemple qui s'applique à la récupértion simple des noms de champs d'une table.
Si vous pouviez me commenter des bribes de codes permettant de récuperer le nom des champs d'une table je suis preneur.

Cdlt.;)

Re

Une petite recherche dans les pages sources, par exemple ici.

Starec

Voila la ou j'en suis arrivé, j'ai une petite fonction bateau ... exactement ce que je voulais merci à tous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'Auteur : Fabien 'le 11/06/2007 'Cette methode permet de lister les champs d'une table dont 'on à donné le nom en parametre   Public Function ListerChamps(ByVal nom_table As String) 'Gestion d'erreur On Error Resume Next 'Declaration des variables Dim tdf As TableDef Dim fld As Field Dim mdb As Database 'attribution mdb est la base de donnée courante Set mdb = CurrentDb 'attribution Set tdf = mdb.TableDefs(nom_table) For Each fld In tdf.Fields Debug.Print "Champ " & fld.Name Next fld End Function

---