Urgent Requête SQL et liste déroulante [Résolu]

Signaler
Messages postés
13
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
12 janvier 2006
-
Messages postés
13
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
12 janvier 2006
-
Bonjour à tous




Voilà mon problème:





J'ai un état lié à un formulaire indépendant permettant de définir les données à répertorier à partir de 5 listes déroulantes


J'aimerais savoir comment faire en sorte que si je choisis le critère
tous (donc aucun paramètre précis) cela renvoie tous les enregistrement.



Voici ma requête

SELECT RespCed, RespRep, Libelle,
NomContact, NomFamille, OrdreStatut, Cédant.Codecedant,
Repreneurs.CodeRepreneur, Month([ECenvoye]) AS ECenvoyé,
Month([ECrecu]) AS ECrecue, Month([PGenvoye]) AS PGenvoyé,
Month([Nomcommuniqué]) AS NomComm, Month([SignatureMiseenrelation]) AS
SignatureMER, Month([PremièreREncontre]) AS PremièreRen,
Month([Stoprelation]) AS StopRel, Remarque, StatutRap.CodeStatutRap,
Month([PremiereNegociation]) AS PremiereNego,
Month([SignatureProtocole]) AS SignatureProto

FROM cédant, repreneurs, StatutRap, RapprochementCedantRepreneur

WHERE cédant.RéfClient = RapprochementCedantRepreneur.Codecedant

And
repreneurs.[Référence Repreneurs] =
RapprochementCedantRepreneur.CodeRepreneur And StatutRap.CodeStatutRap
= RapprochementCedantRepreneur.CodeStatutRap

AND IIf(' "& TxtCodeRep &" ' ='Tous',Repreneurs.CodeRepreneur='is null or is not null',Repreneurs.coderepreneur='" & TxtCodeRep & "')"


Quand une valeur particulière est sélectionnée ca marche mais lorsque
l'on choisi "Tous" ca ne marche pas. Quel paramètre envoyer si je veux
tous les enregistrement?

J ai 4 autres listes déroulantes ou je doit faire la meme chose pour cet état.

Merci de m'aider


Nath

3 réponses

Messages postés
13
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
12 janvier 2006

Merci à tous les deux mais j'ai trouvé une autre solution. Votre aide
est tout de même super sympa; voilà la solution que j'ai trouvé :



[Report_Rapprochement
Edition].RecordSource = "SELECT RespCed, RespRep, Libelle, NomContact,
NomFamille, OrdreStatut, Cédant.Codecedant, Repreneurs.CodeRepreneur,
Month([ECenvoye]) AS ECenvoyé, Month([ECrecu]) AS ECrecue,
Month([PGenvoye]) AS PGenvoyé, Month([Nomcommuniqué]) AS NomComm,
Month([SignatureMiseenrelation]) AS SignatureMER,
Month([PremièreREncontre]) AS PremièreRen, Month([Stoprelation]) AS
StopRel, Remarque, StatutRap.CodeStatutRap,
Month([PremiereNegociation]) AS PremiereNego,
Month([SignatureProtocole]) AS SignatureProto " & _

"FROM cédant, repreneurs, StatutRap, RapprochementCedantRepreneur " & _


"WHERE cédant.RéfClient = RapprochementCedantRepreneur.Codecedant And
repreneurs.[Référence Repreneurs] =
RapprochementCedantRepreneur.CodeRepreneur And StatutRap.CodeStatutRap
= RapprochementCedantRepreneur.CodeStatutRap " & _


"AND IIf('" & TxtCodeRep &
"'='Tous',Repreneurs.coderepreneur='is null'or'is not
null',Repreneurs.coderepreneur='" & TxtCodeRep & "') " & _


"AND IIf('" & TxtCodeCed & "'='Tous',cédant.codecedant='is
null'or'is not null',cédant.codecedant='" & TxtCodeCed & "') "
& _


"AND IIf('" & TxtCodeStatRap &
"'='Tous',StatutRap.CodeStatutRap='is null'or'is not null',iif('" &
TxtCodeStatRap & "'='Sauf terminé',StatutRap.CodeStatutRap<>
'FIN',StatutRap.CodeStatutRap='" & TxtCodeStatRap & "')) "
& _


"AND IIf('" & TxtRespCed & "'='Tous',Cédant.RespCed='is
null'or'is not null',Cédant.RespCed='" & TxtRespCed & "') "
& _


"AND IIf('" & TxtRespRep & "'='Tous',Repreneurs.RespRep='is
null'or'is not null',Repreneurs.RespRep='" & TxtRespRep & "') "
& _

"ORDER BY OrdreStatut, Cédant.codecedant, Repreneurs.coderepreneur"



Nath
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
39
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
24 février 2006

Essai

SELECT RespCed, RespRep, Libelle, NomContact, NomFamille, OrdreStatut, Cédant.Codecedant, Repreneurs.CodeRepreneur, Month([ECenvoye]) AS ECenvoyé, Month([ECrecu]) AS ECrecue, Month([PGenvoye]) AS PGenvoyé, Month([Nomcommuniqué]) AS NomComm, Month([SignatureMiseenrelation]) AS SignatureMER, Month([PremièreREncontre]) AS PremièreRen, Month([Stoprelation]) AS StopRel, Remarque, StatutRap.CodeStatutRap, Month([PremiereNegociation]) AS PremiereNego, Month([SignatureProtocole]) AS SignatureProto
FROM cédant, repreneurs, StatutRap, RapprochementCedantRepreneur
WHERE cédant.RéfClient = RapprochementCedantRepreneur.Codecedant
And repreneurs.[Référence Repreneurs] = RapprochementCedantRepreneur.CodeRepreneur And StatutRap.CodeStatutRap = RapprochementCedantRepreneur.CodeStatutRap
IIf(' "& TxtCodeRep &" ' ='Tous',"", AND Repreneurs.coderepreneur='" & TxtCodeRep & "')"
Messages postés
239
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
20 février 2012

Salut

En fait si j'ai bien compris, tu veux filter avec ta clause WHERE ?

Déja je ne vois pas tes cinq conditions dans ta clause where !

Mais bon peu importe, si dans l'evenement click de ton COMBO

tu parametre une variable de telle sorte que :



if DataCombo1 <> "" then

variable = DataCombo1

else

variable = "%" 'attention il faut prendre * si cela ne marche pas

end if



donc dans ta clause where le filtre sera annulé par le Wilcard % ou *