Discussion :

[fastpulse]

Bonjour,

J'ai un petit soucis de syntaxe sur Le Order by , quelle est la bonne syntaxe:

Code :

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

1
2
3
4
5
6
7
8
SQL = "SELECT [Demande d'achat].N°, [Demande d'achat].[N° de DC], [Demande d'achat].[N° de DA], [Demande d'achat].[Prix total], "
SQL = SQL & "Fournisseurs.Fournisseur, Imputation.Imputation, "
SQL = SQL & "Demandeur.Demandeur FROM Imputation "
SQL = SQL & "INNER JOIN (Fournisseurs INNER JOIN (Demandeur INNER JOIN [Demande d'achat] "
SQL = SQL & "ON Demandeur.N° = [Demande d'achat].[Demandeur N°]) "
SQL = SQL & "ON Fournisseurs.[N° Fournissuer] = [Demande d'achat].[Fournisseur N°]) "
SQL = SQL & "ON Imputation.N° = [Demande d'achat].Imputation Where [Demande d'achat].N°<>0 "
SQL = SQL & "ORDER BY [Demande d'achat].[N° de DC] ASC"

Merci pour votre aide

[Lou Pitchoun]

Salut,


C'est normal ça :

Code :

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

"SELECT [Demande d'achat].N°, [Demande d'achat].[N° de DC],

Je ne vois pas de problème sur le ORDER BY

[fastpulse]

j'ai résolu le problème car le ordre by était mal placé

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
23
24
25
26
27
28
SQL = "SELECT [Demande d'achat].N°, [Demande d'achat].[N° de DC], [Demande d'achat].[N° de DA], [Demande d'achat].[Prix total], "
SQL = SQL & "Fournisseurs.Fournisseur, Imputation.Imputation, "
SQL = SQL & "Demandeur.Demandeur FROM Imputation "
SQL = SQL & "INNER JOIN (Fournisseurs INNER JOIN (Demandeur INNER JOIN [Demande d'achat] "
SQL = SQL & "ON Demandeur.N° = [Demande d'achat].[Demandeur N°]) "
SQL = SQL & "ON Fournisseurs.[N° Fournissuer] = [Demande d'achat].[Fournisseur N°]) "
SQL = SQL & "ON Imputation.N° = [Demande d'achat].Imputation Where [Demande d'achat].N°<>0 "
 
'If Not Me.chkAuteur Then
    'SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
'End If
If Not Me.chkImputation Then
    SQL = SQL & "And Imputation.Imputation = """ & Me.cmbRechImputation & """"
End If
'If Not Me.chkResume Then
    'SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
'End If
If Not Me.chkDemandeur Then
    SQL = SQL & "And Demandeur.Demandeur = """ & Me.cmbRechDemandeur & """"
End If
If Not Me.chkFournisseur Then
    SQL = SQL & " And Fournisseurs.Fournisseur = """ & Me.cmbRechFournisseur & """"
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & "ORDER BY [Demande d'achat].[N° de DC] ASC"
SQL = SQL & ";"

merci pour ta réponse