Discussion :

[nico62370]

Bonjour,

J'essaie de créer une recherche sur critère dans un formulaire indépendant.

A partir d'une zone de texte (txtNom), l'utilisateur saisi tout ou partie du nom d'un client et le résultat s'affiche dans une zone de liste (lstResult).

Je me suis inspiré des tuto et autres post mais je n'arrive pas à mes fins. Voici le code ébauché :

Code :

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

1
2
3
4
5
6
7
8
Private Sub btnSearch_Click()
 
Dim sql As String
sql = "SELECT * FROM Clients WHERE NomFamille = '*" & Me.txtNom & "*'"""
sql = sql & ";"
Me.lstResult.RowSource = sql
 
End Sub

Je ne vois pas ce qui ne fonctionne pas. Merci de votre aide.

[jimay]

salut,

tu n'es pas loin

Code :

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

1
2
3
4
5
6
7
Private Sub btnSearch_Click()
 
Dim sql As String
sql = "SELECT * FROM Clients WHERE NomFamille LIKE '*" & Me.txtNom & "*'"
Me.lstResult.RowSource = sql
 
End Sub

[nico62370]

salut,

tu n'es pas loin

Code :

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

1
2
3
4
5
6
7
Private Sub btnSearch_Click()
 
Dim sql As String
sql = "SELECT * FROM Clients WHERE NomFamille LIKE '*" & Me.txtNom & "*'"
Me.lstResult.RowSource = sql
 
End Sub

Je n'ai effectuée aucune modif des propriétés de la liste de données... comme c'est un contrôle indépendant, je suppose que c'est bon.
Car en essayant cette manip, je n'ai toujours aucun info dans lstresult.

[nico62370]

çà marche....
j'ai revérifié les guillemets et autres apostrophes. merci.