Discussion :

[eddy37fr]

Bonjour à tous,

Comment peut-on faire pour ignorer le message "enter parameter value" lors de l'execution d'une requete ?

Voici : j'ai une requete de mise à jour d'une table. les enregistrements à mettre à jour sont filtrés selon deux formulaires.
Dont j'ai crée une requete qui est utilisée par les deux formulaires. Donc dans ma requete pour les criteres j'ai mis ceci:

Code :

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

[Forms]![Formulaire1]![Champ1] Or [Forms]![Formulaire2]![Champ2]

Le probleme c'est que lorsque j'utilise la requete avec le formulaire 1 j'ai le message "enter parameter value" et access me demande la valeur de

Code :

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

Forms]![Formulaire2]![Champ2]

.

Donc comment faut-il faire pour ignorer ce message pour qu'il n'apparaisse plus ? (avec du VBA ?)

Merci

[gui-llaume]

tu peux mettre la requete pour que l'on comprenne mieux ?

[eddy37fr]

tu peux mettre la requete pour que l'on comprenne mieux ?

Voici la requete en SQL :

Code :

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

1
2
UPDATE ExtCostsInvDet INNER JOIN tblEXTCOSTS ON ExtCostsInvDet.ExtCoID = tblEXTCOSTS.ExtCoID SET tblEXTCOSTS.ExtCoReal = ExtCostsInvDet.CostInvDet, tblEXTCOSTS.ExtCoFee = tblEXTCOSTS.ExtCoDays*tblEXTCOSTS.ExtCoDayRate, tblEXTCOSTS.ExtCoBalance = tblEXTCOSTS.ExtCoFee-tblEXTCOSTS.ExtCoReal
WHERE (((tblEXTCOSTS.ExtCoID)=[Forms]![frmExtCosts]![ExtCoID] Or (tblEXTCOSTS.ExtCoID)=[Forms]![frmExtCostAdd]![fsubExtCostAdd].[Form]![ExtCoID]));

et c'est donc sur le Where que j'obtiens le message "enter parameter value" puisque si j'execute la requette du formulaire frmExtCosts, il cherche également la valeur du champ sur l'autre formulaire :

Code :

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

(tblEXTCOSTS.ExtCoID)=[Forms]![frmExtCostAdd]![fsubExtCostAdd].[Form]![ExtCoID]))

donc c'est la que je voudrais faire disparaitre ce message.

A part ca la requete en elle meme fonctionne tres bien et je n'obtiens par le message d'erreur si dans le where j'ai que un seul formulaire.

[gui-llaume]

effectivement , tu ne peux pas passer ta requete telle quelle si une donnée à laquelle tu fais référence n'existe pas.

je pense que tu devrais chercher vers la fonction nz qui va te renvoyer une valeur paramétrable si la valeur de ton champs (ici ton

Code :

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

[Forms]![Formulaire1]![Champ1] Or [Forms]![Formulaire2]![Champ2]

)

de cette maniere, la requete ne te demanderas plus d'entrer un parametre !!

Code :

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

1
2
UPDATE ExtCostsInvDet INNER JOIN tblEXTCOSTS ON ExtCostsInvDet.ExtCoID = tblEXTCOSTS.ExtCoID SET tblEXTCOSTS.ExtCoReal = ExtCostsInvDet.CostInvDet, tblEXTCOSTS.ExtCoFee = tblEXTCOSTS.ExtCoDays*tblEXTCOSTS.ExtCoDayRate, tblEXTCOSTS.ExtCoBalance = tblEXTCOSTS.ExtCoFee-tblEXTCOSTS.ExtCoReal
WHERE (((tblEXTCOSTS.ExtCoID)=NZ([Forms]![frmExtCosts]![ExtCoID];0) Or (tblEXTCOSTS.ExtCoID)=NZ([Forms]![frmExtCostAdd]![fsubExtCostAdd].[Form]![ExtCoID];0)));

[eddy37fr]

Merci pour ta réponse

c'est une bonne idée mais ca n'a pas l'air de marcher.

Pour la function Nz c'est une virgule qu'il faut utiliser au lieu du point virgule

Nz(Variable,"Valeur_si_nulle")

Le champ en question est Long Integer, est ce que ca pause un probleme ? Parce qu'il me semble que Nz utilise des variables de type de données Variant.

[Pierre Fauconnier]

Bonsoir

Personnellement, mais je peux me tromper, je pense que utiliser NZ(...) ne résoudra pas le problème...

Il me semble qu'il faut tester [Forms]![frmExtCosts]![ExtCoID] en VBA, et construire la requête sans le Where [Forms]![frmExtCosts]![ExtCoID] s'il n'existe pas ou avec s'il existe