Discussion :

[ThieBEN]

Bonjour à tous, j'ai un souci pour afficher des images dans un formulaire.
Mes images sont stockées en dehors de la base. j'utilise un code que m'avez donné Domi2 sur une autre base, mais là il refuse de m'afficher les photos.
De plus lorsque je clique sur le bouton insérer il m'ouvre le répertoire ou se trouve le dossier des photos mais pas le dossier photos directement voir les codes :

Code sur activation du formulaire photos :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Form_Current()
'Affichage de la photo et de son libellé - Gestion d'erreurs
    If IsNull(Me.Id_Titre.Value) Then
 
        Me.Image17.Picture = strRepertoirePhotos & "Blank.jpg"
 
        Me.LibellePhoto = "Photo non disponible"
 
    Else
 
        Me.Image17.Picture = strRepertoirePhotos & Me.Id_Titre.Value
 
        Me.LibellePhoto = Left(Me.Id_Titre.Value, InStr(Me.Id_Titre.Value, ".") - 1)
 
    End If
 
    Exit Sub
 
GestionErreur:
 
    Select Case Err.Number
 
    Case 2114
 
        'Cas d'un type de fichier photo non supporté
        MsgBox "Le format de l'image n'est supporté par le contrôle image ", vbCritical + vbOKOnly, "AMDP"
 
        Me.Image17.Picture = strRepertoirePhotos & "Blank.jpg"
 
        Me.LibellePhoto = "Photo non disponible"
 
    Case 2220
 
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Id_Titre.Value, vbCritical + vbOKOnly, "AMDP"
 
        Me.Image17.Picture = strRepertoirePhotos & "Blank.jpg"
 
        'Me.LibellePhoto = "Photo non disponible"
 
    Case Else
        ' tout autre cas d'erreur
        MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "AMDP"
 
    End Select
 
    Err.Clear
End Sub

Code bouton :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Commande11_Click()
On Error Resume Next
 
 
    Dim NomPhoto As String
 
    '--------------------------------------------------------------------------------------------
    ' Projet        : Gestion des photos
    ' Appel         :
    ' Auteur        : Domi2
    ' Version       : 1.0 - 26.07.2007
    ' Révision      : -
    ' Commentaires  : Permet d'enregistrer le nom de la photo dans la table
    ' Lien          :
    '--------------------------------------------------------------------------------------------
 
    'Ouverture de la boîte de dialogue Ouvrir fichier. On ne récupère que le nom du fichier.
    'Paramètre : 1 pour récupérer le nom du chemin complet
    'Paramètre : 2 pour récupérer uniquement le nom de fichier
    NomPhoto = OuvrirFichier(Me.Hwnd, "Choisir une photo pour cet Equipement", 2, "Fichier .jpg", "jpg", strRepertoirePhotos)
 
    'Récupération et stockage du chemin du fichier dans le champ Id_Titre
    If NomPhoto <> "" Then
 
    Me.Id_Titre.Value = NomPhoto
 Else
     'Exit Function
 End If
 
    'Affichage de la photo
    Me.Image17.Picture = strRepertoirePhotos & Me.Id_Titre.Value
 
    'Modification du libellé de la photo
    Me.LibellePhoto = Left(Me.Id_Titre.Value, InStr(Me.Id_Titre.Value, ".") - 1)
 
End Select
'End Function
 
End Sub

Erreur d'exécution 2220
Merci du coup de main

[fbtsra]

Bonjour,

Il semble y avoir eu des coupes rases dans ce code ...

L'erreur d'exécution 2220 provient probablement du :

Code :

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

End Select

qui se balade seul en ligne 36.

Par ailleurs :

De plus lorsque je clique sur le bouton insérer il m'ouvre le répertoire ou se trouve le dossier des photos mais pas le dossier photos directement voir les codes :

explique probablement pourquoi vous n'obtenez pas l'affichage - vérifiez le répertoire de la variable strRepertoirePhotos.

Par ailleurs "GestionErreur:" n'est pas appelé dans votre code et ne sert donc pas en l'état.

Bcdt

[loufab]

Bonjour,

Avant d'exécuter le code il faut toujours compiler.

Cordialement,

[ThieBEN]

Bonjour et merci pour vos réponses.
En fait, pour que le code de Domi2 fonctionne, il fallait que je rajoute un module pour rétablir les chemins des répertoires et il me manquait également une macro.
Tout est maintenant rétabli.
Merci à Domi2 pour sa programmation et merci à vous de m'avoir poussé à réfléchir afin de trouver la solution.
Cordialement
THIEBEN