Discussion :

[SIGER_971]

Bonjour tout le monde !

Je ne suis pas un novice sous ACCESS, mais je ne suis pas un expert non plus ! La preuve :

Je voudrais, après avoir choisi un critère dans une liste déroulante, en appuyant sur un bouton "rechercher", afficher le résultat de la recherche dans un formulaire et/ou dans un état !

J'ai déjà essayé du RunSQL, des macros, mais ces 2 là ne prennent que des requêtes d'action !

Je ne sais pas si cette question a déjà été posé, mais je suis un peu pris par le temps !

Si vous avez des liens, du code, ou une info pour m'aider, je suis preneur !

Merci d'avance !

[Jean-Philippe André]

bonjour,
bienvenue sur DVP
tu as à ta disposition de nombreuses ressources, parmi lesquelles une
http://access.developpez.com/faq
et des tutoriaux http://access.developpez.com/cours
aussi je te recommande un peu de lecture
http://cafeine.developpez.com/access...echerchemulti/

[SIGER_971]

Merci jpcheck !
Ton dernier lien devrait pas mal m'aider !

Par contre, pour la FAQ, les cours, etc, j'ai déjà testé, mais lire des dizaines et des dizaines de pages, sans tomber forcément sur ce que l'on veut, est un peu harassant, surtout quand on a pas beaucoup de temps !

Mais merci quand même (et encore) !

Je le passe en "résolu" pour l'instant !

[SIGER_971]

Hello !

Bon, je ne vais pas être vache, et vous communiquer ma solution (je dis "ma" car j'ai fait un mix de divers solutions (pas forcément à mon problème ! ) et pondu un petit code ! ).

Alors :

Tout d’abord, créer une requête qui retourne tous les enregistrements, sans tris pour le moment (à part par ordre alphabétique), et avec tous les champs qui vous intéressent (ici, on nommera cette requête « requete_1 »).


Code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim sql As String
 
sql = "SELECT … FROM …"  ' met le code SQL de requete_1 dans sql
sql = sql & " WHERE (champ sur lequel se porte la recherche = ‘" & Me.listnom.Column(numéro de la colonne qui contient le critère de la recherche) & "’) " 
 
DoCmd.DeleteObject acQuery, "requete_1"  ' supprime la requete_1 
CurrentDb.CreateQueryDef "requete_1", sql  ' recrée la requete_1 avec le code SQL « sql » que l’on a écrit plus haut
 
Me.lstResults.RowSource = sql  ' définie la source de la zone de liste « lstResults » 
Me.lstResults.Requery

Voili voilou !
En espérant avoir aider certains !