Comment récupérer seulement les noms issu d'un tri sur form

**electrosat03** · 17/07/2009, 12h53

Bonjour,

J'ai un form qui contient des enregistrements avec des dates.
Dans une ZL, je récupère les années des enregistrements sous le format YYYY.

Lorsque je sélectionne une année, j'effectue un filtre pour n'afficher que les enregistrements correspondant à cette année. (en VBA)

Dans une seconde ZL, j'aimerais afficher les nom afin de pouvoir me positionner sur celui-ci rapidement.

Le problème : comment n'afficher que les nom qui sont affichés sur le form trié.

Merci
A+

**fgiambelluco** · 17/07/2009, 13h17

Bonjour
pourquoi ne pas modifier la propriété Row Source de la ZL2 en même temps que tu appliques le filtre sur le formulaire ?

**electrosat03** · 17/07/2009, 13h33

Salut,

Evidemment j'y ai pensé, mais comment faire pourque le rowSource de la ZL Nom
ne prenne que les nom qui sont affichés.

J'ai essayé :

Code :

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

1
2
3
4
5
6
7
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.MoveFirst
        Me.Liste_Nom.RowSourceType = "Table/Requête"
        Me.Liste_Nom.RowSource = "SELECT (rs.Nom)" & _
                                " FROM (rs)" & _
                                " ORDER BY (rs.Nom) DESC; "

Mais ça ne marche pas.

Merci

**fgiambelluco** · 17/07/2009, 13h55

Une solution, mais je pense que l'on peut faire plus simple

Code :

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

1
2
3
4
5
    If Me.FilterOn = True Then
        Me.Liste_Nom.RowSource = "SELECT  [Nom] FROM " & Me.RecordSource & " where " & Me.Filter & " ORDER BY [Nom] DESC; "
    Else
        Me.Liste_Nom.RowSource = "SELECT  [Nom] FROM " & Me.RecordSource & " ORDER BY [Nom] DESC; "
    End If

plus besoin du rs

**electrosat03** · 17/07/2009, 13h57

OK, c'est bon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Me.Liste_Nom.RowSource = ""
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.MoveFirst
    Me.Liste_Nom.RowSource = rs.refcli & ";" & rs.Nom
    rs.MoveNext
 
    Do While Not rs.EOF
        Me.Liste_Nom.RowSource = Me.Liste_Nom.RowSource & " ;" & rs.refcli & ";" & rs.Nom
        rs.MoveNext
    Loop
 
    Me.Liste_NRS.Requery

Il faut ajouter le premier Nom avant la boucle Do While car après, il y a un ; pour permettre d'ajouter les noms à la suite du premier.

Merci
A+

**electrosat03** · 17/07/2009, 19h33

Re,

Merci pour ton code.

Le mien marche aussi, mais qq fois il bloque en signalant que l'objet ne peut gérer la propriété ???

Donc j'ai pris le tien qui fonctionne très bien.

Encore une question, comment faire un regroupement sur les noms, car j'ai plusieurs fois le même client.

Merci
A+