Gestion photo access lien relatif

**giguet** · 13/02/2006, 18h58

Bonjour,

Une question concernant la gestion des photos et sur le tutoriel de caféine.

Comment tout en conservant le code donné par caféine peut-on le modifier pour que lorsque l'on clique sur le bouton pour aller chercher le chemin d'une image, le chemin d'accès du fichier ne soit plus en absolu (cad à partir de C:\...\...\ mais en relatif à partir de l'endroit où se trouve ma base de donnée et les répertoires qui se trouvent dans le même répertoire). Le but de la manoeuvre est qu'une fois les chemins de mes fichiers images établis, ils ne soient pas perdus (invalides) si je déplace ma base (un peu comme avec les liens hypertexte).

Après recherche sur le forum, j'ai bien trouvé une réponse pour la gestion du chemin du répertoire (avec currentproject.path) mais je suis novice et ne comprend pas grand chose (pour le moment, faut espérer) et je suis par avance désolé de reposer une question pour laquelle il existe déjà une réponse. Mais j'ai besoin de votre aise, vraiment pas à pas pour comprendre.

Merci d'avance...

**Dolphy35** · 13/02/2006, 19h11

Salut,

Moi je procède comme suit.

1-je déclare un module où je met ce code

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
Function link() As String
 
'Fonction permettant de recuperer le chemin courant de la base
 
    If Right(Application.CurrentDb.Name, 1) = "\" Then
 
        link = Application.CurrentDb.Name
 
    Else
 
        link = Left(Application.CurrentDb.Name, InStrRev(Application.CurrentDb.Name, "\"))
 
    End If
 
End Function

ensuite lorsque je veux accéder à un fichier ou dossier possédant la même racine que la base ouverte =>

Code :

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

imgLogo.Picture = link & "Divers\trophy2.jpg"

la variable link possède le chemin de ta base si il y a des sous dossier comme dans l'exemple tu effectue l'ajout.

**giguet** · 13/02/2006, 20h13

Merci de ta réponse,
Je précise ma question dans le tutoriel de cafeine sur la gestion des photos, il y a ce code pour un bouton qui ouvre une boite de dialogue "Choix image":

Private Sub cmdPhoto_Click()
' Bouton d'ajout - modification de photo
Dim strLink As String

' Gestion des erreurs
On Error GoTo Catch01

' récupération du chemin physique de la photo
' par la boite de dialogue
strLink = OuvrirUnFichier(Me.Hwnd, _
"Sélectionner une photo pour le salarié " & Me.Nom, _
1)

' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
' tentative d'affichage de la photo
Me.imgPhoto.Picture = strLink
Me.Photo = strLink
End If

DisplayPhoto
Exit Sub
Est-il possible de rajouter une option dans le strLink = OuvrirUnFichier qui lui indique que le chemin du répertoire est à prendre à partir de la base en cours du style LeCheminDeMesImages=CurrentProjetc.PAth et RepParDefaut.

Private Sub cmdPhoto_Click()
Dim strLink As String

' Gestion des erreurs
On Error GoTo Catch01

' récupération du chemin physique de la photo
' par la boite de dialogue
LeCheminDeMesImages=CurrentProjetc.PAth & "\Images\"
strLink = OuvrirUnFichier(Me.hwnd, _
"Sélectionner une photo pour " & Me.Nom, _
1,,,LeCheminDeMesImages)

' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
' tentative d'affichage de la photo
Me.imgPhoto.Picture = strLink
Me.Photo = strLink
End If
DisplayPhoto
Exit Sub

Je précise que je reprend un post (clos) qui donne cette solution mais que je n'arrive pas à faire fonctionner
http://www.developpez.net/forums/vie...latif&start=15

**Arkham46** · 13/02/2006, 20h20

slt,

1 - Mets des balises de Code STP, c'est difficile à lire sinon.

2 - CurrentProjetc c'est plutôt CurrentProject : c'est juste une erreur de recopie dans le message?

3 - Idéalement tu devrais déclarer ta variable :

Code :

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

dim LeCheminDeMesImages as string

(c'est obligatoire si tu as mis <Option Explicit> en haut du module)

4 - Qu'est ce qui ne marche pas?
Message d'erreur?
Ou mauvais répertoire par défaut à l'ouverture de la fenêtre?

Bye.

**giguet** · 13/02/2006, 20h45

Oups pour le code.
Oui c'est bien CurrentProject, et j'ai bien essayé avec la déclaration de varaible.

Je suis désolé, mais j'ai pas le projet sur mon ordi... pour le message d'erreur.
J'aimerais juste savoir si je suis sur la bonne voie pour indiquer un chemin relatif pour mon lien vers mon fichier image (pour pouvoir déplacer mon dossier où se trouve ma base et ses images).

Et que faut-il rajouter pour ne pas préciser un sous-dossier mes des sous dossiers.

Code :

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

LeCheminDeMesImages=CurrentProjetc.PAth & "\Images\"

donc pas le "& \repertoire\"

**Tofalu** · 14/02/2006, 09h50

A priori là, tu as toutes les clés en main, je ne vois pas où tu bloques

**giguet** · 14/02/2006, 19h23

Voilà, finalement après consultation de ma base aujourd'hui, il n'y a pas de message d'erreur, tout fonctionne sauf que le chemin indiqué dans mon champ "lien" est toujours en absolu et non en relatif. Donc bizare !!!????

**cafeine** · 14/02/2006, 19h34

Hello,

ce n'est pas bizarre, l'appli est conçue pour stocker le chemin complet.

à toi d'adapter le code pour ne stocker que la partie qui "dépasse" de CurrentProject.Path

exemple :

Code :

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

CheminStocke = Right(CheminComplet, Len(CheminComplet) - Len(CurrentProject.Path))

**giguet** · 14/02/2006, 20h04

Salut,

Alors pourquoi quand on mais un lien hypertexte dans un champ dédié, celui-ci apparait avec un nom de chemin depuis le répertoire où se trouve ma base et non depuis C:\

l'appli est conçue pour stocker le chemin complet

Est-il possible de prendre le texte qui est dans mon champs hyperlink pour ma photo et de le mettre dans un code tel que (pour afficher ma photo) :

Code :

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

1
2
Me.imgPhoto.Picture = strLink 
Me.Photo =  CurrentProjetc.PAth & "\" & Me.[ChampLienPhotoHypertexte]

ou faut-il que je copie mon champ hypertexte dans un champ texte pour pouvoir récupérer la valeur dans mon code. Si oui, quel est le code pour le faire !!!
Je suis vraiment perdu.

**Arkham46** · 14/02/2006, 20h06

CurrentProject

à moins que tu ne changes exprès en currentProjetc dans chacun de tes messages?

**giguet** · 14/02/2006, 20h12

Mille excuse....

J'ai encore fait un copier-coller sur ma première erreur du début.
L'erreur est humaine, persister est diabolique.
Oups!!!

**giguet** · 15/02/2006, 15h02

Je suis un peu perdu.
Ma question est si avec le tutoriel de cafeine sur la gestion des images sous access, par quelques modifications, on peut transformer ce tutoriel pour que les images que l'on importe (le chemin) ne soit plus à partir de C: mais de l'emplacement où se trouve ma base. Le but étant que si l'on déplace sur le disque dur ou dans une sauvegarde, la base et ses répertoires fils, la structure des lien de fichiers soit toujours valides.
Pour le moment, si je déplace ma base et ses répertoires, les liens sont les anciens chemins de mes images.
Quelqu'un a-t-il déjà planché sur la question et aurait donc le tutoriel de cafeine sur la gestion des images avec cette modification ?

**batide** · 21/03/2006, 12h42

hello guiget

la question que tu as posée (il y a mainteant quelques mois) m'interresse aussi donc si jamaie tu as trouver une solution a ce chemin d'accés relatif je suis preneuse en attendant j'y buche aussi.

**cafeine** · 21/03/2006, 12h48

Envoyé par batide

hello guiget

la question que tu as posée (il y a mainteant quelques mois) m'interresse aussi donc si jamaie tu as trouver une solution a ce chemin d'accés relatif je suis preneuse en attendant j'y buche aussi.

Tous les éléments de réponse ont été apportés ... il ne reste qu'à les mettre en oeuvre par le code.

**batide** · 23/03/2006, 18h26

trés bien, je ne comprend pas tout mais, à force de relire je m'en sortirais... Merci quand même.
"c'est en marchant ...."

**batide** · 24/03/2006, 15h22

désolé d'insister mais j'ai réellement un pb: je récupérer bien le chemin relatif dans le champ de ma table, mais il ma dit qu'il ne les trouves pas: msg d'erreur le fichier n'as pas été trouver à l'emplacement indiqué: "le chemin relatif"

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
 
strLink = OuvrirUnFichier(Me.Hwnd, _
                         "Sélectionner une photo pour" & Me.Num_photo, _
                         1)
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
    ' tentative d'affichage de la photo
    Me.image = Right(strLink, Len(strLink) - Len(CurrentProject.Path))
    Me.imgPhoto.Picture = CurrentProject.Path & "Me.image"
 
 
End If
 
 
DisplayPhoto
Exit Sub

re désolé de possé a nouveau une question qui semble tant vous énéervé mais je pense avoir fait le tour des Faq et forum sans trouver la solution
Merci d'avance si vous pouvez maider.
PS: sur Access 2003

**Arkham46** · 24/03/2006, 15h33

slt,

c'est pas que la question énerve mais sans les détails on ne pouvait pas t'aider

essaye :

Code :

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

Me.imgPhoto.Picture = CurrentProject.Path & "\" & Me.image

1 - je crois me rappeler que CurrentProject.Path renvoie un chemin sans l'anti-slash à la fin, il faut donc le rajouter
2 - Me.Image ne doit pas être entre guillemets pour que l'expression soit évaluée

**batide** · 24/03/2006, 15h53

Merci,

ça marche parfaitement, merci beaucoup....

Gestion photo access lien relatif

Access

Discussions similaires

Partager

Partager