Requête paramétrable au chargement

[Nom]

Bonjour à tous,
J'ai un petit soucis:
j'ai un formulaire qui me liste le nombre de mes ventes depuis le X.
X doit être paramétrable et modifiable via un contrôle calendrier.
Dans ma requête, j'ai donc utiliser un paramètre :

Code sql :

1
2
3
 
PARAMETERS Annee DateTime;
SELECT * FROM latable WHERE [Annee] < madate

Seulement au chargement de mon formulaire, je n'arrive pas à incorporer cette date via le vba

Code vba :

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
Dim qdf As DAO.QueryDef
Dim oRs As DAO.Recordset
 
    Set qdf = CurrentDb.QueryDefs("rqLaRequete")
    qdf.Parameters("Annee") = DateTime.Date - 183 ' par défaut c'est moins 183 jour 
    Set oRs = qdf.OpenRecordset(dbOpenSnapshot)
 
End Sub

Malgré mon code, il demande toujours le paramètre Annee.

Merci pour votre aide

[jpcheck]

salut,

quelle valeur retourne ton DateTime.Date ?

j'utilise le meme code, et pas de probleme particulier

[Nom]

Bonjour
Lorsque j'affiche cette valeur (via un MsgBox), j'obtiens la date du jour sous la forme jj/mm/aaaa
Aujourd'hui par exemple, c'est 14/02/2011


J'ai un petit doute sur quelque chose. En fait, cette requête est utilisée dans un graphique donc elle est "transformée".
Est ce que ça pourrai venir de là ?
Je précise que dans la requête transformée, je n'ai pas de paramètre
Elle ressemble à ça :

Code sql :

TRANSFROM SUM(rqLaRequete.moyenne) AS SommeDemoyenne SELECT Div FROM rqLaRequete

Div et moyenne sont bien des colonnes de ma requête "rqLaRequete")

[Nom]

Une deuxième chose pourrait posée problème
En réalité, ma requête est un peu plus complexe que je veux bien le décrire .
En effet, Il y a plusieurs jointures et surtout le paramètre se trouve en réalité dans une sous requête
Si je simplifie:

Code sql :

1
2
3
PARAMETERS Annee DateTime;
SELECT * FROM latable t1 INNER JOIN lautretable t2 ON t1.id = t2.idAutre 
WHERE Div IN (SELECT DISTINCT Div FROM latable WHERE  [Annee] < madate

J'ai également voulu ne pas mettre de paramètre et indiquer que la date doit être celle de mon contrôle mais rien n'y fait
La requête est alors comme ça :

Code sql :

1
2
3
4
5
SELECT * FROM latable t1 INNER JOIN lautretable t2 ON t1.id = t2.idAutre 
WHERE Div IN (
   SELECT DISTINCT Div FROM latable 
   WHERE  [Formulaires]![test]![TxtCalendrier] < madate
)

J'ai des résultat quand je lance ma requête depuis l'éditeur SQL
Par contre quand je lance mon formulaire, j'ai une erreur
Microsoft Jet ne reconnait pas [Formulaires]![test]![TxtCalendrier] en tant que nom de champs ou expression correct
Je précise que TxtCalendrier est une zone de texte toute bête

Je tourne un peu en rond sans résultat

[User]

Salut,

Tu as essayé avec 1 paramètre :

Code sql :

1
2
3
4
5
6
PARAMETERS [Forms]![test]![TxtCalendrier] DateTime;
SELECT * FROM latable t1 INNER JOIN lautretable t2 ON t1.id = t2.idAutre 
WHERE Div IN (
   SELECT DISTINCT Div FROM latable 
   WHERE  [Forms]![test]![TxtCalendrier] < madate
)

Après dans le code VBA :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
Dim qdf As DAO.QueryDef
Dim oRs As DAO.Recordset
 
    Set qdf = CurrentDb.QueryDefs("rqLaRequete")
    qdf.Parameters("[Forms]![test]![TxtCalendrier]") = [Forms]![test]![TxtCalendrier]  
    Set oRs = qdf.OpenRecordset()
 
End Sub

A+