Discussion :

[Cinesra]

Amis du soir, bonsoir!

Un petit problème concernant la fonction ListIndex ou tout autre moyen de vérifier qu'une zone de liste déroulante à choix multiples (=listbox liée à une table) a eu au moins 1 enregistrement de sélectionné:

Code :

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

1
2
3
4
5
6
 
If Me.DomaineListe.ListIndex <> -1 Then
DoCmd.Close
Else
MsgBox "Tu n'as même pas sélectionné 1 élément dans la liste déroulante"
End If

Ce code ne marche pas car:
Me.DomaineListe.ListIndex renvoi -1 quand aucun élément n'est sélectionné (ça c'est normal et c'est ma condition if) MAIS Me.DomaineListe.ListIndex renvoi aussi -1 lorsque l'utilisateur sélectionne + d'1 élément de la liste déroulante (ça c'est pas bon)

Une idée?

Merci d'avance

[hajeahmad]

bonjour

as tu essayés cette methode

Code :

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

 x = Me("Liste1").ItemsSelected().Count

cordialement
ahmad

[Cinesra]

Salut!

Effectivement, ce code:

Code :

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

Me.DomaineListe.ItemsSelected().Count

marche très bien avec des ComboBox, mais ici c'est une ListBox

Merci quand même

Quelqu'un d'autre??? SVP

EDIT: Ou alors comment faire ressembler une ComboBox à une ListBox?

.

[User]

Salut,

Je crois qu'il y a confusion

Voici ce qu'en dit l'aide

ListBox ou zone de liste :
Contrôle constitué d'une liste et d'une étiquette (facultative); Autorise la sélection multiple d'éléments.

ComboBox ou zone de liste déroulante :
Contrôle qui fournit une zone de liste et une zone de texte. Vous pouvez tapez une valeur ou cliquer sur le contrôle pour afficher une liste et y sélectionner un élément. (par conséquent pas de sélection multiple possible)

Bonne continuation

[Cinesra]

Tiens! Bonsoir User!

Non non, je ne crois pas qu'il y est confusion de ma part. C'est bien une Listbox, exactement comme celle là:
http://office.microsoft.com/global/i...ZA101555031033

Le mec de ce site http://www.access-programmers.co.uk/...d.php?t=184095avait exactement le même problème mais persistait à croire que c'était une ComboBox (aucune attaque sur mon User favori, ne tkt pas ) du coup: pas de réponse!!!


Une idée de comment régler mon problème du coup?

Merci d'avance

[User]

Désolé mais je suis sous Access 2003,

cela semble être une nouveauté d'Access 2007, donc je ne peux te répondre...

[hajeahmad]

bonjour à tous
User a raison ,d'ou ma reponse
moi je travail avec access depuis la verion "1" ,
...je n'ai jamais vu une liste deroulante a choix multiple et puis c'est impossible à faire car une fois que tu as fais ta selection la liste se ferme.
j'ai regardé ton exemple
http://office.microsoft.com/global/i...ZA101555031033
il me semble que C'est une liste deroulante quand meme.
je peux quand meme me tromper!!!
bien cordialement
ahmad

[Cinesra]

Salut,

Oui c'est une ListBox mais qui est surtout un champ multivalué!
Je suis en train de chercher une réponse sur ce tuto: http://warin.developpez.com/access/multivalue/

Je vous tiens au jus si j'ai qlqchose.

[hajeahmad]

salut
exacte
mais C'est une autre problematique du coup je ne comprend plus ta question?
ahmad.

[hajeahmad]

salut
exacte
mais C'est une autre problematique du coup je ne comprend plus ta question?
ahmad.
C'est l'echange qui me fait avancer

[Cinesra]

Salut,

Ma question est que je cherche à vérifier si ma liste multivaluée est vide ou contient au moins 1 valeur.
Il faut donc adapter ce code à une liste multivaluée:

Code :

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

1
2
3
4
5
If Me.DomaineListe.ListIndex <> -1 Then
DoCmd.Close
Else
MsgBox "Tu n'as même pas sélectionné 1 élément dans la liste déroulante"
End If

[Cinesra]

Bon il me semble avoir trouvé la solution mais j'aimerais que qlq'un me confirme que "Not IsNull" est correct.

Ma solution:

Code :

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

1
2
3
4
5
If Not IsNull(Me.DomaineListe) Then
DoCmd.Close
Else
MsgBox "Tu n'as même pas sélectionné 1 élément dans la liste déroulante"
End If

En fait je ne comprend pas pourquoi

Code :

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

If Not IsNull(Me.DomaineListe) Then

à l'air de fonctionner
Mais

Code :

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

If Me.DomaineListe <> Null Then

ne fonctionne pas?

Merci d'avance

[Pierreg27]

Je pense que ceci devrait répondre à la question première, ... Bien que ça ne règle pas mon problème!

Note Si vous utilisez la propriété MultiSelect pour créer un contrôle ListBox permettant plusieurs sélections, la propriété Selected du contrôle ListBox (plutôt que la propriété ListIndex) identifie les lignes sélectionnées. La propriété Selected est un tableau ayant le même nombre de valeurs que le nombre de lignes du contrôle ListBox. Pour chaque ligne de la zone de liste, la propriété Selected contient la valeur True si la ligne est sélectionnée, et False si elle ne l'est pas. Dans un contrôle ListBox permettant plusieurs sélections, la propriété ListIndex renvoie l'index de la ligne ayant le focus, que celle-ci soit ou non actuellement sélectionnée.