Discussion :

[robert_trudel]

salut

j'ai une requête qui demande un paramètre....

lorsque l'utilisateur clique sur un bouton, le rapport qui utilise cette requête est lancé...

il y a moyen en vba de donner une valeur afin que l'utilisateur n'ait pas le message pour entrer une valeur ?


merci

[Jean-Philippe André]

salut,
une rapide recherche dans la nous donne une piste très facilement exploitable :
http://access.developpez.com/faq/?page=SQL#ReqParamVar

[robert_trudel]

j'ai déjà vu ce code


je mentionne que la requête est utilisé par un formulaire

étant dans un formulaire, je dois trouvé un moyen d'envoyer la valeur au rapport...

[Jean-Philippe André]

tu peux utiliser une valeur passée en "dur" dans ta requête
toujours dans la
http://access.developpez.com/faq/?page=zdl#LierZdl

[robert_trudel]

si j'aurais voulu écrire le paramètre en dur.. je crois la question ne se poserait même pas....

[Jean-Philippe André]

le mieux reste encore de noàus donner ton code actuel, qu'on puisse te proposer des solutions efficaces. Je n'ai jamais été bon à colin maillard

[robert_trudel]

ok

j'ouvre mon rapport avec le code suivant

Code :

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

1
2
stDocName = "EnteteCommande"
DoCmd.OpenReport stDocName, acPreview

ce rapport est lié à la requête

Code :

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

1
2
3
SELECT client.nom, commande.numero_commande, commande.date_commande, commande.date_livraison, commande.total, commande.po
FROM client INNER JOIN commande ON client.client_id=commande.client_id
WHERE commande.commande_id=[pcommande_id];

a l'ouverture du rapport une boite s'ouvre demander d'entrer pcommande_id

[User]

Salut,

si tu as un contrôle pcommande_id dans ton formulaire (TonForm)et si ce paramètre est du type numérique, alors ta requête devient:

Code sql :

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

1
2
3
4
PARAMETERS [Forms]![TonForm]![pcommande_id] Value;
SELECT client.nom, commande.numero_commande, commande.date_commande, commande.date_livraison, commande.total, commande.po
FROM client INNER JOIN commande ON client.client_id=commande.client_id
WHERE commande.commande_id=[Forms]![TonForm]![pcommande_id];

A+