Discussion :

[Swiip38]

Bonjour à tous,

Avant de commencer, je voudrais vous dire que j'ai fais des recherches sur le forum, entre autres, avant de poster ici, mais que malheureusement elles se sont avérées infructueuses.

Je suis actuellement en train de créer un formulaire (cf. image ci dessous) permettant de rechercher des entrées au sein d'une table appelé film qui à plusieurs champ (film_clef, film_nom, film_format_video, film_taille, film_emplacement).



Malheureusement, tout ne marche pas comme je l'aurais souhaité. Notamment au niveau du sous formulaire recherche_film_sous-formulaire qui, lorsque je fait une recherche avec la zone de texte TexteRecherche, ne m'affiche plus les résultats par ordre alphabétique mais par ordre d'ajout dans la table film. ci-dessous le code de la zone de texte TexteRecherche :

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
Private Sub TexteRecherche_Change()
    Dim QRY As String
        QRY = "SELECT  * FROM film " _
              & "WHERE film_nom Like ""*" & Replace(TexteRecherche.Text, """", """""") & "*"";"
 
    If Len(TexteRecherche.Text) > 0 Then
        Me.[recherche_film_sous-formulaire].Form.RecordSource = QRY
        Me.ListeFormatVideo.RowSource = "SELECT ""-- Tous --"" FROM [film] UNION SELECT [film_format_video] FROM [film] WHERE film_nom Like ""*" & Replace(TexteRecherche.Text, """", """""") & "*"" GROUP BY [film_format_video]"
        Me.ListeEmplacement.RowSource = "SELECT ""-- Tous --"" FROM [film] UNION SELECT [film_emplacement] FROM [film] WHERE film_nom Like ""*" & Replace(TexteRecherche.Text, """", """""") & "*"" GROUP BY [film_emplacement]"
    Else
        Me.[recherche_film_sous-formulaire].Form.RecordSource = "SELECT [film_clef], [film_nom], [film_format_video], [film_taille], [film_emplacement] FROM [film] ORDER BY [film_nom], [film_format_video], [film_taille], [film_emplacement]"
        Me.ListeFormatVideo.RowSource = "SELECT ""-- Tous --"" FROM [film] UNION SELECT [film_format_video] FROM [film] GROUP BY [film_format_video]"
        Me.ListeEmplacement.RowSource = "SELECT ""-- Tous --"" FROM [film] UNION SELECT [film_emplacement] FROM [film] GROUP BY [film_emplacement]"
    End If
 
End Sub

Pour que le tri ce fasse, comme sur la ligne L11 du code ci-dessus, je me suis dis qu'il fallait utiliser la fonction ORDER BY au niveau de la définition de la variable QRY (voir code ci-dessous, L3 & L4)

Code :

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

1
2
3
        QRY = "SELECT  * FROM film " _
              & "WHERE film_nom Like ""*" & Replace(TexteRecherche.Text, """", """""") & "*"";" _
              & "ORDER BY [film_nom], [film_format_video], [film_taille], [film_emplacement]"

Ou alors appliquer directement le tri à la ligne L7 (cf. ci-dessous)

Code :

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

        Me.[recherche_film_sous-formulaire].Form.RecordSource = QRY ORDER BY [film_nom], [film_format_video], [film_taille], [film_emplacement]

Malheureusement pour moi, aucune des deux solutions ne marche ... et, n’étant ni développeur de métier, ni même programmateur amateur, je bloque totalement sur la solution à adopter pour faire en sorte que cela marche.

Alors ... un grand merci pour ceux (et celles bien sur) qui aurons des réponses à m'apporter

[Swiip38]

Pour ceux que ça intéresse, le problème a été résolu ici : http://www.developpez.net/forums/d14...tion-order-by/