Discussion :

[berthold67]

Bonsoir,

Je cherche à résoudre un problème d'image.
J'utilise une base Données.mdb liée à une base Images.mdb dans laquelle des enregistrements contiennent des images (jpg) dans une cellule "Objet OLE".
Le problème c'est que cette base Images.mdb devient volumineuse (plus de 1G)
J'ai entendu dire qu'il était possible de lier simplement une cellule de la base Données.mdb (dans un formulaire) avec une image jpg en lui indiquant l'adresse de cette image par exemple C:\Users\Berthold\Documents\Stamps\Front Page\France\0700 suivi du nom du fichier qui pourrait être "xxx.jpg" et indiqué dans un enregistrement de la Base Image.mdb (a la place de la cellule "Objet OLE") ou dans la base Données.mdb dans une cellule dédiée à cet effet.
Pourrait-on me guider dans la résolution de ce problème pour autant que cela soit possible ?
Avec mes remerciements anticipés

Berthold

[Dolphy35]

Salut,

tu peux te baser sur ceci :

- http://dolphy35.developpez.com/artic.../formcontinus/
- http://cafeine.developpez.com/access/tutoriel/photos

Dolphy

[berthold67]

Salut,

tu peux te baser sur ceci :

- http://dolphy35.developpez.com/artic.../formcontinus/
- http://cafeine.developpez.com/access/tutoriel/photos

Dolphy

Bonjour Dolphy35
un grand merci pour tes recommandations.

J'ai bien testé le lien des images par tes exemples.
Il fonctionne parfaitement lorsque l'image existe à l'emplacement désigné dans la celulle "adresse"
Un message s'affiche lorsque l'image n'existe pas à l'adresse proposée :
"Application photos
Le fichier n'a pas été trouvé à l'emplacement..."
Puis le message
"Visual basic
Erreur d'exécution -2147352567 ..."
L'image blank.jpg s'affiche, mais évidemment l'apparition de ces messages n'est pas souhaitable.
Il semble que la gestion de l'absence d'image ne soit pas prise en compte dans la partie qui y est consacrée

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
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 Picture", vbCritical + vbOKOnly, "Application Photos"
        Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
        Me.Photo = vbNullString
    Case 2220
        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Photo, vbCritical + vbOKOnly, "Application Photos"
        Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
        Me.Photo = vbNullString
    Case Else
        ' tout autre cas d'erreur
        MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
End Select

Je n'y comprends pas gand chose dans ce language bien qu'ayant suivi une formation il y a 5 ans.
Je n'utilise que les macros.
Alors si tu pouvais y jeter un coup d'oeil ?
A bientôt et encore merci d'avance.
Berthold

[berthold67]

Bonjour Dolphy35
un grand merci pour tes recommandations.

J'ai bien testé le lien des images par tes exemples.
Il fonctionne parfaitement lorsque l'image existe à l'emplacement désigné dans la celulle "adresse"
Un message s'affiche lorsque l'image n'existe pas à l'adresse proposée :
"Application photos
Le fichier n'a pas été trouvé à l'emplacement..."
Puis le message
"Visual basic
Erreur d'exécution -2147352567 ..."
L'image blank.jpg s'affiche, mais évidemment l'apparition de ces messages n'est pas souhaitable.
Il semble que la gestion de l'absence d'image ne soit pas prise en compte dans la partie qui y est consacrée
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 Picture", vbCritical + vbOKOnly, "Application Photos"
Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
Me.Photo = vbNullString
Case 2220
'Cas d'un emplacement non valide du fichier images
MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
Me.Photo, vbCritical + vbOKOnly, "Application Photos"
Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
Me.Photo = vbNullString
Case Else
' tout autre cas d'erreur
MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
End Select

Je n'y comprends pas gand chose dans ce language bien qu'ayant suivi une formation il y a 5 ans.
Je n'utilise que les macros.
Alors si tu pouvais y jeter un coup d'oeil ?
A bientôt et encore merci d'avance.
Berthold

PS: En fait le programme buge à la ligne
Me.Photo = vbNullString