Discussion :

[yieiii]

Bonjour, je filtre une zone de liste à l'aide de ce code ci :

Code :

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

    Me.ListeClient.RowSource = "Select Clients.[N° Client], Clients.Civilité, Clients.Nom, Clients.Prénom, Clients.Rue, Clients.N°, Clients.CP, Clients.Ville, Clients.Téléphone, Clients.GSM, Clients.[Adresse E-mail], Clients.[Compte bancaire], Clients.Statut FROM [Clients] WHERE [N° Client]= Forms![Client]![BoxN°Client]"

J'essaye d'arriver à ce que la recherche fonctionne sans taper la valeur entière voir exacte.

Ex: Recherche Nom : Pierre en tapant Pi ou erre

J'ai lu qu'il était question de rajouter '*' mais je ne vois pas où !

merci

[cluster26]

Bonjour,

J'ai ce type de requête qui fonctionne bien.

Code sql :

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

SELECT biens.*, achats.fournisseur FROM achats WHERE (((achats.fournisseur) Like "*" & [Formulaires]![frmconsultation_achats]![fourn] & "*"));

Si tu peux l'adapter dans ton code vba !...

[cluster26]

Complément de réponse.

Il faut préciser que si tu saisis erre, tu sélectionnera tous les enregistrements qui commence, finisse, ou comporte erre

[yieiii]

merci pour ton conseil, j'ai une question car cela ne fonctionne pas !

partant de ça :

Code :

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

Me.ListeClient.RowSource = "Select Clients.[N° Client], Clients.Civilité, Clients.Nom, Clients.Prénom, Clients.Rue, Clients.N°, Clients.CP, Clients.Ville, Clients.Téléphone, Clients.GSM, Clients.[Adresse E-mail], Clients.[Compte bancaire], Clients.Statut FROM [Clients] WHERE [N° Client]= Forms![Client]![BoxN°Client]"

transformé en ça :

Code :

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

Me.ListeClient.RowSource = "SELECT Clients.[N° Client], Clients.Civilité, Clients.Nom, Clients.Prénom, Clients.Rue, Clients.N°, Clients.CP, Clients.Ville, Clients.Téléphone, Clients.GSM, Clients.[Adresse E-mail], Clients.[Compte bancaire], Clients.Statut FROM [Clients] WHERE [N° Client] LIKE " * " & Forms![Client]![BoxN°Client] & " * " "

Cela ne fonctionne pas car ce code n'est pas à mettre entre "" après

Code :

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

Me.ListeClient.RowSource =

?

Ou l'ai-je simplement mal construit ?

[cluster26]

bonsoir,

Et si tu rédiges ta requête de cette façon :

Code sql :

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

Me.ListeClient.RowSource = "SELECT Clients.[N° Client], Clients.Civilité, Clients.Nom, Clients.Prénom, Clients.Rue, Clients.N°, Clients.CP, Clients.Ville, Clients.Téléphone, Clients.GSM, Clients.[Adresse E-mail], Clients.[Compte bancaire], Clients.Statut FROM [Clients] WHERE [N° Client] LIKE '*' & Forms![Client]![BoxN°Client] & '*'"

Tu coinces encore ?

[yieiii]

je suis un étourdi au lieu de '*', j'avais mis "*", pas étonnant que ça ne fonctionnait !

A présent c'est merveilleux !

GRAND MERCI