Discussion :

[Lolodic]

Bonjour à toutes et tous,

Sur le coup, je sèche . Quel code SQL dois je insérer dans ma requête de mise à jour pour que, dans l'exemple qui suit, les enregistrements repris sous la Division 1, indiquent un "1" dans la colonne "Division", un "2" pour ceux qui sont en dessous de la ligne où il y a un enregistrement "Division" avec le n°2, ect...





Merci la communauté !

Loïc

[Jean-Philippe André]

Salut,

peut-on le faire en VBA plutôt qu'en SQL, ou bien est-ce un exercice type ?

[Lolodic]

Bonsoir Jean-Philippe,

C'est un cas dans une partie de ma base.
C'est important pour un reporting.
On eut donc contourner le problème, même en VBA .

Loïc

[f-leb]

Salut tous,

J'aime bien le SQL casse-tête

Sur le coup, je sèche . Quel code SQL dois je insérer dans ma requête de mise à jour pour que, dans l'exemple qui suit, les enregistrements repris sous la Division 1, indiquent un "1" dans la colonne "Division", un "2" pour ceux qui sont en dessous de la ligne où il y a un enregistrement "Division" avec le n°2, ect...

En SQL ou VBA, il faudra quand même un critère de tri pour déterminer l'enregistrement qui est "sous" l'autre. Tes enregistrements sont-ils triés par ordre alphabétique pour les libellés ? Sinon, as-tu un champ date ou autre chose pour classer tes enregistrements ?

[Lolodic]

Bonsoir F-Leb,

Oui, j'ai un ordre qui se crée (attention, ce n'est pas une clef primaire):



Loïc

[Jean-Philippe André]

OK,

mon approche algorithmique en VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'...ton SQL Actuel dans un recordset RS
Dim Valo as Integer
Do until RS.EOF
If RS("Colonne").Value= 0 Then
RS.Edit
RS("Colonne").VAlue= Valo 
RS.Update
Else
Valo =RS("Colonne").VAlue
End if
RS.MoveNext
Loop

[f-leb]

version SQL, avec un n° d'ordre cela devrait déjà être moins casse-tête.

Code sql :

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

1
2
3
4
5
6
7
 
SELECT T.Libellé_articles, T.Division,
(SELECT max(U.Division)
        FROM laTable U
        WHERE U.ordre<=T.ordre) as NewDivision
FROM laTable T
ORDER BY T.ordre

La nouvelle colonne calculée retourne-t-elle le bon résultat ?

[Lolodic]

Sorry, mais a marche pas .
Mais peut-être me suis je mal fait comprendre.
Toutes ces infos viennent de la même table, et voici ce que souhaiterai :



Mon PC est dèjà passé 4 fois par la fenêtre

Merciiiiiiiiiiiiiiiiiiiiiiii

Loïc

[Jean-Philippe André]

Bonjour,

as-tu essayé avec le code VBA ? Quel en est le résultat, en quoi ne te convient-il pas ?

Merci

[f-leb]

C'est pourtant bien ce que j'obtiens me semble-t-il avec la colonne calculée NewDivision :


Non ?

[Lolodic]

Salut F-Leb,
Salut Jean-Phiilippe,

Merci d'être revenu vers moi .

F-Leb:

Je dois avouer ne pas bien comprendre ton code. Vu que je n'ai qu'un seule table, je ne comprends pas cette ligne-ci:

Code SQL :

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

        WHERE U.ordre<=T.ordre) as NewDivision

Jean-Philippe:

J'ai message d'erreur à ce niveau-ci:

Code :

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

Do until RS.EOF

==> Pour finir, j'ai trouvé une solution avec un jeu de requêtes successif (7 pour être précis... ). C'est moins propre, mais c'est plus dans mes compétences .

[f-leb]

Bonsoir,

Je dois avouer ne pas bien comprendre ton code. Vu que je n'ai qu'un seule table, je ne comprends pas cette ligne-ci:

Code SQL :

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

WHERE U.ordre<=T.ordre) as NewDivision

Je n'ai qu'une seule table également (nommée laTable), mais elle apparait deux fois dans la requête avec les alias T et U déclarés dans la clause FROM(des noms de remplacement) :

SELECT T.Libellé_articles, T.Division,
(SELECT max(U.Division)
        FROM laTable U
        WHERE U.ordre<=T.ordre) as NewDivision
FROM laTable T
ORDER BY T.ordre

Quand j'ai un doigt sur un enregistrement de la table avec l'alias T, je peux comme ça aller chercher avec mon autre doigt dans une version de la table avec l'alias U le plus grand numéro de division parmi les enregistrements d'ordre inférieur.