Help: crystal report avec codition

Résolu
Signaler
Messages postés
11
Date d'inscription
mercredi 29 mars 2006
Statut
Membre
Dernière intervention
14 juin 2007
-
Messages postés
11
Date d'inscription
mercredi 29 mars 2006
Statut
Membre
Dernière intervention
14 juin 2007
-
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

Messages postés
11
Date d'inscription
mercredi 29 mars 2006
Statut
Membre
Dernière intervention
14 juin 2007

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