Discussion :

[mawi]

Bonjour,

j'ai un formulaire avec différents enregistrements et un contrôle image.

je souhaite que lorsque je change d'enregistrement l'image associée à l'enregistrement change.

chaque image a pour nom le numéro de l'enregistrement et est stockée dans un répertoire images.

j'ai le code suivant associé à mon formulaire :

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
Private Sub Form_Current()
    ' Affiche la photo pour l'enregistrement de l'ouvrage en cours si
    ' cette photo existe. Si le nom de fichier n'existe plus ou si le
    ' nom de fichier est vide pour l'employé en cours, aucune photo ne s'affiche
    Dim res As Boolean
    Dim fName As String
 
    'emplacement base
    path = CurrentProject.path
    On Error Resume Next
 
    If Not IsNull(Me![Scan_image3]) Then
            Me.ImageFrame3.Visible = True
            res = IsRelative(Me![Scan_image3])
            fName = Me![Scan_image3]
            If (res = True) Then
                fName = path & "\images\Scan_image3\" & fName
            End If
 
            MsgBox fName
            Me![ImageFrame3].Picture = fName
 
            Me.PaintPalette = Me![ImageFrame3].ObjectPalette
 
            'si l'image n'existe pas, aucune image n'apparaît
            If (Me![ImageFrame3].Picture <> fName) Then
                Me.ImageFrame3.Visible = False
            End If
        Else
            Me.ImageFrame3.Visible = True
        End If

J'ai un message d'erreur : la base de données ne peut pas ouvrir le fichier "chemin d'accès vers l'image"

Si je mets directement le lien de l'image dans la source sur le formulaire, ça fonctionne bien !?

Merci d'avance pour vos conseils !

[mawi]

J'ai avancé un peu depuis hier ! ça marche pour ma première image mais pour la deuxième non (il y en a trois en tout !)...

Je ne comprends pas, c'est exactement le même code ! et même si je mets directement le chemin d'accès du fichier, j'ai le même message d'erreur :

Erreur d'exécution '2220'
Base ouvrages ne peut ouvrir le fichier "C:\..."

Quelqu'un connaît ce problème ?

Merci d'avance

[mawi]

J'ai essayé en plaçant l'image à la racine de C et ça marche... Est-ce que le problème pourrait venir de ça ?