Discussion :

[bétécé]

Re-Bonjour, je relance mon message car il y avait une erreur dans le précédent :
Je suis en train de terminer la création d'une BDD access avec un formulaire qui permet une recherche multi-critères. Pour cela, je me suis inspirée du tutoriel de caféine.
Mais il me reste un détail que je n'arrive pas à régler : j'aimerais trier les résultats obtenus d'après un champ déterminé.
Par exemple, dans la base recherche multi-critères de caféine, je voudrais que les enregistrements correspondant à ma requête apparaissent classés par ordre alphabétique de leur titre.
J'ai trouvé une solution "temporaire" : une fois que j'ai lancé ma requête, je clique sur mon tableau de résultats avec le bouton droit de la souris et je clique sur "propriétés". Dans contenu, j'ai déja :

Code sql :

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

SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 And Medias!Famille = 'BOULE & BILL';

et je rajoute à la suite : order by medias.titre

Ca marche, mais dès que je ferme le formulaire, cet ajout s'efface.
Comment pourrais-je mettre l'équivalent dans le code, pour que je n'ai pas à le resaisir à chaque fois ?

[Dolphy35]

Bonjour,

Comment s'ouvre ton Formulaire ?

Après sélection dans un autre Form ?

Comment est defini la source de ton Form ?

Merci.

Dolphy

[loufab]

Bonjour,

Ne connaissant pas le code de cafeine par coeur je dirais à la fin de la génération du Where juste avant l'affectation à la zone liste.

Cordialement,

[bétécé]

Voila le code de caféine :

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
29
30
31
32
33
34
35
36
Me.lstResults.RowSource = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 "
 
If Not Me.chkAuteur Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
End If
If Not Me.chkFamille Then
    SQL = SQL & "And Medias!Famille = '" & Me.cmbRechFamille & "' "
End If
If Not Me.chkResume Then
    SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
End If
If Not Me.chkTitre Then
    SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "
End If
If Not Me.chkType Then
    SQL = SQL & "And Medias!Type = '" & Me.cmbRechType & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

Dois-je ajouter simplement

Code :

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

 order by medias.auteur

?

[cafeine]

Hello,

il faut juste modifier cette ligne

Code :

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

SQL = SQL & " ORDER BY Medias.Auteur ;"

[Oleff]

Code :

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

sql = sql & " order by media.auteur;"

Ne pourrait-il pas suffire ?

Arf doublé par Caféine

[bétécé]

C'est tout à fait ce que je cherchais !
Merci beaucoup pour votre aide !
Je vais pouvoir maintenant vous laisser tranquille : ma base est maintenant opérationnelle, grâce à vos nombreux coups de pouce ...