Problème avec Order by

[Myogtha]

Bonjour,

Voilà je cherche simplement a ce que ma requete soit classé par ordre croissant dans mon tableau "lstResults" mais je bloque dans l'ajout de ORDER BY à la fin de ma requete car il me mets une erreur 3075, de quoi ça peut venir.

Merci d'avance

Jim

Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT AffaireEtendu.ID_Affaire_Auto, AffaireEtendu.NumDevis, AffaireEtendu.Nom, AffaireEtendu.Initiale, AffaireEtendu.Statut, AffaireEtendu.SourceAf,  AffaireEtendu.Désignation, AffaireEtendu.Etape FROM AffaireEtendu WHERE (((AffaireEtendu.Statut)='Qualification' Or (AffaireEtendu.Statut)='En cours')) "
If Not Me.chkClient Then
    SQL = SQL & "And (((AffaireEtendu!Nom) = '" & Me.cmbRechClient & "') ORDER BY AffaireEtendu.Nom"
End If
If Not Me.chkCommercial Then
    SQL = SQL & "And ((AffaireEtendu!Initiale) = '" & Me.cmbRechCommercial & "') ORDER BY AffaireEtendu.Nom"
End If
If Not Me.chkEtape Then
    SQL = SQL & "And ((AffaireEtendu!Etape) like '*" & Me.cmbRechEtape & "*') ORDER BY AffaireEtendu.Nom"
End If
If Not Me.chkSource Then
    SQL = SQL & "And ((AffaireEtendu!SourceAf) = '" & Me.cmbRechSource & "') ORDER BY AffaireEtendu.Nom"
End If
If Not Me.chkDesignation Then
    SQL = SQL & "And ((AffaireEtendu!Désignation) like '*" & Me.txtRechDesignation & "*') ORDER BY AffaireEtendu.Nom"
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "AffaireEtendu", SQLWhere) & " / " & DCount("*", "AffaireEtendu")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

[micniv]

Insère la ligne

debug.print Sql

avant d'exécuter ta requete (et meme dans des points intermédiaires.
Tu verras exactement ce qui cloche dans ta requête, dans la fenêtre Execution

[turbo_cro]

moi, dans mon formulaire,

je fais un clic droit sur la liste
puis propriété
et dans source j'ajoute order by, à la fin de ma reqête

[Kloun]

Comme Micniv.
A mon avis, il y a plusieurs "Order by" dans ta requête.

[basshero816]

Salut,
Le problème, c'est que tu construis ta requête petit à petit, donc tu luio ajoute des morçeaux de String à chaque fois.
Mais en faisant cela, tu ajoutes à chaque fois le ORDER BY AffaireEtendu.Nom, alors qu'il ne faut l'ajouter qu'à la toute fin de l'instruction SQl, juste avant le ";".

Tu n'as donc qu'à enlever les 4 premiers ORDER BY AffaireEtendu.Nom.

@+

[Taoueret]

basshero816 a raison.

Le order by ne se fait qu'à la fin d'une requête SQL. Même si tu peux garantir qu'il ne passe toujours que dans un seul de tes 4 checks, le Order by doit se mettre après la clause Where.

[stigma]

Tu peux avoir plusieurs champs dans un ORDER

ORDER BY Nom, Prenom,.....

Et bien sûr à la fin de la requête.

[Myogtha]

Merci à tous,

Vous m'avez mis sur la voie, j'ai modifié :

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
 

par

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & "ORDER BY AffaireEtendu.Nom;"
 

Merci encore