Source d'un Champ définie avec une liste dans Access

Bonjour,

On me demande toujours des choses un peu "bizzard". J'essais de vous exprimer clairement mon besoin : Lorsqu'on crée un champ dans une table Access on peut choisir un contrôle de type liste et indiquer le contenu de cette liste dans la "section" "Contenu" de l'onglet "liste de choix". J'aimerais accéder à l'information qui se trouve dans la "section" "Contenu".

Par exemple, si j'ai un champ "Reponse" de type numérique, la section contenu pourrait contenir : "0;Non;1;Oui" . J'aimerais pouvoir aller lire cette chaîne de caractères via VB6.

J'ai essayé avec

Code:

---

CNX.OpenSchema(adSchemaColumns)

---

et aussi avec

Code:

---

ADOX.Column

---

Bien que ces 2 méthotes donnent beaucoup d'informations sur les colonnes, je n'arrive pas à obtenir l'information que je chercher.

Si quelqu'un a une idée, elle est la bienvenue.

Merci!

Je dois avouer ne jamais avoir essayé :oops:

Par contre, il me semble que tu auras peut-être une chance en postant sur le forum Access et si tu as un code même en VBA, ca doit être adaptable à VB !

Si tu trouves une solution, veux-tu bien la poster ici ?

Merci pour ta participation ;)

Merci pour ta suggestion, je pense qu'effectivement c'est une bonne idée!

Cependant, je ne voudrais pas qu'on me dise que j'ai fait un double post. Est-ce qu'il y a une prodécure particulière à suivre pour soit transférer ce post ou bien si je pars une nouvelle discussion dans le forum Access tout simplement?

Je souhaite simplement bien suivre les règles du forum autant que possible.

Merci pour ton aide!

Puisque c'est moi qui te le suggère, intrinsèquement, j'autorise que tu repostes ailleurs au vu du peu de réponses obtenues ici ;)

J'ai trouvé! Sur le site de développez en plus!

Maxence Hubiche a mis à notre disposition un code source qui fait pas mal ce que je veux. Vous pourrez le trouver ici :

http://access.developpez.com/sources...terTablesChamp

Grosso modo ça se résume à ceci :

Code:

---

1 2 3 4 5 6 7

Dim LigneSource as String Dim t as DAO.TableDef dim F as DAO.Field   For Each F In t.Fields LigneSource = F.Properties("RowSource") Next F

---

Le code de l'URL proposé est vraiment claire et détaillé.

Si quelqu'un a l'équivalent dans ADO, je suis preneuse!