Je suis dans un formulaire
J'ai un champ client dont je veux récupérer la valeur
Je clique sur un bouton qui m' ouvre un autre formulaire
pour déterminer les dates d'un état.
Je clique sur Ok qui me lance la requête et je souhaite passer ces valeurs à
ma requête.
Code ou macro ?
Merci.
DéGé
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
Compte tenu que ton formulaire est ouvert et qu'il contient les 3 valeurs (le client sur le formulaire et les dates récupérées sur l'autre formulaire) tu peux passer les paramètres par code.
Dim dbsCurrent As DAO.Database Dim Qdf As DAO.QueryDef Set dbsCurrent = CurrentDb() Set Qdf = dbsCurrent.QueryDefs("Nomdemarequête") Qdf.Parameters("Monparamètre1") = "codeclient" Qdf.Parameters("Monparamètre2") = "datedébut" Qdf.Parameters("Monparamètre3") = "datefin" Qdf.Execute
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Dominique GOUBY" a écrit dans le message de news:bskkn9$4bn$
Je suis dans un formulaire J'ai un champ client dont je veux récupérer la valeur Je clique sur un bouton qui m' ouvre un autre formulaire pour déterminer les dates d'un état. Je clique sur Ok qui me lance la requête et je souhaite passer ces valeurs à
ma requête. Code ou macro ? Merci. DéGé
Bonsoir.
Compte tenu que ton formulaire est ouvert et qu'il contient les 3 valeurs
(le client sur le formulaire et les dates récupérées sur l'autre formulaire)
tu peux passer les paramètres par code.
Dim dbsCurrent As DAO.Database
Dim Qdf As DAO.QueryDef
Set dbsCurrent = CurrentDb()
Set Qdf = dbsCurrent.QueryDefs("Nomdemarequête")
Qdf.Parameters("Monparamètre1") = "codeclient"
Qdf.Parameters("Monparamètre2") = "datedébut"
Qdf.Parameters("Monparamètre3") = "datefin"
Qdf.Execute
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Dominique GOUBY" <dominique.gouby@wanadoo.fr> a écrit dans le message de
news:bskkn9$4bn$1@news-reader3.wanadoo.fr...
Je suis dans un formulaire
J'ai un champ client dont je veux récupérer la valeur
Je clique sur un bouton qui m' ouvre un autre formulaire
pour déterminer les dates d'un état.
Je clique sur Ok qui me lance la requête et je souhaite passer ces valeurs
à
Compte tenu que ton formulaire est ouvert et qu'il contient les 3 valeurs (le client sur le formulaire et les dates récupérées sur l'autre formulaire) tu peux passer les paramètres par code.
Dim dbsCurrent As DAO.Database Dim Qdf As DAO.QueryDef Set dbsCurrent = CurrentDb() Set Qdf = dbsCurrent.QueryDefs("Nomdemarequête") Qdf.Parameters("Monparamètre1") = "codeclient" Qdf.Parameters("Monparamètre2") = "datedébut" Qdf.Parameters("Monparamètre3") = "datefin" Qdf.Execute
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Dominique GOUBY" a écrit dans le message de news:bskkn9$4bn$
Je suis dans un formulaire J'ai un champ client dont je veux récupérer la valeur Je clique sur un bouton qui m' ouvre un autre formulaire pour déterminer les dates d'un état. Je clique sur Ok qui me lance la requête et je souhaite passer ces valeurs à
