Discussion :

[RichardR]

Bonjour à tous,

Très novice en Access, je cherche à inclure un compteur de ligne qui ce réinitialiserait à chaque nouveau RANK.

Ma requête actuelle est la suivante, sur 2 tables (COLL & FRAIS):

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
SELECT  
  [COLL].MATRICULE,  
  [COLL].NOM,  
  [COLL].PRENOM,  
  [COLL].RANK,  
  Sum([FRAIS].MT) AS SumOfMT
FROM  
  [COLL] INNER JOIN [FRAIS]  
ON  
  [COLL].MATRICULE=[FRAIS].MATRICULE
GROUP BY  
  [COLL].MATRICULE,  
  [COLL].NOM,  
  [COLL].PRENOM,  
  [COLL].RANK,  
ORDER BY  
  [COLL].RANK, Sum([FRAIS].MT) DESC;

Le résultat donne :

Code :

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

1
2
3
4
5
6
7
8
 
MATRICULE      | NOM     | PRENOM  | RANK       | SumOfMT
20             | TITI    | Claude  | Ass.Com    | 300
15             | TATA    | Daniel  | Ass.Com    | 200
3              | TOTO    | Paul    | Commercial | 1000
1              | RIRI    | Jean    | Commercial | 800
4              | FIFI    | Louis   | Commercial | 500
16             | DUBOSS  | Nicolas | Gérant     | 700

Et je voudrais rajouter une colonne CPT pour obtenir ceci :

Code :

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

1
2
3
4
5
6
7
8
 
MATRICULE      | NOM     | PRENOM  | RANK       | SumOfMT | CPT
20             | TITI    | Claude  | Ass.Com    | 300     | 1
15             | TATA    | Daniel  | Ass.Com    | 200     | 2
3              | TOTO    | Paul    | Commercial | 1000    | 1
1              | RIRI    | Jean    | Commercial | 800     | 2
4              | FIFI    | Louis   | Commercial | 500     | 3
16             | DUBOSS  | Nicolas | Gérant     | 700     | 1

J'ai beau chercher sur le net depuis quelques jours, je n'arrive pas à créer le bon module (ou fonction) pour faire cette satané boucle.
Je pensais que ma solution était dans Dcount mais je ne comprend pas comment faire.

Je précise que ma version d'Access est US

!HELP

[bernardmichel]

Hello !

Quel est le but de ta requête ? Affichage ? Impression ? Alimenter un formulaire ?
Si son but n'est pas d'alimenter un formulaire, tu peux biaiser le problème en créant un état avec ta requête. Il te suffit dès lors de créer un regroupement sur RANK puis appliquer la technique de numérotation des lignes (voir ci-dessous)

Dans la zone "Détail" de ton état, tu crées une zone de texte que tu vas nommer "Compteur" (par exemple) puis, comme "Source contrôle", tu vas écrire =1 puis tu vas sélectionner "Cumul" : "Par groupe"

Voilà, il me semble que cela devrait marcher comme ça... mais bien sûr, si tu dois alimenter un formulaire... c'est ailleurs qu'il faudra chercher

[vodiem]

tu devrais regarder la discution ici
le 100%SQL ici ou au premier post de la discution.
mais en sql il te faut un champ strictement ordonné. sinon le vba s'impose comme la solu la plus approprié ici
bien sur à adapter à ton cas qui est moins restrictif.

[RichardR]

tu devrais regarder la discution ici
le 100%SQL ici ou au premier post de la discution.
mais en sql il te faut un champ strictement ordonné. sinon le vba s'impose comme la solu la plus approprié ici
bien sur à adapter à ton cas qui est moins restrictif.

Bonjour à tous,

Merci vodiem, j'avais déjà repérer le topic de la course de chevaux, notament le code vba mais je n'ai pas réussi à l'appliquer à mon cas

Mon but final étant pour le moment d'afficher les n plus grosses dépenses par RANK.

Un TOP n en sous-requête étant particulièrement lent apparement, je pensais faire une première requête trié par RANK/MONTANT avec le compteur en boucle.
Ce compteur me permettant ensuite de limiter l'affichage

Code :

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

WHERE CPT =< n

via une autre requête.

[vodiem]

si tu veux en vba, voici l'adaptation à ton cas:

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
Sub creerIndice(monSQL, groupe, champIndice As String)
Dim r As DAO.Recordset
Dim prec As String
 
Set r = CurrentDb.OpenRecordset(monSQL)
 
prec = ""
i = 1
While Not r.EOF
    If prec <> r.Fields(groupe) Then
        i = 1
        prec = r.Fields(groupe)
    End If
 
    r.Edit
    r.Fields(champIndice) = i
    r.Update
 
    i = i + 1
    r.MoveNext
Wend
End Sub

dans un module à part.

puis, tu appels:

Code :

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

1
2
maRequete="SELECT [COLL].indice, [COLL].MATRICULE, [COLL].NOM, [COLL].PRENOM,... ORDER BY [COLL].RANK, Sum([FRAIS].MT) DESC;"
creerIndice(maRequete,"RANK","indice")

en créant au préalable un champ numérique "indice" dans ta table [COLL].