Bonjour, j'ai une requête qui est construite en dur, J'ai un Parametre Dates, donc qui est présent dans les Critères et dasn la fenetre Paramètre, j'essaye de renseigner ce paramètre via une procédure VBA comme ceci:

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
21
22
23
24
25
 
Private Sub Ctl12___11468_Click()
 
Dim bd As Database
Dim record As Recordset
Dim y As Parameter
Dim x As Date
 
Set bd = CurrentDb
 
 
 
 
Dim qdf As QueryDef
 
 
'référence à la requête
Set qdf = CurrentDb.QueryDefs("Base_Fiche2")
 
qdf.Parameters("Dates").Value = #1/3/2007#
 
DoCmd.OpenQuery "Base_Fiche2"
 
Set qdf = Nothing
End Sub
A cahque fois lors de l'exécution de la requete la boite de dialogue me demandede renseigné le paramètre, la procédure VBA ne le fait pas,pourtant je n'obtiens pas de message d'erreur

Que Faire?

Merci