Discussion :

[dadou5821]

Bonjour à tous,

je souhaites afficher ou non une image dans la partie Détail d'un état en fonction de la valeur d'un champ de la table source de l'état.
j'ai écris la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Report_Load()
If Me.Conservation.Value Like "*lum*" Then
  Me.Image5.Visible = True
    Else
    Me.Image5.Visible = False
 
    End If
End Sub

Cela fonctionne bien si la table contient qu'un seul enregistrement. En revanche, dès deux enregistrements, le code ne fonctionne plus.
J'ai cru voir dans mes recherches qu'un état ne pouvait pas appliquer ce type de code pour chaque enregistrement.

J'ai essayé d'appliquer ce code dans une procédure de type

Code :

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

1
2
Private Sub Detail_Format(Cancel As Integer, _
 FormatCount As Integer)

sans succès...

J'ai également essayé de passer par la source contrôle de l'image en écrivant ceci :

Code :

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

=VraiFaux([Conservation] Comme "*lum*";[Image5].[Visible]=Vrai;[Image5].[Visible]=Faux)

Avez vous une idée ?
je vous remercie par avance pour avoir pris de votre temps

[tee_grandbois]

bonjour,
Report_Load ne se déclenche qu'au chargement et ne traitera pas de ce fait tous les enregistrements.
Si Conservation n'est pas un champ indépendant, c'est pourtant bien dans l'évènement Détail_Format (ou Détail_Print) que le code devrait fonctionner.

Il faut quand même savoir que, depuis quelques années, le mode par défaut de l'affichage d'un état est le "Mode état" alors que les évènements Format et Print se déclenchent en mode "Aperçu avant impression". Vérifie que tu n'est pas en "Mode état"

[dadou5821]

Bonjour tee_grandbois,

je suis bien en mode d'affichage par défaut "Aperçu avant impression" et le champ n'est pas indépendant.
Le code ci dessus dans une procédure :

Code :

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

1
2
Private Sub Detail_Format(Cancel As Integer, _
 FormatCount As Integer)

ou

Code :

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

1
2
Private Sub Detail_Print(Cancel As Integer, _
 FormatCount As Integer)

n'est pas pris en compte

[tee_grandbois]

je n'ai pas d'explication, cela devrait fonctionner ...
utilises-tu une version anglophone ? car il n'y a pas d'accent aigu sur le e de "Detail" dans Detail_Format et Detail_Print

[dadou5821]

tu serais devant moi je t'épouserai !!
Tu as vu juste. L'ajout d'un accent sur Detail permet le fonctionnement du code.

C'est tellement rageant et soulageant en même temps.
Merci infiniment tee_grandbois !!

[tee_grandbois]

tu serais devant moi je t'épouserai

encore faudrait-il que je sois consentant, je n'ai pas envie d'être bigame !

n'oublie pas le bouton