Discussion :

[Soticca]

Bonjour à tous,

Je suis en train de développer une IHM en Access 2010 qui communique avec une BDD Access en ADO.

Dans mon formulaire, j'ai des listes déroulantes que j'initialise avec un recordset de la façon suivante :

Code :

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

1
2
3
While monRecordset.EOF
	MaListe.AddItem monRecordset(nomDuChamp)
Wend

Ma liste contient bien alors toutes les v
Puis, à un moment j'ai besoin de "sélectionner" une ligne par rapport à une valeur. Je fais donc :

Code :

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

1
2
3
4
5
For i = 0 to MaListe.ListCount - 1
	If MaListe.ItemData(i) = maValeur Then
		MaListe.Selected(i) = True
	end if
Next i

Le soucis est que je n'ai aucune erreur quand je déroule le code. Je rentre bien à un moment dans le IF pour sélectionner ma ligne mais dans mon formulaire rien n'est visible, la liste reste positionnée sur du vide. J'ai l'impression d'oublier quelque chose mais je ne vois pas pourquoi cela ne fonctionnerait pas ?!

[marot_r]

Bonjour.

Pour les listes deroulantes, tu ne peux pas selectionner un element comme dans les listes classiques.
Il faut assigner la valeur directement au controle.

Code :

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

maListe=MaValeur

Et accessoirement on peut rendre ce code un peu plus efficace :

Code :

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

1
2
3
4
5
6
For i = 0 to MaListe.ListCount - 1
	If MaListe.ItemData(i) = maValeur Then
		MaListe.Selected(i) = True
                exit for 'Inutile de continuer, on a trouve la valeur
	end if
Next i

A+

A+

[Soticca]

Merci beaucoup

En plus ça parait plus logique comme fonctionnement.

Pour le for, je l'avais rajouté après. Par contre, il faudra que je fasse des tests pour voir à partir de quelle longueur de liste cela devient vraiment plus performant de le rajouter (juste histoire de m'amuser ).