Discussion :

[alex_95]

Bonjour à tous,


Mes utilisateurs evaluent leurs marches avec des zones de listes presentent dans un formulaire. En fonction des donnees saisies cela affiche des Harvey balls (Boule vide, remplie a 1/4, 1/2 etc...)
Le formulaire fonctionne nickel mais je voudrais faire la meme chose dans l'etat qui découle du formulaire.. et la je séche

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
ssQL = "DoCmd.OpenReport "Follow-up calls", acViewDesign
Select [Evaluation] From Market where [Market]= '" & marche & "'"
    Set rst = CurrentDb.OpenRecordset(ssQL, dbOpenForwardOnly, dbReadOnly)
    SCORE = Val(rst![evaluation])
    If SCORE <= 12.5 Then
       Reports!["Follow-up calls"].Controls("Bild" & debut).Picture = "\\Images\empty_bubble.jpg"
    ElseIf SCORE > 12.5 And SCORE <= 37.5 Then
        Reports!["Follow-up calls"].Controls("Bild" & debut).Picture = "\\Images\25_pc.jpg"
    ElseIf SCORE > 37.5 And SCORE <= 62.5 Then
        Reports!["Follow-up calls"].Controls("Bild" & debut).Picture = "\\Images\50_pc.jpg"
    ElseIf SCORE > 62.5 And SCORE <= 87.5 Then
        Reports!["Follow-up calls"].Controls("Bild" & debut).Picture = "\\Images\75_pc.jpg"
    ElseIf SCORE > 87.5 Then
        Reports!["Follow-up calls"].Controls("Bild" & debut).Picture = "\\Images\100_pc.jpg"
    End If

Ce code marche nickel dans le formulaire mais pas dans l'etat, merci de vos lumieres.

A+
Alex

[ClaudeLELOUP]

Bonjour Alex_95,

Inspire-toi de ce tutoriel : http://claudeleloup.developpez.com/t...plic-ploc/#LII
Un exemple

Dans l’événement sur formatage de la section Détail, ce 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
Option Compare Database
Option Explicit
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
  Select Case Me.txtScore
    Case Is < 12.5
      Me.txtChemin = CurrentProject.Path & "/Images/empty_bubble.jpg"
    Case Is < 37.5
      Me.txtChemin = CurrentProject.Path & "/Images/25_pc.jpg"
    Case Is < 62.5
      Me.txtChemin = CurrentProject.Path & "/Images/50_pc.jpg"
    Case Is < 87.5
      Me.txtChemin = CurrentProject.Path & "/Images/75_pc.jpg"
    Case Else
      Me.txtChemin = CurrentProject.Path & "/Images/100_pc.jpg"
  End Select
End Sub

Le résultat

Dans l’exemple, les images sont logées dans le sous-répertoire « Images » de la db.

[alex_95]

Parfait, merci beaucoup pour cette explication très claire ClaudeLELOUP

Seule chose que je ne comprends pas, j'ai modifié le code en m'inspirant de ce que tu as fait et que je comprends... Mais rien ne se passe en ajoutant un stop dans le Deetail de l'etat :

Code :

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

1
2
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Stop

Et... jamais la macro ne passe par le stop... As tu une idée stp ?
Merci
Alex

[ClaudeLELOUP]

Chez moi (Access2000), j'aurais ceci :

... mais, ce stop, pour quoi faire ?

[alex_95]

Je cherchais juste a comprendre pourquoi rien ne se passait et j'ai donc mis ce stop afin de controler si cet evenement se lancait.

Tout fonctionne nickel, merci.
J'ai cependant un problème aléatoire, par moment, certains champs disparaissent au moment de la creation du pdf... As tu une idée ?
Par exemple, j'ai bien la liste de diffusion dans le formulaire, elle vient bien dans le mail qui va generer la macro.. mais impossible de le faire apparaitre dans l'etat... ou du moins ca marche une fois de temps en temps

Merci
Alex

[alex_95]

FInalement en jouant avec des visibles et refresh : totu fonctionne !!!

MErci
A+
Alex

[ClaudeLELOUP]

Bonjour,

J'ai cependant un problème aléatoire, par moment, certains champs disparaissent au moment de la création du pdf... As-tu une idée ?
Par exemple, j'ai bien la liste de diffusion dans le formulaire, elle vient bien dans le mail qui va générer la macro.. mais impossible de le faire apparaitre dans l'état... ou du moins ça marche une fois de temps en temps

Hélas, pas d'idée a priori : il faudrait examiner sur pièces... et je ne suis pas équipé pour lire un fichier version2013.

Peut-être que dans ton code tu as des instructions qui se déclenchent avant que d'autres (en amont) n'aient eu le temps de terminer leur travail. Ce qui expliquerait le caractère aléatoire de l'anomalie que tu constates.

Essaie de placer un Sleep de quelques instants à la suite d'instructions susceptibles de prendre du temps.


N.B. Tu as posté le billet précédent pendant que je rédigeais le mien.