[VBA] Recordset / Parameters

Bonjour à tous,

Voilà je voudrais utiliser les données issues d'une requête avec comme paramêtre une date que l'utilsateur saisi dans un formulaire.

Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub BT_GEN_CONSTAT_Click()   Dim qdf As DAO.QueryDef Dim rcs As DAO.Recordset Dim strLigneText As String Dim strConstante As String Dim strChemin As String Dim intFichier As Integer Dim db As DAO.Database   intFichier = FreeFile() strChemin = "C:\TEST.txt" Open strChemin For Output As #intFichier     Set db = CurrentDb() Set qdf = db.QueryDefs("R_PREPA_CONSTAT") qdf.Parameters("Formulaires!F_GEN_CONSTAT!DATE_CONSTAT") = Formulaires!F_GEN_CONSTAT![DATE_CONSTAT] Set rcs = qdf.OpenRecordset ...

---

J'ai une erreur 424 qui retourne le message "objet requis" au niveau de la déclaration du paramètres.

Ya t-il une erreur dans ma syntaxe ?

Merci à vous...

bjr,

dans le VBA il faut utiliser Forms au lieu de Formulaires

Code:

---

qdf.Parameters("Formulaires!F_GEN_CONSTAT!DATE_CONSTAT") = Forms!F_GEN_CONSTAT![DATE_CONSTAT]

---

J'ai toujours le même problème en utilisant "Forms" !

Au niveau de la requête faut il précisé des paramètres dans "paramètres de la requête" ?

Si oui, comment faire ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub BT_GEN_CONSTAT_Click()   Dim qdf As DAO.QueryDef Dim rcs As DAO.Recordset Dim strLigneText As String Dim strConstante As String Dim strChemin As String Dim intFichier As Integer Dim db As DAO.Database   intFichier = FreeFile() strChemin = "C:\TEST.txt" Open strChemin For Output As #intFichier     Set db = CurrentDb() Set qdf = db.QueryDefs("R_PREPA_CONSTAT") qdf.Parameters("Formulaires!F_GEN_CONSTAT!DATE_CONSTAT") = Formulaires!F_GEN_CONSTAT![DATE_CONSTAT] Set rcs = qdf.OpenRecordset ...

---

J'ai résolu le problème sur la ligne de paramètre maintenant j'ai l'erreur "trop peu de paramètres sur la ligne du recordset !

:(

Bonjour,

Citation:

---

Envoyé par S-kAyN

Au niveau de la requête faut il précisé des paramètres dans "paramètres de la requête" ?

Si oui, comment faire ?

---

Ce n'est pas obligatoire mais c'est mieux. Notamment parce que ça permet de "typer" le paramètre.

Comment faire ? Ultra simple !
Dans la colonne "Paramètre" tu saisis le nom du paramètre que tu souhaites utiliser ensuite dans ta requête (par ex. MonParamètre). Ce n'est pas utile de mettre, en guise de nom de paramètre, une expression basée sur un formulaire (comme ce que tu utilises).
Dans la colonne "Type", tu choisis le type de données.
Ensuite un coup de [OK].

Puis, toujours dans ta requête affichée en mode création, tu utilises ton paramètre, par exemple pour un critère.

MON CONSEIL: pense à encadrer le paramètre avec des crochets, comme ça Access s'y retrouvera (et puis même, cette syntaxe est obligatoire).

Exemple de critère: [MonParamètre] > 10

Maintenant ton code...

Code:

---

1 2 3 4

Set db = CurrentDb() Set qdf = db.QueryDefs("R_PREPA_CONSTAT") qdf.Parameters("MonParamètre") = Formulaires!F_GEN_CONSTAT![DATE_CONSTAT] Set rcs = qdf.OpenRecordset

---

Alors, ça va mieux ? ;)

j'ai changé la syntaxe, j'ai utilisé ça, ça marche depuis !

qdf![[Formulaires]![F_GEN_CONSTAT]![DATE_BUTOIR]] = Me.DATE_BUTOIR.Value

Merci à tous ! 8-)