Discussion :

[philippef]

Bonjour.

J'ai un data report qui contient un datamember.
Dans les champs des tables sélectionées, j'ai un champ "DateAchat".
Comment je dois paramétrer le critère de sélection sachant que la sélection de la date est faite par l'utilisateur avec un DtPicker

J'espère être clair
Merci d'avance

[jmfmarques]

ThierryAim me semble avoir déjà répondu à ce type de question :
http://www.developpez.net/forums/viewtopic.php?t=482925
Tu ne t'es pas beaucoup fatigué à chercher, hein ?

[philippef]

Bon je crois que je me suis mal expliqué

Ca c'est la requête de ma commande qui est dans dataenvironment

Code :

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

1
2
3
4
5
6
7
8
9
10
SELECT Immobilisations.IdSoc, Immobilisations.NumCompte, 
    Comptes.Description AS DescCpte, Immobilisations.NumImmo, 
    Immobilisations.Description, Immobilisations.DateAchat, 
    Immobilisations.DateMeService, Immobilisations.BaseAmts, 
    Immobilisations.DateSortie
FROM Immobilisations, Comptes
WHERE Immobilisations.NumCompte = Comptes.NumCompte AND 
    (Immobilisations.IdSoc = NumSoc) AND 
    (Immobilisations.DateSortie IS NULL)
ORDER BY Immobilisations.NumCompte, Immobilisations.DateAchat

Ca c'est l'option de mon menu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub mnuLstImmoCpte_Click()
    On Error Resume Next
    MaDate = "2005-12-31"
    DrListParCpte.Width = 12900
    DrListParCpte.Height = 10200
    DrListParCpte.Top = 800
    DrListParCpte.Left = (Screen.Width - DrListParCpte.Width) / 2
    DataEnvironment1.Connection1.Close
    DataEnvironment1.Connection1.Open
    DataEnvironment1.ListeParCompte_Regroupeme NumSoc
    DrListParCpte.Show
End Sub

Je voudrais ajouter dans ma requete dans la clause Where ... AND Immobilisations.DateAchat <= DtPicker1.value.

J'arrive pas à le paramètrer dans la requête et je sais pas comment l'écrire dans ma procédure