Discussion :

[Jokeur]

Bonjour, je voudrais faire un calcul entre deux composants d'un DataReport, seulement j'y arrive pas ! (c'est pour ça que j'écris)

Alors, j'ai essayé avec des étiquettes, avec des zones de texte, et à chaque fois que je lance le code suivant, ça plante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub DataReport_Activate()
    Label4 = txtTotal_heure + txtTotal_km + txtTotal_prix
 
End Sub

Le message c'est variable non définie en surlignant "txtTotal_heure".

Seulement elle est pas "non définie", elle est dans mon DataReport ! J'ai copié le "name" !

Alors, soit les opérations sont impossibles, soit je m'y prend comme un manche, alors quoi que ce soit, dites moi... S'il vous please...

'arci d'avoir lu (au moins...)

[SpaceFrog]

La syntaxe du datareport est un peu différente, il faut préciser la section dans laquelle setrouve ton label et utiliser le controle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 'Pied de page
 
    With Me.Sections("section3")
        .Controls("Label4").Caption = résultat du calcul
    End With

[Jokeur]

Merci !

Maintenant ça ne me met plus l'erreur, mais (et oui, le "mais" qui fait plaisir...) le "label4" ne bouge pas !

il reste label4 dans l'état...

Je recherche, si vous savez avant moi pourquoi, faites moi signe siouplé.

[SpaceFrog]

Dans quelle section est ton label ???
si il est dans la section détail, le resulat devra etre mis dans un champs supplémentaire de la source ...

[Jokeur]

Il est dans la section "TotalGeneral1"
C'est la section juste après (ou avant, ça dépend comment tu regardes) le saut de page.

Là je fais une addition simple sur le résultat d'un agrégat...
Et lui il m'affiche Label10...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub DataReport_Activate()
    With Me.Sections("TotalGeneral1")
        .Controls("Label10").Caption = txtmoy2 + 1
 
    End With
End Sub

[SpaceFrog]

il sort d'ou txtmoy2 est tui sur de sa portée ?

[Jokeur]

Les deux sont dans la section TotalGeneral1 :
txtmoy2 c'est le champs d'agrégat
Label10 c'est ce que je veux remplacer par le résultat.

[SpaceFrog]

Je ne sais pas de quel type est ta section totalmachin là ...

Si c'est un label qui se duplique avec les enregistrements, tu ne peux pas faire comme ça..., il te faut rajouter un champs à ta source et calculer pour chaque enregistrement le resultat.

Sinon passe par une varibme publique ...

[Jokeur]

Oui, variable publique, mais maintenant c'est l'affichage qui pose problème, le calcul se fait, et cette section ne s'affiche qu'une fois. Mais le champ n'est pas modifié dans l'état.

On dirait qu'il est pas rafraichit, j'ai mis la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Refresh

que ca lui a pas fait plus plaisir...

[Jokeur]

Alors le truc c'est de pas le mettre dans l'évènement : DataReport_Activate() du data report, mais de le mettre avant l'aapel du data report :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Bouton_Click()
    'on ouvre la connexion
    MonDataEnvironment.MonDataReport.Open "MaConnexion"
 
    'on ouvre le report
     MonDataReport.Sections("MaSection").Controls!MonChamp.Caption = "MonTexte"
    MonDataReport.Refresh
    MonDataReport.Show
 
    'on ferme la connexion
    MonDataEnvironment.MonDataReport.Close
    Unload MonDataEnvironment

Voilà.

Merci beaucoup SpaceFrog pour le coup de la section.

[SpaceFrog]

Pfff chui vraiment trop con !!!

J'aurais pu te dire que moi je le collais pas dans l'activate mais dans l'initialize !!!!

Désolé