Discussion :

[Ps4]

Bonjour !!

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 :

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

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 :

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

Set rcs = qdf.OpenRecordset

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

[zoom61]

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

Car ton code à l'air correcte !

[Ps4]

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

[Ps4]

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 :

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

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 :

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

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

[Alexandre Sahli]

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

[zoom61]

Essaye en modifiant ton code :

Code :

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

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

[pgz]

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 :

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

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

Bonne journée,

pgz

[Ps4]

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

Code :

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

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.