nathtonath
Messages postés13Date d'inscriptionmercredi 26 janvier 2005StatutMembreDernière intervention12 janvier 2006
-
11 janv. 2006 à 15:46
nathtonath
Messages postés13Date d'inscriptionmercredi 26 janvier 2005StatutMembreDernière intervention12 janvier 2006
-
12 janv. 2006 à 15:35
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.
nathtonath
Messages postés13Date d'inscriptionmercredi 26 janvier 2005StatutMembreDernière intervention12 janvier 2006 12 janv. 2006 à 15:35
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 " & _
spa666
Messages postés39Date d'inscriptionmardi 6 avril 2004StatutMembreDernière intervention24 février 2006 11 janv. 2006 à 16:35
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 & "')"