Discussion :

[S-kAyN]

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 :

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

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...

[Arkham46]

bjr,

dans le VBA il faut utiliser Forms au lieu de Formulaires

Code :

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

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

[S-kAyN]

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 ?

[S-kAyN]

Code :

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

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 !

[=JBO=]

Bonjour,

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 :

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

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 ?

[S-kAyN]

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 !