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 :
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
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
Ou alors appliquer directement le tri à la ligne L7 (cf. ci-dessous)
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]"
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.
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]
Alors ... un grand merci pour ceux (et celles bien sur) qui aurons des réponses à m'apporter
Partager