Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Sélection dans une zone de liste

Sélection dans une zone de liste

4 réponses
Avatar
nunurs
Bonjour !!
j'essaie de mettre en surbrillance (sélection multiple) des row de ma liste
j'ai essayé la fonction Selected mais elle ne sert pas vraiment à cela en fait
code :
While Not (rst.EOF)
For intCurrentRow = 0 To Me.lst_danger.ListCount - 1
If Me.lst_danger.Column(0, intCurrentRow) =
rst("nom_danger") Then
Me.lst_danger.Selected (intCurrentRow)
End If
Next intCurrentRow
Wend

une idée? :o)
merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
nunurs
à noter l'oublie du rst.MoveNext xD


Bonjour !!
j'essaie de mettre en surbrillance (sélection multiple) des row de ma liste
j'ai essayé la fonction Selected mais elle ne sert pas vraiment à cela en fait
code :
While Not (rst.EOF)
For intCurrentRow = 0 To Me.lst_danger.ListCount - 1
If Me.lst_danger.Column(0, intCurrentRow) =
rst("nom_danger") Then
Me.lst_danger.Selected (intCurrentRow)
End If
Next intCurrentRow
Wend

une idée? :o)
merci



Avatar
nunurs
Bon bah j'ai trouvé :-D

While Not (rst.EOF)
For intCurrentRow = 0 To Me.lst_danger.ListCount - 1
If Me.lst_danger.Column(0, intCurrentRow) = rst("nom_danger") Then
Me.lst_danger.Selected(intCurrentRow) = True
End If
Next intCurrentRow
rst.MoveNext
Wend

Merci nunurs ;)
Avatar
ze Titi
Hello nunurs !

Bravo ! Comme quoi, quand on cherche... ;-)
Bonne continuation !

En ce jour mémorable du lundi 14/05/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bon bah j'ai trouvé :-D

While Not (rst.EOF)
For intCurrentRow = 0 To Me.lst_danger.ListCount - 1
If Me.lst_danger.Column(0, intCurrentRow) = rst("nom_danger") Then
Me.lst_danger.Selected(intCurrentRow) = True
End If
Next intCurrentRow
rst.MoveNext
Wend

Merci nunurs ;)


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
Gilbert
Bonjour,

Essaie ça

Me.lst_danger.Selected (intCurrentRow) = True

--
Cordialement,

Gilbert


"nunurs" a écrit dans le message de news:

Bonjour !!
j'essaie de mettre en surbrillance (sélection multiple) des row de ma
liste
j'ai essayé la fonction Selected mais elle ne sert pas vraiment à cela en
fait
code :
While Not (rst.EOF)
For intCurrentRow = 0 To Me.lst_danger.ListCount - 1
If Me.lst_danger.Column(0, intCurrentRow) > rst("nom_danger") Then
Me.lst_danger.Selected (intCurrentRow)
End If
Next intCurrentRow
Wend

une idée? :o)
merci