Discussion :

[Sixtjmm]

Bonjour,
Voici ma question du jour sur un problème qui me bloque.
dans la table "T_chemin_photos" j'ai un champ "chemin_complet" (voir photo jointe) contenant le chemin complet de la photo.
dans le formulaire "F_chemin_photo" je voudrais pouvoir visualiser la photo a l'aide de son chemin complet.
Comment m'y prendre?
L'objectif est double : 1/ alléger au maximum ma base car seul le chemin du fichier sera dans la base.
2/ pouvoir modifier simplement par une requête le chemin de l'image si besoin était.
Un grand merci pour vos réponses à venir.
Très cordialement

[madefemere]

Bonjour,

Tu as vu le tutoriel ? Au point IV

Cordialement.

[Sixtjmm]

Oui, j'ai bien vu la réponse et j'ai vu le tuto 4 .
mais je n'arrive pas à faire marcher.
je voudrais que chaque enregistrement en les faisant défiler affiche l'image de son champ "chemin_complet"
Quelqu'un pour m'aider ????
Merci d'avance.
Cordialement

[User]

Bonjour,

Pour compléter la réponse et en suivant le tuto mentionné, il faudrait insérer un contrôle image nommée "Image1" dans le formulaire.

Puis, mettre ce code sur l'événement activation du formulaire pour afficher dans le contrôle "Image1" l'image située à l'emplacement contenu dans le champ chemin_complet :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
    On Error GoTo err_current
    ' affiche dans le contrôle "Image1" l'image située à l'emplacement enregistré dans le champ chemin_complet sur activation d'un enregistrement
    Me.Image1.Picture =Me.chemin_complet
    Exit Sub
err_current:
    Me.Image1.Picture = ""
 
End Sub

[Sixtjmm]

Re bonsoir à tous.
je n'ai pas réussi avec vos réponses précédentes.
il est vrai que je ne maitrise pas trop (c'est un euphémisme) le code vba.

Quelqu'un pourrait il regarder ma demande avec photo et nom et définition des champs et m'indiquer le code à insérer?

Ce que je voudrais faire :
Dans le formulaire, afficher la photo d'après le chemin d'accès dans le champ "chemin_complet" sans avoir à mettre la photo en fichier lié, afin de ne pas avoir la photo elle même dans la base pour ne pas l'alourdir.

Pour les bonne âmes ceux qui pourraient ou voudraient m'aider, voici ma base de données ainsi que le répertoire images.

merci pour vos aides.
JM

[hyperion13]

Salut
En visuel et sur l'évènement Sur activation du form

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If Not Me.chemin_fic = "" Or Not IsNull(Me.chemin_fic) Then
    Me.cadreImage.Picture = Me.chemin_fic
Else
    Me.cadreImage.Picture = ""
End If
End Sub

EDIT : Je ne vois pas l'intérêt d'utiliser un champ de type de données Calculé pour calculer le chemin des emplacements de vos fichiers images, sauf pour le fun. Vous avez ici des solutions.

[Sixtjmm]

Bonjour, je ne comprends pas car cotre code semble bon et le fichier est bien présent.
Est-ce un problème d'extension du fichier????
Je ne sais plus à quel saint (vous peut-etre) me vouer!!!!!
je vous joins le message d'erreur.
Qu'en pensez vous?

[hyperion13]

Quelle ligne de votre code est surlignée en jaune lorsque vous cliquez sur Débogage?