[Access 2003] [VBA] Lancer une requête avec paramètre

Le
Harfang
Bonjour,

J'aimerais dans mon code VBA lancer une requête que j'ai créé. j'utilise
donc le code :
DoCmd.OpenQuery ("myquery")

Le problème c'est que ma requête demande un paramètre, donc ça demande un
paramètre à l'utilisateur, ce que je ne veux pas. En effet, cette commande
est lancée par l'appui sur un bouton dans un formulaire, et le paramètre de
cette requête est déjà dans un champ du formulaire.

Donc comment je peux faire pour passer ce paramètre à ma requête ?

Ah et aussi, j'aimerais savoir comment faire pour récupérer le nombre
d'enregistrements qu'a généré cette requête. (c'est une requête ajout dans
une table)

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #17916611
Harfang a écrit :
Bonjour,

J'aimerais dans mon code VBA lancer une requête que j'ai créé. j'utilise
donc le code :
DoCmd.OpenQuery ("myquery")

Le problème c'est que ma requête demande un paramètre, donc ça demande
un paramètre à l'utilisateur, ce que je ne veux pas. En effet, cette
commande est lancée par l'appui sur un bouton dans un formulaire, et le
paramètre de cette requête est déjà dans un champ du formulaire.

Donc comment je peux faire pour passer ce paramètre à ma requête ?

Ah et aussi, j'aimerais savoir comment faire pour récupérer le nombre
d'enregistrements qu'a généré cette requête. (c'est une requête ajout
dans une table)

Merci


Salut,

Passage de parametres deux solutions :
Soit tu indique dans ta requete a la place du parametre qui est dans la
ligne critére le champ qui lui correspond dans ton formulaire
Forms![lemonduform].[lenomduchamp]
soit tu reccupere le source de ta requete en mode SQl et tu l'intergre a
ton code VBA

Dim Str_Qry as string
Str_Qry="Insert .... from .... where [lechampfiltre]=" &
me.lechampduformulaire
Currentdb.execute Str_Qry

Pour connaitre le nombre d'enreg.
Dim Avant as integer
Avant = dcount("[Unchamp]","Latable")
.
.
. ton code pour l'ajout
.
.
.
msgbox "Nombre d'enreg ajoutés : " & dcount("[Unchamp]","Latable")-Avant

@+
Publicité
Poster une réponse
Anonyme