[SQL-VBA]tri par date dans access

Version imprimable

Hello
J'ai utilisé les exemples de code access de Cafeine pour ma base client cela fonctionnent très bien (voir lien ci-dessous)
http://cafeine.developpez.com/access...echerchemulti/

Cependant j'ai un petit problème pour effectuer un tri par date dans Private Sub RefreshQuery().

Voici ma ligne de code, je ne sais pas ou caser ORDER BY [RDV CLIENT].[Date RDV] DESC;
Code:

1 2 SQL = "SELECT [RDV CLIENT].[Numero],[RDV CLIENT].[Numenregistrement],[RDV CLIENT].[Identifiant],[RDV CLIENT].[Nom Client],[RDV CLIENT].[Intervenant],[RDV CLIENT].[Date RDV],[RDV CLIENT].[Heure Début RDV],[RDV CLIENT].[Heure Fin RDV],[RDV CLIENT].[Durée],[RDV CLIENT].[Type Reporting], [RDV CLIENT].[Type Intervention],[RDV CLIENT].[Catégorie],[RDV CLIENT].[Etat] FROM [RDV CLIENT] Where [RDV CLIENT]![Numero] <> 0 "
J'ai essayé avant et après le Where, ça marche pas.

Si quelqu'un a une idée.

Merci

10/02/2006, 18h30
b_steph_2

après ton from, je ne sais pas si la close where est obligatoire dans ce cas.
10/02/2006, 20h02
Tofalu

Le ORDER BY est toujours la dernière clause d'une requête SQL

Hello
La ligne

Code:

Where [RDV CLIENT]![Numero] <> 0

est obligatoire dans le contexte de mon formulaire.
Oui la ligne

Code:

ORDER BY [RDV CLIENT].[Date RDV] DESC

se trouve toujours à la fin dans une reqûete mais là ça ne fonctionne pas.
Pour vous faciliter la tâche voici le sub en entier pour vous donner une idée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT [RDV CLIENT].[Numero],[RDV CLIENT].[Numenregistrement],[RDV CLIENT].[Identifiant],[RDV CLIENT].[Nom Client],[RDV CLIENT].[Intervenant],[RDV CLIENT].[Date RDV],[RDV CLIENT].[Heure Début RDV],[RDV CLIENT].[Heure Fin RDV],[RDV CLIENT].[Durée],[RDV CLIENT].[Type Reporting], [RDV CLIENT].[Type Intervention],[RDV CLIENT].[Catégorie],[RDV CLIENT].[Etat] FROM [RDV CLIENT] Where [RDV CLIENT]![Numero] <> 0 "
 
 If chkNomclient Then
    SQL = SQL & "And [RDV CLIENT]![Nom Client] like '*" & Me.TxtNomClient & "*'"
 End If
 
 If Me.ChkIntervenant Then
    SQL = SQL & "And [RDV CLIENT]![Intervenant] = '" & Me.CmbIntervenant & "'"
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
 'Me.lblStats.Caption = DCount("*", "RDV CLIENT", SQLWhere) & " / " & DCount("*", "RDV CLIENT")
 Me.LstResults.RowSource = SQL
 Me.LstResults.Requery
 
End Sub

tri par date dans access

Code:

1
2
3
4
5
6
SQL = "SELECT [RDV CLIENT].[Numero],[RDV CLIENT].[Numenregistrement],[RDV CLIENT].[Identifiant],
[RDV CLIENT].[Nom Client],[RDV CLIENT].[Intervenant],[RDV CLIENT].[Date RDV],[RDV CLIENT].[Heure Début RDV],
[RDV CLIENT].[Heure Fin RDV],[RDV CLIENT].[Durée],[RDV CLIENT].[Type Reporting], [RDV CLIENT].[Type Intervention],
[RDV CLIENT].[Catégorie],[RDV CLIENT].[Etat] 
FROM [RDV CLIENT] 
WHERE ((([RDV CLIENT]![Numero]) Is Not Null))"

06/02/2007, 09h49
bétécé

Regarde mon post du 25 janvier : "Trier les réponses d'une recherche multicritère" : j'ai posé la même question.
Caféine m'a donné la solution : au lieu de

Code:

sql = sql & ";"

tu mets :

Code:

sql = sql & " order by [RDV client].[Date RDV] desc"

Ca marche ?