[ETAT][VBA]Afficher Pourcentage calculé dans une etiquette

**Laeticia** · 13/06/2006, 16h16

Bonjour !!

Voilà je cherche à afficher un pourcentage calculé dans une étiquette mais je n'y arrive pas !
J'ai cherché dans la faq mais ce n'est pas inscrit.

Ce que je souhaite en quelque sorte c'est modifier une étiquette (ou autre si un moyen plus simple et plus efficace) afin de lui affecter un calcul de pourcentage ci dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim pourcentage As String
 
If Report_CLIENT_ETAT.CA_CLIENT_ACTUEL < Report_CLIENT_ETAT.CA_CLIENT_OBJECTIF Then
pourcentage = (Report_CLIENT_ETAT.CA_CLIENT_ACTUEL) / (Report_CLIENT_ETAT.CA_CLIENT_OBJECTIF)
Else
pourcentage = (Report_CLIENT_ETAT.CA_CLIENT_OBJECTIF) / (Report_CLIENT_ETAT.CA_CLIENT_ACTUEL)
End If
 
Report_CLIENT_ETAT.Étiquette28.Form.Caption = pourcentage
 
End Sub

Bien sur la derniere ligne ne fonctionne pas ! Je n'accede pas au caption c'est moi qui l'ai mis mais ça ne fonctionne pas je ne sais pas pourquoi d'ailleur !

Merci pour votre !!!

[VERSION] : ACCESS 2003 (11.5614.5606)
Partie de Microsoft Office Profesionnal Edition 2003

(j'espere avoir bien respecté les régles définies plus haut )

**pellec** · 13/06/2006, 16h24

Essaie :

Code :

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

Report_CLIENT_ETAT = pourcentage

des fois c'est des trucs cons comme ça.

**Laeticia** · 13/06/2006, 16h34

Envoyé par pellec

Essaie :

Code :

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

Report_CLIENT_ETAT = pourcentage

des fois c'est des trucs cons comme ça.

utilisation incorrecte de la propriété

il est pas content !

je comprend pas pourquoi une étiquette n'est pas modifiable (en gros c'est ça

)
ou alors je m'y prend mal

Merci de votre aide !

**Arkham46** · 13/06/2006, 16h37

Slt,

Report_CLIENT_ETAT.Étiquette28.Form.Caption = pourcentage

Le form est en trop, que vient-il faire là?

Sinon pourquoi tu répètes Report_CLIENT_ETAT partout?
A priori ça ne sert à rien pour atteindre l'état en cours.

**Laeticia** · 13/06/2006, 16h44

Envoyé par Arkham46

Slt,

Le form est en trop, que vient-il faire là?

Sinon pourquoi tu répètes Report_CLIENT_ETAT partout?
A priori ça ne sert à rien pour atteindre l'état en cours.

Bonjour !!

oui le form est en trop, c'était un test ... pour tester

Avec ou sans ça ne fonctionne pas !
Pour le Report[...] je ne sais pas trop en fait !
Je peux faire un Me. ça ok, mais faire un Etiquette28.quelquechose non ! il ne veut pas !

Pour acceder aux propriétés et aux méthodes d'étiquette ou d'un autre élément disponible sur l'état, il faut que je passe par son nom ou par un me ! (apparement)

Merci pour votre aide !

**Arkham46** · 13/06/2006, 16h56

oui le form est en trop, c'était un test ... pour tester
Avec ou sans ça ne fonctionne pas !

Ben il ne faut pas essayer tous les mots au hasard ça risque de te prendre du temps...

Si tes contrôles sont sur l'état dans lequel s'exécute ton code il n'est pas nécessaire de répeter le nom de l'état.
Me renvoit à l'état duquel le code s'exécute (il est facultatif mais c'est pratique pour avoir la liste des contrôles et propriétés)
Après c'est le nom de l'étiquette et caption ça devrait être ça.

1 - Es-tu sûr du nom de l'étiquette?
Étiquette28 c'est pas terrible, tu peux sûrement faire plus original.
Genre EtiqPourcent.
Bon d'accord ce n'est pas original non plus mais c'est plus clair comme ça, et en ne mettant pas d'accent, d'espace ou autres folies, on évite les erreurs. (Ajouter Option Explicit en début de module ça aide aussi pour éviter les étourderies du style j'oublie un accent).
Normalement quand tu tapes Me. le nom de l'étiquette devrait apparaître dans la liste.
2 - Vu que tu es dans l'événement de formatage de la section détail, l'étiquette est-elle bien dans la section détail? (je crois que ça ne ferait pas d'erreur sinon mais elle ne serait pas mise à jour à priori si elle était dans l'en-tête par exemple).

**Laeticia** · 13/06/2006, 17h06

Envoyé par Arkham46

Ben il ne faut pas essayer tous les mots au hasard ça risque de te prendre du temps...

Si tes contrôles sont sur l'état dans lequel s'exécute ton code il n'est pas nécessaire de répeter le nom de l'état.
Me renvoit à l'état duquel le code s'exécute (il est facultatif mais c'est pratique pour avoir la liste des contrôles et propriétés)
Après c'est le nom de l'étiquette et caption ça devrait être ça.

1 - Es-tu sûr du nom de l'étiquette?
Étiquette28 c'est pas terrible, tu peux sûrement faire plus original.
Genre EtiqPourcent.
Bon d'accord ce n'est pas original non plus mais c'est plus clair comme ça, et en ne mettant pas d'accent, d'espace ou autres folies, on évite les erreurs. (Ajouter Option Explicit en début de module ça aide aussi pour éviter les étourderies du style j'oublie un accent).
Normalement quand tu tapes Me. le nom de l'étiquette devrait apparaître dans la liste.
2 - Vu que tu es dans l'événement de formatage de la section détail, l'étiquette est-elle bien dans la section détail? (je crois que ça ne ferait pas d'erreur sinon mais elle ne serait pas mise à jour à priori si elle était dans l'en-tête par exemple).

Oui ça peut prendre du temps et j'en ai pas trop en plus

Le nom de l'étiquette sure certaine, mais j'ai renommé pour plus de professionnalisme

Lorsque je tape Me. je l'ai le nom

désormais etqPourcent
C'est le caption qui lui pose souci

Oui elle est bien dans la section Détail

Merci pour votre aide !

**Arkham46** · 13/06/2006, 17h15

mais si tu mets :

Code :

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

me.etqPourcent.caption

ça fait une erreur ou pas?
parce que des fois la propriété n'est pas dans la liste mais ça marche quand même
sinon solution brutale mais parfois efficace, tu supprimes l'étiquette et tu la recrés

**Laeticia** · 13/06/2006, 17h41

Envoyé par Arkham46

mais si tu mets :

Code :

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

me.etqPourcent.caption

ça fait une erreur ou pas?
parce que des fois la propriété n'est pas dans la liste mais ça marche quand même
sinon solution brutale mais parfois efficace, tu supprimes l'étiquette et tu la recrés

Oui ça fonctionne cette fois !
J'ai eu recours à méthode dite "brutale"

Mais c'est efficace au moins !!
Merci

Pour les personnes qui trouveront souci à ce niveau voici mon code :

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
Option Compare Database
Option Explicit
 
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim pourcentage As String
 
If Me.CA_CLIENT_ACTUEL = 0 Then
Me.etqPourcent.Caption = "0"
GoTo Fin
End If
 
pourcentage = (Report_CLIENT_ETAT.CA_CLIENT_ACTUEL) / (Report_CLIENT_ETAT.CA_CLIENT_OBJECTIF)
pourcentage = pourcentage * 100
 
 
Me.etqPourcent.Caption = pourcentage & "%"
Fin:
End Sub

Codé avec les orteils

(je suis passée chez l'estéticienne hier

)

(Par contre j'aurai une question de mise en forme par rapport aux décimales, je dois poster un autre thread ?)

Merci pour votre aide ?

**Laeticia** · 13/06/2006, 17h43

Envoyé par Laeticia

Oui ça fonctionne cette fois !
J'ai eu recours à méthode dite "brutale"

Mais c'est efficace au moins !!
Merci

Pour les personnes qui trouveront souci à ce niveau voici mon code :

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
Option Compare Database
Option Explicit


Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim pourcentage As String

If Me.CA_CLIENT_ACTUEL = 0 Then
Me.etqPourcent.Caption = "0"
GoTo Fin
End If

pourcentage = (Report_CLIENT_ETAT.CA_CLIENT_ACTUEL) / (Report_CLIENT_ETAT.CA_CLIENT_OBJECTIF)
pourcentage = pourcentage * 100


Me.etqPourcent.Caption = pourcentage & "%"
Fin:
End Sub