Erreur synthaxe ORDER BY SUBSTRING [Résolu]

[FtF Nemesis]

Bonjour à tous,
J'ai un problème avec une requête qui doit me trier des "string" avec l'avant dernier caractère (lettre) et le dernier (nombre). Genre

110 AB 1 A2
110 AB 1 C1
110 AB 1 A1
110 AB 1 F1

doit devenir

110 AB 1 A1
110 AB 1 A2
110 AB 1 C1
110 AB 1 F1

Et encore, je ne veux même pas qu'il soit classé par lettre, mais que les code avec la même lettre soient côte à côte. Donc même ceci serai bien :

110 AB 1 C1
110 AB 1 A1
110 AB 1 A2
110 AB 1 F1

On m'a conseillé ce code :

Code :

CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY substring ([fldRefDosEss_tblPrlv], from 10 to 10);"

Mais il me renvoi :Message erreur 3075, "Erreur de synthaxe, opérateur absent dans l'expression " substring ([fldRefDosEss_tblPrlv], from 10 to 10);".

Merci pour votre aide

Hadrien

[pc75]

Bonjour,

Et avec la fonction Mid() à la place de substring() ?

[FtF Nemesis]

Non, ça ne marche pas. Je pense que SQL ne reconnait pas Mid().

[pc75]

Re,

Peux-tu nous montrer ce que tu as essayé ?

[FtF Nemesis]

Voilà, les code en vert ne fonctionnent pas :

Code :

1
2
3
4
5
6
CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ");"
'CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY SUBSTRING(fldRefDosEss_tblPrlv from 10 to 10); "
'CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY MID(fldRefDosEss_tblPrlv,9,2); "
 
Set adoQryTri = CurrentDb.QueryDefs("strQRYd")
Set adoFindAll = adoQryTri.OpenRecordset

Merci pour ton aide, la syntaxe du lien SQL/VBA est vraiment insupportable.

[Richard_35]

Bonjour à tous,

Envoyé par FtF Nemesis

.../... la syntaxe du lien SQL/VBA est vraiment insupportable.

==> Suggestion :

1. travailler avec l'assistant pour mettre la requête au point (sans variable) ;
2. créer un champ calculé pour isoler ton critère de tri ;
3. récupérer le code généré (mode SQL) dans VBA.

Quelques pistes (avec l'assistant) :

Code :

1
2
3
4
5
string          Expr1 : ExtracChaîne([string];10;1)
110 AB 1 A2     A
110 AB 1 C1     C
110 AB 1 A1     A
110 AB 1 F1     F

[FtF Nemesis]

Merci pour votre aide,

Je viens d'essayer Mid ou extracChaîne :

Code :

1
2
3
4
5
CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY ExtracChaîne(fldRefDosEss_tblPrlv;9;1);"
 
CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY Mid(fldRefDosEss_tblPrlv;9;1);"
 
CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY Expr1 : ExtracChaîne([fldRefDosEss_tblPrlv];9;1);"

Les trois ne fonctionnent pas. Le message d'erreur m'indique "erreur de synthaxe, opérateur manquant" dans la partie après ORDER BY. Il doit prendre le champ fldRefDosEss_tblPrlv pour une variable.

[Richard_35]

Bonjour FtF Nemesis,

As-tu

Envoyé par Richard_35

1. travailler avec l'assistant pour mettre la requête au point (sans variable) ;
2. créer un champ calculé pour isoler ton critère de tri ;

?

[FtF Nemesis]

J'ai aussi essayé avec le nom de la table devant le champ:

Code :

CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY ExtracChaîne(tblPrlv.fldRefDosEss_tblPrlv;9;1);"

en vain

[FtF Nemesis]

Pardon j'avais pas vu le message, je le fait et je reviens vers toi

[FtF Nemesis]

J'ai fait comme tu m'as dis, j'ai ajouté un champ supplémentaire avec la lettre du code dans ma table, et je tri par rapport à celui-ci et un autre (le numéro) qui existait déjà:

Code :

CurrentDb.CreateQueryDef "strQRYd", "SELECT * FROM tblPrlv WHERE ([fldRefDosEss_tblPrlv]= " & Chr(34) & valDos & Chr(34) & ") ORDER BY fldCodProd_tblPrlv,fldNumPrlv_tblPrlv;"

Merci beaucoup à vous pour votre aide

Hadrien