Discussion :

[Aiola]

Bonjour,

J'aimerais exécuter une requête à partir d'une sélection multiple d'une listbox, en cherchant sur le net j'ai trouvé ce code là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Liste55_AfterUpdate()
    Dim itm As Variant
    Dim S, S1 As String
 
 
    For Each itm In Liste55.ItemsSelected
        S = S & Liste55.ItemsSelected(itm) & ","
    Next itm
 
    S = Left(itm, Len(S) - 1)
    S1 = "SELECT YEAR(Match.date) FROM Match WHERE Match.type_match IN(S)"
 
    ComboAnnée.RowSource = S1
End Sub

Le but étant de créer une chaine et de l'utiliser pour générer la requête, seulement j'ai le message d'erreur suivant :

Erreur d'exécution 2480 :
Vous avez fait référence à une propriété à l'aide d'un argument numérique qui ne fait pas partie des numéros de propriété de la collection

Quelqu'un peut m'aider à y voir plus clair ?

Merci bien

[tee_grandbois]

Bonsoir,
c'est peut-être à cause de la syntaxe :

Code :

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

    S1 = "SELECT YEAR(Match.date) FROM Match WHERE Match.type_match IN(" & S & ")"

[Aiola]

Merci de ta réponse ! J'avais déjà essayé mais l'erreur ne vient pas de là ! Mais c'est vrai la syntaxe était incorrect !

Le débogage me dit que l'erreur vient de là :

Code :

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

 S = S & Liste55.ItemsSelected(itm) & ","

Je vois vraiment pas....

[tee_grandbois]

Bonsoir,
Essaie de remplacer la "," par ";"

[tee_grandbois]

J'ai trouvé d'ou vient l'erreur : tu ne récupérais que les index de la multi-sélection, il faut déclarer ta zône de liste en tant que contrôle pour accéder aux données se trouvant dans les colonnes :

Code :

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

1
2
3
4
5
6
Dim objCtl As Control
Dim itm As Variant
    Set objCtl = Me!Liste55
	For Each itm In objCtl.ItemsSelected
        S = S & objCtl.Column(0, itm) & " ; "
    Next itm

0 représente la première colonne de la liste, à changer selon ton besoin

[Aiola]

Merci pour ta rep ça marche mais j'ai dû rajouter quelque chose en plus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Liste55_AfterUpdate()
    Dim itm As Variant
    Dim object As Control
    Dim S, S1, S2 As String
    'S2 =
 
   Set Objctl = Me!Liste55
 
    For Each itm In Objctl.ItemsSelected
        S = S & """" & Objctl.Column(0, itm) & ""","
    Next itm
 
    S = Left(S, Len(S) - 1)
    S1 = "SELECT DISTINCT YEAR(Match.date) FROM Match WHERE Match.Type_Match IN (" & S & ")"
 
    ComboAnnée.RowSource = S1
End Sub

En effet comme c'est du texte j'ai dû rajouter les guillemets à la ligne

Code :

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

S = S & """" & Objctl.Column(0, itm) & ""","

J'ai pas compris exactement pourquoi en revanche...