Discussion :

[Gabout]

Bonjour,

Je cherche, à l'ouverture d'un formulaire indépendant, à présélectionner une zone de liste en fonction d'enregistrements sélectionnés dans une table.

La propriété Sélection multiple de la zone de liste est à simple.

Quoi qu'il en soit, rien n'est présélectionné !

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
21
Private Sub Form_Open(Cancel As Integer)
  Dim oDb As DAO.Database
  Dim oRst As DAO.Recordset
  Dim i As Integer
  Set oDb = CurrentDb
  Set oRst = oDb.OpenRecordset("SELECT tPRO.* FROM tPRO WHERE tPRO.proris=" & CLng(Me.OpenArgs) & ";", dbOpenDynaset)
  While Not oRst.EOF
    For i = 0 To lstEPI.ListCount - 1
      If lstEPI.Column(0, i) = oRst!proepi Then
        lstEPI.Selected(i) = True
      Else
        lstEPI.Selected(i) = False
      End If
    Next i
    oRst.MoveNext
  Wend
  oRst.Close
  oDb.Close
  Set oRst = Nothing
  Set oDb = Nothing
End Sub

Avez-vous une piste ?

[Jeannot45]

Gabout

Voici une discussion qui pourrait peut-être te donner une piste de réflexion

Parcours d'une liste à sélection multiple

Bonne continuation

[LedZeppII]

Bonjour,

J'ai l'impression que la partie qui boucle sur les enregistrements du recordset, désélectionne ce qui a été sélectionné dans les boucles précédentes.

Je ferai cela en deux fois.
- Effacement de la sélection
- Sélection des éléments se trouvant dans le recordset

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  For i = 0 To lstEPI.ListCount - 1
    lstEPI.Selected(i) = False
  Next i
 
  While Not oRst.EOF
    For i = 0 To lstEPI.ListCount - 1
      If lstEPI.Column(0, i) = oRst!proepi Then
         lstEPI.Selected(i) = True
         Exit For
      End If
    Next i
    oRst.MoveNext
  Wend

A+

[Gabout]

Bonjour Jeannot45 et LedZeppII,

Voilà ce que j'ai conçu avant de lire vos conseils :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Open(Cancel As Integer)
  Dim i As Integer
  For i = 0 To lstEPI.ListCount - 1
    If DCount("*", "tPRO", "proepi=" & Me.lstEPI.Column(0, i) & " And proris=" & CLng(Me.OpenArgs)) = 0 Then
      lstEPI.Selected(i) = False
    Else
      lstEPI.Selected(i) = True
    End If
  Next i
End Sub

Et cela fonctionne très bien.

Merci de votre aide, à bientôt.