Discussion :

[Miss Ti]

Bonjour,
j'ai créé une zone de liste remplie avec une requête. Cette zone de liste propose une sélection multiple afin de pouvoir faire des tirages des enregistrements sélectionnés.
Pour cela, je pensais passer les lignes une à une, vérifier si elles étaient sélectionnées. Si oui, récupérer la valeur dans la 1e colonne pour créer ma condition WHERE pour créer l'état à imprimer:

Code :

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

1
2
3
4
5
For i = 0 To nbrListe - 1
      If Me.lstResultats.Selected(i) = True Then
          conditionWHERE = conditionWHERE & " AND [DOSSIER].[id_dossier] = " & Me.lstResultats.Column(0)
      End If
Next i

Sauf que "Me.lstResultats.Column(0)" ne prend que la valeur du 1er enregistrement sélectionné.
C'est embêtant. Je pensais qu'en parcourant la liste comme ça, je mettais le focus sur la ligne et qu'il prendrai les valeurs de la ligne en cours.
Comment on fait pour mettre le focus sur la ligne?

[loufab]

Bonjour,

utilise la propriété itemselected()

il y a de très bon exemple dans l'aide ACCESS.


Cordialement,

[Miss Ti]

Merci Loufad.
Ca marche nicouel!

[Mahefasoa]

Oops, c'est résolu mais je le post quand même

Salut Miss Ti,

Avec une zone de liste à sélection multiple (simple ou étendue), voici comment faire pour parcourrir les éléments (lignes) de la liste:
1. on vérifie si au moins une ligne est sélectionnée
2. on passe en revue chaque ligne de la première à la dernière
3. on vérifie si la ligne courante est sélectionnée, et si tel est le cas, recueillir la valeur de la colonne désirée
ATTENTION: il ne s'agit pas de mettre le focus sur la ligne suivante!

Voici un exemple:
Je pose Lst est le nom de la zone de liste, i est une variable de parcours, ValeurLue est une liste des valeurs recueillies

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
18
 
   Dim i As Long, ValeurLue As String, conditionWHERE As String
 
   '(1)
   If Me.Lst.ItemSelected.Count = 0 Then Exit Sub 'Si aucune sélection n'a été faite, terminer la procédure
 
   '(2)
   For i=0 To Me.Lst.ListCount-1 'Le premier élément d'une liste porte l'index 0 et le dernier l'index nombre d'élément-1
 
      '(3)
      If Me.Lst.Selected(i) Then 'Si la ligne en cours est sélectionnée
          ValeurLue = ValeurLue & ", " & Me.Lst.Column(0,i) 'Recueillir la valeur de la première colonne de la ligne i
      End If
 
   Next
 
   ValeurLue = Mid(ValeurLue, 3) 'Enlever la chaîne ", " au début
   conditionWHERE = conditionWHERE " AND [DOSSIER].[id_dossier] In (" & ValeurLue & ")"

Quelques précisions:
Si par exemple, on veut comparer les valeurs suivantes (1,3,4 et 6) au champ id_dossier, on peut écrire

Code :

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

1
2
 
id_dossier=1 OR id_dossier=3 OR id_dossier=4 OR id_dossier=6

alors qu'une autre moyen moins fastidieuse existe

Code :

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

1
2
 
id_dossier In (1, 3, 4, 6)

Je ne sais pas si tu as compris, mais essayes.

A+

[loufab]

quel matoutous ? Ceux de Guyane ou ceux de la Maatinique ?

Bizarre je te vois à coté de chez moi (à Castanet) ?