salut
j'ai un MSHFLEXGRID lié à une table qui contient un champ [date_ech], je veux que MSHFLEXGRID affiche juste les valeurs du champ date_ech dont la différence de jours avec la date système est 10.

j'ai fait un code comme suit mais ça marche qu'avec un Msgbox qui affiche une seule date. alors que je veux avoir toutes les dates répondant à la condition.
Mon code:
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
Private Sub Command1_Click()
MaConnection
Dim ms2 as MSHFLEXGRID 
Dim y As Date
sql = "select * FROM regle "
If rs.State = adStateOpen Then rs.Close
rs.Open sql, DB, adOpenKeyset, adLockPessimistic
y = rs!date_ech
If DateDiff("d", Date, y) = 10 Then
sqlz = "select * from regle where date_ech=y"
If rr.State = adStateOpen Then rr.Close
rr.Open sqlz, DB, adOpenKeyset, adLockPessimistic
Set ms2.DataSource = rr
End If
End sub
Merci !!