Bonjour,
le plus simplement mais peut être pas le plus facile à faire, je cherche à afficher des reports à la volée dans une boucle Do/Loop until, je m'explique, d'un côté j'ai un bout de code VB6 qui va récupérer des données dans une table (locale) Access .mdb, c'est une table avec des champs, "id_commande", "id_article", "nom_article", "id_client", etc..., le résultat est affiché dans un dbgrid, de l'autre, j'ai Crystal Reports 7 dans lequel j'ai sélectionné cette même table pour générer le contenu de mon etat, ce que j'aimerai faire c'est lier la boucle VB à mon état en lui passant comme paramètre mon champ "id_commande", mon problème est que cela imprime tjrs la même commande , alors que si j'ai "id_commande" 1, 2, 3, 4, j'aimerai que cela imprime la commande 1, puis la commande 2, etc...
mon bout de code,
ce code fait à peut prêt ce que je veux, ça imprime, mais plusieurs fois la même commande , pourtant dans cette portion,
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
25
26
27
28
29 Private Sub btnImprimerBL_Click() Dim CrAppl As New CRAXDRT.Application Dim CrRep As New CRAXDRT.Report Dim rs As ADODB.Recordset Dim sMySql As String Set rs = New ADODB.Recordset sMySql = "SELECT * FROM TBL_RAFALE ORDER BY id_commande ASC;" rs.Open sMySql, cnxTBLRafale, adOpenForwardOnly, adLockReadOnly If rs.RecordCount > 0 Then Screen.MousePointer = vbHourglass rs.MoveFirst Set CrRep = CrAppl.OpenReport(App.Path & "\ETAT_RF_BL.rpt") Do CrRep.RecordSelectionFormula = "{TBL_RAFALE.id_commande}= " & rs!id_commande & " " CrRep.Database.SetDataSource rs CrRep.PrintOut False rs.MoveNext Loop Until rs.EOF sMySql = "" rs.Close Set rs = Nothing Screen.MousePointer = vbDefault End If End Sub
l'id_commande change bien, comment puis-je faire pour que mon état CR soit imprimé en fonction de id_commande ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part CrRep.RecordSelectionFormula = "{TBL_RAFALE.id_commande}= " & rs!id_commande & " "
merci pour votre aide
Partager