Discussion :

[fabiolous]

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

[Invité]

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

[DMboup]

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

[fabiolous]

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

[Invité]

Bonjour

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

Starec

[fabiolous]

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.

[Invité]

Re

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

Starec

[fabiolous]

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

Code :

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

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