Exploiter en vba les données d'une requête existante

Bonjour !! :D

Mon obectif est d'exploiter en vba les données d'une requête sélection.
J'ai trouvé un sujet dans la FAQ pour cela et voilà le code que j'ai écris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim test as Integer Dim qdf As DAO.QueryDef Dim rcs As DAO.Recordset Set qdf = CurrentDb.QueryDefs("ma_requête") Set rcs = qdf.OpenRecordset   rcs.MoveFirst While Not rst.EOF test = rcs.Fields("Mon_champ").Value rst.MoveNext Wend Set qdf = Nothing

---

Quand j'éxecute une erreur d'execution se produit sur la ligne:

Code:

---

Set rcs = qdf.OpenRecordset

---

et me dis : Trop peu de paramètre.1 attendu.

As-tu essayé de lancer ta requête, et de voir si elle fonctionnait ?

Car ton code à l'air correcte !

Oui j'ai essayé elle fonctionne très bien.

J'avais un paramètre sur un champ ds ma requête, je viens de l'enlever et ça fonctionne.
Le problème semblerait venir de là.

En fait je devais avoir oublié cette ligne de code :

Code:

---

qdf.Parameters("NomParamètre") = valeur '<== si requête paramétrée

---

Le seul problème est que je n'arrive pas à la remplir, j'ai essayé ça :

Code:

---

1 2	qdf.Parameters("[mon_champ]") = [Formulaires]![Form ajout gamme]![Article fabriqué ind]

---

et j'ai un message d'erreur : impossible de trouver le champ auquel il est fait réference ds votre expression

s'il te mets cette erreur
c'est qu'elle n'exite pas ou que le formulaire est fermé
A+

Essaye en modifiant ton code :

Code:

---

qdf.Parameters([mon_champ]) = [Formulaires]![Form ajout gamme]![Article fabriqué ind]

---

Bonjour,

Je n'utilise pas cette syntaxe, mais si tout le monde dit que c'est bon, c'est que ça doit l'être. ce qui m'étonnerait c'est que cela puisse marcher sans ouvrir la requête.

J'utiliserais plutôt:

Code:

---

set rcs = CurrentDb.OpenRecordset( qdf.name, dbopendynaset)

---

Bonne journée,

pgz

Merci beaucoup messieurs mais je n'y arrive pas. Je repars sur une autre solution proposé dans la FAQ :

Code:

---

1 2 3 4 5 6 7

Dim cnn As New ADODB.connection, rst As New ADODB.Recordset, fld As ADODB.Field ' Ouverture de la connexion cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\Comptoir.mdb;" ' Ouverture du Recordset en défilement en avant, et en lecture seule rst.Open "SELECT * FROM Clients WHERE Région ='WA'", cnn, adOpenForwardOnly, adLockReadOnly ' Fermeture du Recordset rst.Close

---

Le problème cette fois viens de la partie DataSource
Je n'arrive pas à lui faire avaler le nom de ma base.