Discussion :

[guidav]

Bonjour

J'ai une requête paramétrée sur laquelle j'aimerais faire une requête en VBA. Mon code a donc l'aspect suivant :

Code :

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

1
2
3
4
5
 
Set qdf = New QueryDef
With qdf
.sql = "select * from [marequeteparametree]"
end with

La question est : où fait-il renseigner les paramètres ? qdf.parameters = "monparam" renvoie l'erreur bien compréhensible "élément non trouvé dans cette collection".

Merci

[nico84]

Bonjour,
Voici un exemple de syntaxe :

Code :

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

1
2
3
106 Set qdf = CurrentDb.QueryDefs("MaRequeteParametree")
108 qdf.Parameters("MonParametre") = 123
110 Set rst = qdf.OpenRecordset

[Jean-Philippe André]

à première vue je partirai sur un découpage en 3 étapes :
- génération de la premiere requete paramétrée et passage du résultat dans une table temporaire (SELECT INTO)
- requete dans la table temporaire (SELECT)
- destruction de la table temporaire (DROP)

[guidav]

Salut

Merci jpcheck, j'y avais pensé, mais j'aurais préféré m'en passer.
Tant pis, je vais faire comme ça.

EDIT : c'est "amusant", mais ça ne marche pas non plus comme ça.
Pour détailler un peu plus la situation, j'ai 2 requêtes paramétrées A et B avec les mêmes paramètres.
J'ai aussi une requête C (paramétrée aussi) qui est une jointure de A.* et de B.* (...from A JOIN B on A.champ = B.champ).
Si j'ouvre C dans access, en renseignant les paramètres à la main, j'ai les bons résultats.
Si j'ouvre C en VBA avec le code suivant

Code :

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

1
2
3
4
5
6
7
8
Set qdf = CurrentDb.QueryDefs("C")
With qdf
    .Parameters("date_debut_periode") = Format(DateSerial(Year(Date_report), Month(Date_report) \ 6 + 1, 1), "MM/DD/YYYY")
    .Parameters("date_fin_periode") = Format(DateSerial(Year(Date_report), Month(Date_report) + 1, 1), "MM/DD/YYYY")
End With
Set rcset = qdf.OpenRecordset()
rcset.MoveLast
rcset.MoveFirst

les données sont bonnes pour les champs provenant de A, mais valent 0 pour les champs provenant de B.

Il semble que les paramètres ne se propagent pas à toutes les sous-requêtes en VBA.
Quelqu'un aurait-il une explication ?
My mistake, ça marche. Si vous croisez le type qui a défini les dates anglaises en MM/DD/YYYY mais pas partout, frappez-le de ma part.