Discussion :

[Mymi]

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 :

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

CNX.OpenSchema(adSchemaColumns)

et aussi avec

Code :

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

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!

[khany]

Je dois avouer ne jamais avoir essayé

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

[Mymi]

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!

[khany]

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

[Mymi]

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 :

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

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!