VBA : Ajouter un itemdata dans une liste (boucle qui lit un recordset)

Question

Salut a tous !

Voila mon probleme : 

Je suis en VBA. J'ai un recordset qui rempli une liste au moyen d'une
boucle. J'aimerais egalement ajouter a chaque fois un itemdata a chaque
ligne , mais je ne trouve pas comment faire...



Je fais:

lst_Intervenant.additem(RS1.fields"Nom_Intervenant").value   

lst_intervenant.itemdata(il faut renseigner l'index...)= RS1.Fields("ID_Intervenant")



RS1 est mon recordset: je veux ajouter avec chaque ligne
Nom_Intervenant, son ID en Itemdata pour le recuperer ensuite...Je ne
sais pas comment faire.



Merci d'avance !!!

cs_phil23 · Answer

Je pense que c'est &#231;a que tu veux:

lst_Intervenant.AddItem (RS1.Fields("Nom_Intervenant").Value)
lst_Intervenant.ItemData(lst_Intervenant.NewIndex) = RS1.Fields("ID_Intervenant")

Chaque fois que tu ajoutes un item (le nom de la personne), tu renseignes le tableau ItemData avec l'ID de la personne. Ensuite tu r&#233;cup&#232;re cet ID pour une prochaine fonction...

Floweract · Answer

Alors, merci. C'est bien ce que je fais en VB, mais en VBA, il n'y a
pas de propriete "NewIndex", d'ou mon desarroi...Je nepeux renseigner
l'index de la ligne nouvellement cr&#233;&#233;e, a cause du manque de cette
propri&#233;t&#233;, et j'ai beau chercher, je ne trouve rien
d'equivalent...C'est etonnant.

VBA : Ajouter un itemdata dans une liste (boucle qui lit un recordset)

2 réponses

Discussions similaires