Discussion :

[ecranbleu27]

bjr

je souhaite passer un parametre d'une form VB6 à un report CR9 pour impression,

sur trois champs , ca marche pour deux mais pour le troisieme au moment de montrer la fenetre du rapport à imprimer, il ouvre une fenetre et demande de saisir une "discrete value" (CR9 en anglais)

je ne vois pas comment passer cette fenetre, car l'utilisateur n'a pas besoin de la voir evidemment.



voici mon code, pour les parametres coq et ane pas de problemes, c'est pour "totri" que ca ne vas pas.:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
Private Sub Form_Load()
Dim x As String
Dim sql As String, crot As Variant
Dim TOT As Variant, totri As Variant, coq As Variant, ane As Variant
 
' Change le pointeur de souris en sablier
Screen.MousePointer = vbHourglass
'heure = frmrestau.TxtR(4).Text
coq = Frmpiece.Text2.Text
ane = Frmpiece.Text3.Text
TOT = Frmpiece.Text4.Text
crot = ADITPIECES.Cbo.Text
 
y = Frmpiece.Label1.Caption
x = ADITPIECES.Text1.Text
INIFileName = App.Path & "\SettingFrmReper.ini"
 
    ' Instancie l'objet application
        Set ap = New CRAXDRT.Application
    ' Ouvre le rapport existant
        Set Report = ap.OpenReport("" & App.Path & "\pieces.rpt")
If x = "0" Then
        OpenConnection
        Set ADOREST = New Recordset
            sql = " SELECT *  From (`pieces` pieces ) Where numero LIKE " & y & "" & _
            " Order By pieces.`date` ASC"
 
            ADOREST.Open sql, cnn, adOpenDynamic, adLockOptimistic
 
            Report.Database.SetDataSource ADOREST
 Else
        OpenConnection
        Set ADOREST = New Recordset
            sql = " SELECT * From (`pieces` pieces )where numero like " & y & " and  provenance like '" & crot & "' "
 
            ADOREST.Open sql, cnn, adOpenDynamic, adLockOptimistic
            'Call TOTus
            Dim sommecolonne As Double
 
With ADOREST
                If .RecordCount >= 1 Then
                .MoveFirst
                While Not .EOF
                sommecolonne = sommecolonne + .Fields(9)
                .MoveNext
                Wend
                totri = Format(sommecolonne, "0.00")
                Else
                End If
                 End With
            Report.Database.SetDataSource ADOREST
 End If
 
 DynFieldStr = totri
        ' Récupère la collection des champs paramètre du rapport
        Set CRXPFDs = Report.ParameterFields
        ' Récupère le premier champ paramètre de la collection
        Set CRXPFD = CRXPFDs.Item(1)
        Set CRXPFE = CRXPFDs.Item(2)
        Set CRXPFF = CRXPFDs.Item(3)
 
        CRXPFD.AddCurrentValue (coq)
        CRXPFE.AddCurrentValue (ane)
  If x = "0" Then
        CRXPFF.AddCurrentValue (TOT)
    Else
   CRXPFF.AddCurrentValue (totri)
      End If
        CRViewer991.EnableAnimationCtrl = Not CRViewer991.EnableAnimationCtrl
        CRViewer991.DisplayGroupTree = Not CRViewer991.DisplayGroupTree
        CRViewer991.DisplayTabs = Not CRViewer991.DisplayTabs
        ' Indique à l'objet de visualisation que les données viennent du rapport
        CRViewer991.ReportSource = Report
        ' Lance la visualisation du rapport
        CRViewer991.ViewReport
        ' Le pointeur de souris redevient normal une fois le chargement effectué
        Screen.MousePointer = vbDefault
 
 
End Sub

merci d'avance....

[edam]

[Furioso]

Je ne sais pas pour cette version de CR. Mais la question a deja été posée pour CR 8.5 :

http://www.developpez.net/forums/showthread.php?t=10310

Peut etre que se sera toujours valable...