Afficher une image selon une condition

**jimbolion** · 15/02/2018, 11h10

Bonjoiur,

un me.refresh derrière le end if résout-il ton problème.

Cordialement

**tree.management** · 15/02/2018, 11h13

Bonjour jimbolion.

Désolé mais comment le note tu car je ne suis pas exepert en codes SQL ?

**jimbolion** · 15/02/2018, 11h21

comme çà

Code :

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

1
2
3
4
5
6
7
If Me.newreecord Then
    me.mon_image...
Else
    msgbox ....
    me.img...
End If
Me.Refresh

++

**Riton47** · 15/02/2018, 11h21

Re bonjour

Est-ce que ton Me.Img_EM_Z1 est correct ?

Pour tester le me.refresh fais comme pour le Msgbox mais places le après le end if comme le propose jimbolion (merci à lui)
Et ce n'est pas du SQL mais du VBA.

A+
Riton

**tree.management** · 15/02/2018, 11h35

@Riton

oui désolé, je me suis même trompé de vocabulaire.

@jimbolion
même en ayant mis ce code, cela ne se rafraichit pas automatiquement.
Et j'ai vérifier et oui, tout me semble correct.

Nom : Clipboard01.jpg
Affichages : 125
Taille : 143,6 Ko

Nom : Clipboard01.jpg
Affichages : 125
Taille : 143,6 Ko

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
    If Me.NewRecord Then
        Me.Img_EM_Z1.Picture = ""
    Else
        Me.Img_EM_Z1.Picture = [CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG"
    End If
        Me.Refresh
End Sub

**jimbolion** · 15/02/2018, 11h55

cher tous,

tree étrange car si ton fichier existe bien, cette portion de code est correcte.

Peux tu essayer çà et me faire un retour ? Cela va nous assurer que le chemin est correct et que le fichier existe bien

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 Form_Current()
 
    If Me.NewRecord Then
        Me.Img_EM_Z1.Picture = ""
    Else
        If Len(Dir([CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG")) = 0 Then
            MsgBox "Image non trouvée"
        Else
            Me.Img_EM_Z1.Picture = [CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG"
        End If
    End If
        Me.Refresh
End Sub

++

**tree.management** · 15/02/2018, 12h19

Lorsque je remet donc ce code, je n'ai pas de message qui s'affiche donc je présume que c'est correct ?

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 Form_Current()
 
    If Me.NewRecord Then
        Me.Img_EM_Z1.Picture = ""
    Else
        If Len(Dir([CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG")) = 0 Then
            MsgBox "Image non trouvée"
        Else
            Me.Img_EM_Z1.Picture = [CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG"
        End If
    End If
        Me.Refresh
End Sub

**jimbolion** · 15/02/2018, 14h20

tree.management,

oui effectivement c'est correct ! donc

Peux tu éventuellement poster ta base (sans données sensibles) avec 2 ou 3 images que l'on puisse jeter un œil dessus ?

++

**tree.management** · 15/02/2018, 14h34

Bien sûr il n'y à pas de soucis mais le fichier sera tout de même trop lourd.
Peut-être connais-tu un autre moyen de transférer la BD ?

**jimbolion** · 15/02/2018, 14h50

pas spécialement !

j'ai utilisé Sendbox qui propose l'avantage de ne pas demander d'Email et fourni un retour juste une url

pense à zipper le fichier avant

++

**tree.management** · 15/02/2018, 18h25

Je n'aurai plus le temps de faire ça jusque samedi ou dimanche.
Je vais tâcher de faire ça et de t'envoyer la BD pour dimanche ou lundi.

Encore merci pour votre aide!

**tree.management** · 19/02/2018, 06h31

J'envoie la BD via Sendbox.
Par contre, je n'ai pas su enlever les autres tables qui n'étaient pas concernées par le soucis.

Donc, c'est dans le formulaire "03_frm_arbre" où je souhaite que les images se rafraîchissent automatiquement.

Voici le lien :
http://www.sendbox.fr/2008955c2a1e3e...atiquement.rar

Les dossiers doivent rester dans le même dossier que la base de données.

Par contre, étant donné que je n'ai pas su tout enlever de ma BD, j'ai été obligé de mettre un mot de passe que je vous envoie en message privé.
Merci d'avance et bonne journée.

**tree.management** · 19/02/2018, 14h08

Toujours avec ma demande de base (modification automatique de l'image srelon un caractère), est-ce que cela est aussi possible à faire dans un état ? (je suppose que oui).
Et si oui, est-ce que ce code serait toujours bon ?

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Current()
    If Me.NewRecord Then
        Me.Img_EM_Z1.Picture = ""
    Else
        Me.Img_EM_Z1.Picture = [CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG"
    End If
        Me.Refresh
End Sub

**tree.management** · 20/02/2018, 11h01

Pour en fait faire comme ci-dessous (sauf que ce serait dans le rapport) ?

Nom : Clipboard01.jpg
Affichages : 76
Taille : 201,8 Ko

Je joins la BD avec l'exemple du rapport et le dossier contenant les images de l'exemple.

Merci d'avance et bonne journée à vous.

**Riton47** · 20/02/2018, 11h31

Bonjour Tree,

Ci joint la base en retour.
Ajout du code sur au formatage dans section détail de l'état.

A+
Riton

Tree_Management.zip

**jimbolion** · 20/02/2018, 11h44

Tree.management,

Après récupération de ta base je reste surpris car sur ma version d'Office (en l’occurrence 2013) tout fonctionne normalement.

Quoiqu'il en soit ce code me semble mieux adapté :

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 Form_Current()
 
    If Me.NewRecord Then
        Me.Img_EM_Z1.Picture = ""
    Else
        If Len(Dir([CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG")) = 0 Then
            MsgBox "Image non trouvée"
        Else
            Me.Img_EM_Z1.Picture = [CurrentProject].[Path] & "\0_etat_mecanique_Z1\" & Me.Etat_mecanique_1 & ".PNG"
        End If
    End If
        Me.Img_EM_Z1.Requery
End Sub

Tiens nous au courant après modification

jimbolion

**tree.management** · 20/02/2018, 11h51

@Riton 47.
Merci pour le fichier, c'est exactement ça. Par contre, j'ai toujours le même soucis que l'image ne s'actualise pas en fonction du code correspondant (quand j'applique cette méthode à ma base de données) ?

@jimbolion
C'est toujours la même chose, les images ne s'actualise pas automatiquement même en changeant par ce code là