j'ai ce probleme la , je doit parcourir les lignes et colonnes et je doit comparer chaque colonne avec datedebut et datefin (DTpicker1 et DTpicker2) et afficher les données qui sont entre ces deux dates dans une etat crystal reports .

j'ai essayer avec ce code la mais il m'affiche que 2 lignes :

Code Visual Basic :
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
 
With etatp
 
'Set rs = New ADODB.Recordset
 
rs.Open "Select * from Programme Order By coup_prg ASC;", devec_base
If Not rs.EOF Then
rs.MoveFirst
F2 = "{programme.coup_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.pré_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & " or {programme.mont_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.emba_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.livr_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "'] "
F2 = F2 & "or {programme.mar_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.piquint_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
F2 = F2 & "or {programme.piquext_prg} In  ['" & DTPicker3.Value & "','" & DTPicker4.Value & "']"
End If
 
rs.MoveNext
.ReplaceSelectionFormula F2
 
rs.Close
Set rs = Nothing
End With
Voila des Snapshoot:
etat générale :

et celle la entre deux dates : 23/01/2000 et 11/11/2011



j'espere trouver une solution , merci d'avance