Reprise du message précédent :

C'est la solution que je t'ai proposé. Tu as une requête enregistrée, dans laquelle t'as aucune limite. Et après dans la propriété Rowsource, tu met le nom de la requête, et ça marche

une question car en attendant je suis en train d essayer ta solution mais le  
Dim QryPouet As QueryDef
Set QryPouet = CurrentDb.QueryDefs("ma_requete" )
 
tu le met bien dans le Private Sub RefreshQuery()???
 
car j ai toujours le meme message:
"type defini par l utilisateur non defini"
meme en mettant  
Dim QryPouet As dao.QueryDef
Set QryPouet = CurrentDb.QueryDefs("ma_requete" )

Non, le RowSource ne contient pas le SQL. C'est la requête qui le contient, et le RowSource contiendra le nom de la requête

Il y a une référence qui manque S'il n'a pas mis le DAO en majuscule, c'est qu'il n'y a pas la bonne référence DAO

oui je suis d'accord mais a la requete de base on ajoute d'autre arguments comment dans le rowSource tu peux concatener le nom de la requete et les arguments?

et tu fais comment pour la reference dao?

Je crois que t'as rien compris...

je pense.....

Au départ, t'as mis tout ton SQL dans le RowSource. Ce qu'il faut faire, c'est mettre tout ton SQL dans une requête enregistrée. Et après dans le RowSource tu met le nom de cette requête.
 
Pour les référence, c'est Outils\Référence je crois, et y'a dans la liste Microsoft DAO 3.6

voila ce que j'ai compris:
 
tu declare
Dim SQL As DAO.QueryDef  
Set SQL = CurrentDb.QueryDefs("ma_requete" )
 
ensuite pour chaque argument tu fais:
 
If Me.chkAuteur Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
 
c'est ca?
 
et apres dans le rowSource tu met:
Me.lstResults.RowSource = SQL
End If

hein??? explique comment tu fais car je suis largué!

Presque
 

c est tout?
 
au fait je trouve pas la reference a DAO...

C'est tout ouais. Si tu trouves pas la référence, c'est qu'il y a problème "Microsoft DAO 3.6 Object Library"

en fait je viens de faire fonctionner l'exemple mais uniquement si je n'utilise pas toutes les conditions...
mais ta solution peux se trouver forte utile...

j'ai trouvé pkoi ca marchait pas avec toutes les condition en fait c etait pas ca mais dans un de mes champd il y avait une apostrophe donc ca fermait mon like.... j'ai pas encore resolu le probleme car j'y reflechi je me demande pas s il n y a pas de balise qui permettrai d'accepter n'importe quel caractere contenu entre elles su style \ aazaz"*//-*-/"azaza   \

Si t'as des quotes, faut faire genre :

tu veux dire comme ca:
 
If Me.chkAuteur Then
    SQL = SQL & "And mon_champ like '"" & Me.txtAuteur & ""' "
End If

voilà, faut les doubler à l'intérieur

je viens d 'essayer mais ca ne marche pas...

j'ai trouvé une autre solution qui fonctionne Merci pour tous vos conseils...
 

je vais rester sur le meme sujet et j'ai une question...
 
dans le meme genre de formulaire multicritere j'ai une petit soucis de comparaison avec des pourcentages...
 
 
voile comment je procede:
 
SQL = "select * from table where comdition blabla
If Me.chekbox Then
    SQL = SQL & "And mon_champ " & Me.cmpCompare & "'" & Me.ma_valeur_selectionnée & "' "
End If
Me.lstresults.RowSource = SQL
Me.lstresults.Requery
 
 
j'ai mis comme valeurs 0% 25% 50% 100% mais avec la comparaison > 100% il n'a pas l'air de selectionner 100%
idem pour > 75% il ne maffiche que les pourcentage 75% mais pas les 100%
 
Merci de votre aide...

 
Essaye de mettre : comparaison >= 100%  ( supérieur ou égal à .. ) car en effet, si tu met > 100% , il le prendra comme une condition fausse ..