Discussion :

[Tarja]

Bonjour,

J'ai lu quelques posts se rapprochant de ce que je cherche mais rien que j'arrive à exploiter. En désespoir de cause, je me suis inscrit chez vous !

Je fais un état de reporting où l'objectif est de montrer le trend d'un indicateur. Pour cela, je dois à la demande de l'utilisateur, mettre un smiley souriant si la valeur du champs "Accomplissement" est supérieur à 1, et un smiley pas content si la veleur du champs "Accomplissement" est inférieur à 1.

Je me suis orienté de la manière suivante : j'ai chargé les deux images de mes smiley dans mon état à côté de l'étiquette "Accomplissement".

J'aimerai donc mettre une condition "Visible" au smiley "content" si la valeur de "Accomplissement" est supérieur à 1.

Par contre, je n'y arrive pas car je ne suis pas codeur... à la base, je gère bien les fonctionnalité ACCESS mais pas forcement le VBA.

Je suis donc partis sur un truc qui doit être bourré d'erreur mais qui est :

Code :

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

1
2
3
4
5
6
If Me![Accomplissement] > 1 Then
     Me![content].Visible = True
Else
     Me![content].Visible = False
End If
End Sub

Vous vous en doutez, ca ne fonctionne pas...

Je pense qu'il me manque la première ligne de Sub mais je ne sais pas quoi y mettre car je ne vois pas quel procédure évènementiel je pourrais y attacher....

Merci beaucoup pour votre aide ! Et plus encore pour le temps que vous y passerez !!!

[loufab]

Bonjour et bienvenue !

Tu dois le mettre dans 2 événements au moins :

Celui qui va régir l'affichage lorsqu'on change d'enregistrement, et celui qui va le changer lorsqu'on modifie la valeur (Accomplissement).

Le premier est Sur activation du formulaire.
L'autre est Après MAJ du controle Accomplissement.

Sinon ton code (du If à Endif) semble correct.

Cordialement,

Oups !

ça c'est pour un formulaire...

Pour un état tout se passe au même endroit :

L'événement Sur formatage.

au moins tu as les 2 méthodes.

[Tarja]

Tu parles de acformat ?

Si je met un

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub AcFormatConditionOperator_Content()
If Me![Accomplissement] > 1 Then
     Me![Content].Visible = True
Else
     Me![Content].Visible = False
End If
End Sub

Cela ne marche pas... de même si je mets "acFormView" ou tout simplement "Format"

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Format_Content()
If Me![Accomplissement] > 1 Then
     Me![Content].Visible = True
Else
     Me![Content].Visible = False
End If
End Sub

[Jeannot45]

Bonjour,

Tu places ta condition dans l'évènement au formatge de la section "Détail"
de ton état

A+

[Tarja]

Merci !

J'ai trouvé le champs dans les proprités de la rupture "détail". Ca a créé un code basic dans lequel j'ai ajouté ma touche, mais ca ne fonctionne toujours pas !!! Je suis en train de m'arracher les cheuveux. Tout cela parce que ce client de m* veut des smiley

Bref ca donne cela :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me![Accomplissement] < 1 Then
     Me![Content].Visible = True
Else
     Me![Content].Visible = False
End If
End Sub

Il me semble qu'il doit manquer un "Content" quelque part... mais si vous avez des yeux avertis à me preter, je me les grefferais bien !

Est-ce qu'il faut indiqué "Option Explicit" en deuxième ligne d'une manière générale ?

Merci en tous cas

[loufab]

Explicit c'est pour t'obliger à déclarer toutes les variables avant de les utiliser, moi je le mets, je sais ou je vais comme ça...

pourquoi tu mets de ! et des crochets partout ?

utilise le . et sers-toi de la liste d'objets/méthodes/propriété au moins tu es sur de ne pas te planter dans les noms de controles.

C'est quoi qui ne fonctionne pas ?

c'est toujours affiché, c'est jamais affiché ?

[Tarja]

C'est toujours affiché : j'ai les deux cas de tests (> 1 et < 1) pour voir le résultat de l'action à chaque modification, mais rien ne change.

Ok merci pour explicite, je comprends mieux. Pour les points et les crochets, j'avoue ne pas avoir fait attention. J'ai copié cela d'une autre discussion du forum où le code me semblait adapté.

Je y a quelques autres discussion sur "visible" mais je n'arrive pas à en tirer quelque chose.

Je vais faire une copie d'écran, ca sera plus clair

[loufab]

>1 et <1 cela veut dire que tu n'a jamais =1. Donc ce qui est =1 sera affiché comme le précédent (visible ou pas).

Au besoin mets un trace avant et pendant ton test.

Code :

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

1
2
Debug.print me.accomplissement
Debug.print me.content.visible

Utilise ces 2 lignes que tu place avant ton test et dans chaque cas de traitement.

Pour moi le code est bon. Content c'est bien le nom du controle image qui contient le gentil smiley du sympathique client ?

[loufab]

Il se peut que le problème vienne du %, c'est pour cela qu'avec une trace tu verra dans la fenêtre debug si tu testes la bonne valeur.

[Tarja]

Les débug ne sont pas pris en compte même quand je crée une erreur volontaire dans le code.

J'en conclue logiquement que je ne fais même pas appel au code, donc c'est pour cela que je n'aurais pas de résultat. Il doit donc y avoir un problème en amont d'appel du code...

Zut, on fait des progrès mais il manque à chaque fois un petit truc. C'est vexant.

Est-ce que ca peut venir de la source de contrôle qui pourrait être mal renseignée ? Pour les propriétés du smiley j'ai mis "Accomplissement" mais pour les propriété du "détail", je n'en ai pas. Seulement la procédure évenementielle.

[loufab]

Le debug et les erreurs c'est 2 choses différentes. Si tu mets ces 2 lignes il t'affichera forcément le résultat dans la zone Exécution de l'éditeur VB.

Par curiosité dans la propriété Sur formatage (ou Au formatage, je fais ça de tête...) il y a bien marqué [Procédure Evénemetielle] ?

[Tarja]

Oui Ca tout de même, ca fonctionne bien. Je vais continuer à chercher un peu. Je te donne des news dès que j'ai du neuf

[DMboup]

Oui Ca tout de même, ca fonctionne bien. Je vais continuer à chercher un peu. Je te donne des news dès que j'ai du neuf

Qu'est ce qui fonctionne? Le Debug ou l'affichage?

1. Tu peux mettre aussi des messages pour voir si tu rentres bien dans ton test

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
     EntreTest="Non testé."
 
     msgbox "Entrée "& EntreTest
     If Me![Accomplissement] > 1 Then
          EntreTest="Bien Joué "
     Else
          EntreTest= " Pas Bien joué"
     End If
 
      msgbox EntreTest

Le message final te dira si le test est fait ou non

2. Si tu as deux contrôles images il faut compléter l'affichage

Code :

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

1
2
3
4
5
6
7
8
 
If Me![Accomplissement] < 1 Then
     Me![Content].Visible = True
     Me![Content2].Visible = False
Else
     Me![Content].Visible = False
     Me![Content2].Visible = true
End If