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
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
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
à 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
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
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 ;)
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
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 ;)
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
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
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
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
Bonjour,
Essaie ça
Me.lst_danger.Selected (intCurrentRow) = True
--
Cordialement,
Gilbert
"nunurs" <nunurs@discussions.microsoft.com> a écrit dans le message de news:
C45E5137-C9A6-4EE0-A380-AEFF87E3C115@microsoft.com...
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
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