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

Floweract Messages postés 3 Date d'inscription mercredi 6 juillet 2005 Statut Membre Dernière intervention 8 juillet 2005 - 6 juil. 2005 à 14:05
Floweract Messages postés 3 Date d'inscription mercredi 6 juillet 2005 Statut Membre Dernière intervention 8 juillet 2005 - 6 juil. 2005 à 15:11
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 !!!

2 réponses

cs_phil23 Messages postés 79 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 14 juillet 2005 1
6 juil. 2005 à 15:02
Je pense que c'est ç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écupère cet ID pour une prochaine fonction...
0
Floweract Messages postés 3 Date d'inscription mercredi 6 juillet 2005 Statut Membre Dernière intervention 8 juillet 2005
6 juil. 2005 à 15:11
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éée, a cause du manque de cette
propriété, et j'ai beau chercher, je ne trouve rien
d'equivalent...C'est etonnant.
0