Discussion :

[[ZiP]]

Bonjour,

J'ai créé une requête qui me retourne les 6 numéros qui ont été tirés le plus grand nombre de fois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
SELECT TOP 6 tirage.num, Sum(tirage.freq) AS SommeDefreq
FROM (SELECT numero1 AS num, COUNT(numero1) AS freq FROM tirages GROUP BY numero1 UNION ALL
SELECT numero2 AS num, COUNT(numero2) AS freq FROM tirages GROUP BY numero2 UNION ALL
SELECT numero3 AS num, COUNT(numero3) AS freq FROM tirages GROUP BY numero3 UNION ALL
SELECT numero4 AS num, COUNT(numero4) AS freq FROM tirages GROUP BY numero4 UNION ALL
SELECT numero5 AS num, COUNT(numero5) AS freq FROM tirages GROUP BY numero5 UNION ALL
SELECT numero6 AS num, COUNT(numero6) AS freq FROM tirages GROUP BY numero6
)  AS tirage
GROUP BY tirage.num
ORDER BY Sum(tirage.freq) DESC , tirage.num;

Je souhaiterai afficher ces résultats dans un formulaire, plus précisément dans des étiquettes. J'ai donc créé 6 étiquettes sur mon formulaire, que j'ai nommé numero1, numero2, etc.

Pouvez-vous m'aiguiller dans la démarche à suivre ?

Merci,
ZiP

[User]

Salut,

je n'ai pas trop regardé ta requête,

mais pour le formulaire, il s'agit juste de lier ton formulaire à ta requête:
Voir propriété source (RecordSource) de ton formulaire.

et après tu insère des zones de texte liées aux champs de ta requête (num et SommeDeFreq):

voir propriété source contrôle de tes zones de texte...

A+

[[ZiP]]

Bonsoir,

Votre réponse semble concerner les zones de texte et non les étiquettes.

Dans mon cas, j'utilise des zones de texte, j'ai donc utilisé un bouton et une macro.

J'ai donc 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
21
22
23
24
25
26
27
 
Private Sub Commande17_Click()
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    strsql = "SELECT TOP 6 tirage.num AS numero,SUM(tirage.freq) AS frequence FROM (SELECT numero1 AS num, COUNT(numero1) AS freq FROM tirages GROUP BY numero1 UNION ALL SELECT numero2 AS num, COUNT(numero2) AS freq FROM tirages GROUP BY numero2 UNION ALL SELECT numero3 AS num, COUNT(numero3) AS freq FROM tirages GROUP BY numero3 UNION ALL SELECT numero4 AS num, COUNT(numero4) AS freq FROM tirages GROUP BY numero4 UNION ALL SELECT numero5 AS num, COUNT(numero5) AS freq FROM tirages GROUP BY numero5 UNION ALL SELECT numero6 AS num, COUNT(numero6) AS freq FROM tirages GROUP BY numero6) AS tirage GROUP BY tirage.num ORDER BY Sum(tirage.freq) DESC,tirage.num;"
    rs.Open strsql, CurrentProject.Connection
    rs.MoveFirst
    Numero1.Caption = rs!numero
    frequence1.Caption = rs!frequence
    rs.MoveNext
    Numero2.Caption = rs!numero
    frequence2.Caption = rs!frequence
    rs.MoveNext
    numero3.Caption = rs!numero
    frequence3.Caption = rs!frequence
    rs.MoveNext
    numero4.Caption = rs!numero
    frequence4.Caption = rs!frequence
    rs.MoveNext
    numero5.Caption = rs!numero
    frequence5.Caption = rs!frequence
    rs.MoveNext
    numero6.Caption = rs!numero
    frequence6.Caption = rs!frequence
    rs.Close
    Set rs = Nothing
End Sub

Est-ce une méthode correcte ?

Merci,
ZiP

[User]

Re,

Tu peux faire la même chose avec les zones de texte liées et en mettant ton formulaire en mode feuille de données...

[LE VIEUX]

Bonsoir,
Précision ?

Dans mon cas, j'utilise des zones de texte, j'ai donc utilisé un bouton et une macro.

zone de texte ou étiquettes(label), c'est largement différents, j'avais cru comprendre que c'était des labels....
si c'est le cas,
Malgré que cela m’échappe tu as probablement de bonnes raisons pour mettre le résultat d’une requête dans des labels.
Ce qui ne simplifie pas les choses, par habitude et préférence je n’aime pas trop utiliser le SQL dans VBA, mais cela n’engage que moi.
Pour essayer d’adapter ton code en le reliant à un formulaire, voit la base ci-jointe si tu peux t’en expirer pour avancer ton problème.
Ne pouvant reconstituer ta base, j’ai simulé un résultat dans une requête pour démonstration et essayé d’extrapoler le nom des labels.

[[ZiP]]

Merci pour votre exemple.

Ma méthode n'est surement pas la meilleure

ZiP