Récupérer les valeurs de colonnes spécifiques dans une zone de liste

**fleur57** · 02/08/2007, 11h12

Bonjour,

J'ai une zone de liste à 9 colonnes dans laquelle je souhaite faire une sélection multiple
Suite à cette sélection multiple, il me faut récupérer les données des colonnes 1 et 5, qui me serviront ensuite comme critères pour une requête

Voici le début de ma requête :

Code vb :

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
19
20
Private Sub commande11_click()
'Sélection multiple
Dim choix As Variant
Dim choix2 As Variant
 
If Me.Liste4.ItemsSelected.Count = 0 Then
MsgBox "Aucun enregistrement n'a été sélectionné"
Else
For Each choix In Me!Liste4.colummn(2).ItemsSelected
Texte26.Value = Me!Liste4.ItemData(choix)
DoCmd.OpenReport ("BL-echantillons")
DoCmd.OpenReport ("BL-echantillons")
Next choix
End If
Me.Liste4.Requery
Dim i As Long
For i = 0 To Me.Liste4.ListCount - 1
    Me.Liste4.Selected(i) = False
Next i
End Sub

texte26 me sert à stocker les données pour la requête liée à l'état "BL-echantillons" - actuellement il stocke d'office le numauto, alors que je voudrais qu'il stocke les données des colnnes 1 et 5

Quelle est la formule qui va bien ?????

**jean-paul lepetit** · 02/08/2007, 13h59

Salut,

Essaies ceci

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
19
20
Private Sub Commande11_Click()
 
Dim choix As Variant
Dim choix2 As Variant
 
If Me.Liste4.ItemsSelected.Count = 0 Then
MsgBox "Aucun enregistrement n'a été sélectionné"
Else
For Each choix In Me!Liste4.ItemsSelected
Texte26.Value = Me!Liste4.Column(1) & Me!Liste4.Column(5)
DoCmd.OpenReport ("BL-echantillons")
DoCmd.OpenReport ("BL-echantillons")
Next choix
End If
Me.Liste4.Requery
Dim i As Long
For i = 0 To Me.Liste4.ListCount - 1
    Me.Liste4.Selected(i) = False
Next i
End Sub