Discussion :

[yfchauer]

Bonsoir à tous,
la requête ci-après me permet de me chercher tous les médias "commençant par...." et les afficher dans une liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub TxtRecherche_Change()
 Dim Requete As String
    Requete = "SELECT MediaID, TitreMedia, LibelleGenre, Rangement FROM T_Medias, T_Genres " _
         & "WHERE T_Medias.CodeGenre = T_Genres.GenreId AND TitreMedia Like '" & TxtRecherche.Text & "*';"
 
    If Len(TxtRecherche.Text) > 0 Then
        Me.LstRecherche.RowSource = Requete
    Else
        Me.LstRecherche.RowSource = ""
    End If
End Sub

Or, je veux une requête qui me permettra de trouver les titres de médias "contenant la chaine de caractères...."
Eg. Quand je saisis "Harry", il m'affiche Harry potter
Mais si je saisis "pott", il ne me renvoie aucun résultat.

Merci d'avance pour votre aide

[RobiPMS]

Bonsoir.
Il me semble que ceci devrait convenir :

Code :

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

1
2
3
Dim Requete As String
    Requete = "SELECT MediaID, TitreMedia, LibelleGenre, Rangement FROM T_Medias, T_Genres " _
         & "WHERE T_Medias.CodeGenre = T_Genres.GenreId AND TitreMedia Like '*" & TxtRecherche.Text & "*';"

Cordialement.

[yfchauer]

Salut RobiPMS,
Merci de la réponse, cela me convient parfaitement

[yfchauer]

je reviens sur ce sujet
car j'ai un petit souci
J'essaie d'améliorer mon formulaire de recherche
2 nouveaux champs "TxtAuteur" et "LstAuteur"
pour la recherche des auteurs de médias.

voici le code:

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
 
Private Sub TxtAuteur_Change()
 
    Dim req As String
 
        req = "SELECT AuteurID, (PrenomAuteur +'  '+ NomAuteur) AS Nom_Complet FROM T_Auteurs " _
            & "WHERE Nom_Complet LIKE '*" & TxtAuteur.Text & "*';"
 
 
    If Len(TxtAuteur.Text) > 0 Then
        Me.LstAuteur.RowSource = req
    Else
        Me.LstAuteur.RowSource = ""
    End If
 
 
End Sub

Dans le champ LstAuteur, il ne m'affiche rien
Si je supprime la concaténation et remplace par le nom ou le prénom de l'auteur
Il m'affiche le résultat attendu.
Pourrait-on me dire d'où viendrait le souci?
Merci d'avance

[RobiPMS]

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtAuteur_AfterUpdate()
Me.Refresh
    Dim req As String
 
        req = "SELECT AuteurID, [PrenomAuteur] +' '+ [NomAuteur] AS Nom_Complet FROM T_Auteurs " _
        & "WHERE ([PrenomAuteur]+' '+[NomAuteur]) Like '*" & [TxtAuteur] & "*'"
 
     If Len(TxtAuteur.Text) > 0 Then
        Me.LstAuteur.RowSource = req
    Else
        Me.LstAuteur.RowSource = ""
    End If
End Sub

Je viens de faire un essai et cela fonctionne bien.
Une actualisation est nécessaire après le changement du champ txtAuteur, et pour cela je préfère utiliser l'événement After Update plutôt que Change.
Une autre façon de procéder est de faire simplement une actualisation de la liste après mise à jour du champ txtAuteur, et d'attribuer à la liste sa source lorsqu'elle reçoit le focus.
Cordialement

[yfchauer]

Merci RobiPMS,
Cela fonctionne comme je veux