Help: crystal report avec codition

Résolu
virago2004w Messages postés 11 Date d'inscription mercredi 29 mars 2006 Statut Membre Dernière intervention 14 juin 2007 - 14 juin 2007 à 11:42
virago2004w Messages postés 11 Date d'inscription mercredi 29 mars 2006 Statut Membre Dernière intervention 14 juin 2007 - 14 juin 2007 à 13:21
salut tout le monde,

voila, je veux imprimer la liste des voitures qui ont le vidange moin que 50, avec ce code je n'ai que le premier enregistrement de ma condition, quelqu'un peut m'aider a completé mon code pour qu'il m'imprime toutes les voitures (avec vidange<50) (et n'on pas seulement le 1er enregistrement).

Set REC = New ADODB.Recordset
REC.Open "Select * From voiture Where Vidange< 50", Db


cr.ReportFileName = App.Path & "\lstVidange.rpt"
cr.SelectionFormula = "{voiture.vidange}=" & REC("Vidange")
cr.Formulas(0) = "cv='" & REC("codev") & "'"
cr.Formulas(1) = "vidange='" & REC("vidange") & "'"
cr.Formulas(2) = "mq='" & REC("marque") & "'"
cr.Formulas(3) = "matricule='" & REC("NI") & "'"
cr.WindowState = 2
cr.Action = 1

merci d'avance

1 réponse

virago2004w Messages postés 11 Date d'inscription mercredi 29 mars 2006 Statut Membre Dernière intervention 14 juin 2007
14 juin 2007 à 13:21
re salut
ca y est j'ai trouvé la solution, et c'est tout simple,  falait pas que j'ai mis la condition dans le where de ma requete, alors qu'il faut la mettre dans  la "SelectionFormula"
bon voila le code exacte :

Set REC = New ADODB.Recordset
REC.Open "Select * From voiture  Db
cr1.ReportFileName = App.Path & "\lstVidange.rpt"
cr1.SelectionFormula= "{suivivoi.NKmVid} <= 50"
cr.Formulas(0) = "cv='" & REC("codev") & "'"
.
.
cr.WindowState = 2
cr.Action = 1
3