Discussion :

[Pago]

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

[Dolphy35]

Salut,

tu peux redéfinir la source SQL de ta requête :

Code :

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

SQL="SELECT .... WHERE ..."

Comment définir en vba le SQL d'une requête existante ?

Dolphy

[Pago]

Bonjour,merci pour la réponse, j'ai effectivement essayer cela et cela marche, maintenant j'ai modifié la clause where avec 2 paramètres , un de type texte et un de type date,la cela ne marche plus, j'ai pourtant mis AND entre les deux, j'ai pris un exemple dans un livre et il me met un message d'erreur....nécessite au moins 1 paramètres
Merci


Pour info le code que ja'i utiliser dans le message du message préceédent vient d'un exemple dispo sur le site.... au fait pourquoi cela ne marche pas?

[DMboup]

.... au fait pourquoi cela ne marche pas?

Parce que tu est le seul à avoir ton code devant toi et que les magaciens sont en vacances.

Tu peux aussi demander à celui ci comment il fait http://www.developpez.net/forums/sho...d.php?t=398190

[Maroxye]

Il me semble que les paramètres doivent être passés ainsi :

Code :

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

1
2
3
 
qdf.Parameters![Dates] = #1/3/2007#
qdf.Parameters![2eme_param] = "test"

Et bien sûr, dans la requête, sous les champs requis, tu inscris :
[Dates]
et
[2eme_param]