Discussion :

[[ZiP]]

Bonjour,

Voici mon code :

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
Function Initialisation_frm_top_20()
    Dim MaTable As Recordset
    Dim compteur, total As Integer
 
    Set MaTable = CurrentDb.OpenRecordset("qry_nombre_d_observations_par_personne_annee_en_cours_dec")
    MaTable.MoveFirst
    compteur = 1
    total = MaTable.RecordCount
    Do While compteur <= total
        Form_frm_top_20.lsttop20plus.AddItem (Str(compteur) & " - " & MaTable("Nom") & " (" & MaTable("Valeur") & ")")
        compteur = compteur + 1
        MaTable.MoveNext
    Loop
    MaTable.Close
    Set MaTable = Nothing
End Function

Celui-ci me retourne un seul enregistrement alors que la requête exécutée dans Access me retourne bien mes 20 enregistrements.

A titre informatif, le code de ma requête en SQL est le suivant :

Code :

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

1
2
3
4
SELECT TOP 20 qry_nombre_d_observations_par_personne_annee_en_cours_union.Nom, Sum(Round(qry_nombre_d_observations_par_personne_annee_en_cours_union.SommeDeValeur,1)) AS Valeur
FROM qry_nombre_d_observations_par_personne_annee_en_cours_union
GROUP BY qry_nombre_d_observations_par_personne_annee_en_cours_union.Nom
ORDER BY Sum(Round(qry_nombre_d_observations_par_personne_annee_en_cours_union.SommeDeValeur,1)) DESC;

Savez-vous pourquoi j'ai ce genre de problème et que je n'arrive pas à voir tous mes résultats en VBA ?

Merci,
ZiP

[Kloun]

Je te conseille plutôt (l'ami de Mickey) ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Initialisation_frm_top_20()
    Dim MaTable As DAO.Recordset
 
    Set MaTable = CurrentDb.OpenRecordset("qry_nombre_d_observations_par_personne_annee_en_cours_dec")
    While not MaTable.eof
        Form_frm_top_20.lsttop20plus.AddItem (Str(compteur) & " - " & MaTable("Nom") & " (" & MaTable("Valeur") & ")")
        MaTable.MoveNext
    wend
    MaTable.Close
    Set MaTable = Nothing
End Function

[[ZiP]]

Bonjour Kloun,

Effectivement, ça fonctionne mieux comme ça

Merci,
ZiP