Discussion :

[pipoket]

Salut. Voici ma question : j'ai un champ points(numérique) dans ma table personnes et j'aimerais faire un update de ce champ pour que les points des différentes personnes se resserrent à un point de différence tout en gardant l'ordre initial par points.

La solution trouvée jusqu'ici est la suivante mais ça m'affiche une erreur: "L'opération doit utiliser une requête qui peut être mise à jour."

Code :

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

1
2
3
4
5
UPDATE personnes SET position = (
    SELECT (SELECT COUNT(position) FROM personnes AS tableAlias WHERE position <  personnes.position)+1 AS Classement
    FROM personnes
    ORDER BY position;
)

...et pourtant la requête SELECT me renvoie bien une suite correcte.

[Invité]

Bonjour

Salut. Voici ma question : j'ai un champ points(numérique) dans ma table personnes et j'aimerais faire un update de ce champ pour que les points des différentes personnes se resserrent à un point de différence tout en gardant l'ordre initial par points.

Excuses moi, mais je n'ai rien compris, je ne pense pas être le seul.

Pourrais-tu détailler un peu plus (avec des données en entrée et en sortie comme exemple).

Starec

[pipoket]

Mon champ points contient les points qui s'accumulent au cours de l'année pour les personnes. A la fin de l'année, j'aimerais, tout en conservant l'ordre des personnes par points, mettre à jour le champ points avec des valeurs continues: la personne qui a le plus de points=1000, le 2me=999, le 3me=998, le 4me=999. Voilà, j'espère que c'est plus clair...

[Siguillaume]

Bonjour pipoket et bienvenue sur le forum!
ce que nous voulons savoir, c'est :
qu'est ce que tu définis par resserrer des points?

Essaie d'envoyer:
1->une liste de personnes avec leurs points
2->un exemple de résultats à obtenir de cette liste à partir de ta requête.

Merci

[pipoket]

Origine:
personnes points
personne1 1796
personne2 790
personne3 1807
personne4 1000

Résultat à obtenir:
personnes points
personne3 1000
personne1 999
personne4 998
personne2 997

L'ordre du résultat est déterminé par l'ordre des points d'origine.

[Siguillaume]

A voir le résultat en sortie et les éléments à l'origine, le classement ne se fait que suivant le nombre de points.
Si c'est vraiment le cas, je pense que le

Code :

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

order by points

est largement suffisant pour la requête.
A moins que l'opération de mise à jour des points ne suive une certaine logique qui doit être exécutée avec les requêtes

[pipoket]

Quelque chose comme ça?

Code :

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

1
2
3
4
5
UPDATE personnes SET position = (
    SELECT position
    FROM personnes 
    ORDER BY position;
)

Mais ceci ne va pas me permettre d'affecter les valeurs 1000, 999, 998, 997,...

L'idée serait de faire

Code :

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

1
2
3
4
5
6
UPDATE personnes SET position = (
    SELECT (SELECT COUNT(position) FROM personnes AS tableAlias WHERE position <  personnes.position)+1 AS Classement
    FROM personnes
    ORDER BY position;
)
ORDER BY position;

Le SELECT interne me renvoie bien une liste continue de nombres de 1 à mon nombre de personnes (à modifier pour obtenir 1000 à 1000-nombre de personnes), mais un UPDATE ORDER BY n'existe pas si je ne me trompe pas... Je crois que je vais me tourner vers VBA pour faire une boucle.

[pipoket]

Voici une solution en VBA qui fonctionne.

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
Max = DMax("position", "personnes") 'position la plus haute
Min = DMin("position", "personnes") 'position la plus basse
Dim i As Integer 'pour la boucle
Dim i2 As Integer 'pour incrémentation de la position
 
i2 = 1000 'première valeur de position à insérer
 
For i = Max To Min Step -1 'boucle de la position la plus haute à la plus basse
 
    Dim Requete As String
    Dim DB As DAO.Database
    Requete = "UPDATE personnes SET position = (" & i2 & ") WHERE position = " & i & ";"
    Set DB = CurrentDb
    DB.Execute Requete
 
    If DB.RecordsAffected > 0 Then 'si un update a eu lieu: la position s'incrémente de -1
        i2 = i2 - 1
    End If
 
Next i

Merci de vous être penchés sur mon problème !

[Siguillaume]

mais un UPDATE ORDER BY n'existe pas si je ne me trompe pas... Je crois que je vais me tourner vers VBA pour faire une boucle.

effectivement VBA serait nettement mieux.

Mais je n'arrive toujours pas à voir la logique de mise à jour des données. Le premier doit être à 1000, et on décrémente par pas de 1 jusqu'au dernier. Est ce le cas?

[pipoket]

Exactement: voir le post précédent.