Discussion :

[zinovas]

Bonjour,

dans ma base de données je visualise des images et dans la base de données je stock le chemin de l'image, mon code je l'ai pris du FAQ Access est tout marche bien,

mais là j'ai travailé sur un poste et quand j'ai pris la base et je l'ai installé sur un autre poste il me dit que le chemin indiqué n'existe pas.

Alors s'il y a moyen de stocker que le chemin du répértoire des images et la suite
par exemple : C:\Documents and Settings\user\Mes documents\Base_données\Photo \Angel\01
d'avoir une variable Y ou Y=Photo \Angel\01

Code :

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

me.Photo=CurrentProject.Path & Y

alors comment obtenir la variable Y
Merci

[Invité]

Salut

Tu viens de répondre toi même à ta question, stocke uniquement PHOTO\ANGEL 1, et crée ta chaine avec le CurrentProject.Path, n'oublie pas de mettre ton répertoire des photos dans le même que ta base

Starec

[zinovas]

oui mais comment obtenir Y

[Invité]

Re

pour obtenir ton y utilise la fonction MID (voir l'aide) elle te permettra de récupére ce qu'il y'a aprés Base_données.

Starec

[zinovas]

le probléme que la fonction MID à besoin de la position exact du nom du répertoir ou se trouve ma base de données mais il change.

en fait je veux une fonction qui prend le chemin complet de l'image et me stock que ce qui vient après CurrentProject.Path si vous pouvez me donner un coup de main et merci

[stigma]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    '-----------  Chemin de la base
initialisation  :
 
    s_CheminBaseEmploye = Mid(db.TableDefs("Users").Connect, 11)
    Dim i As Integer
    For i = Len(s_CheminBaseEmploye) To 1 Step -1
        If Mid(s_CheminBaseEmploye, i, 1) = "\" Then Exit For
    Next
    s_CheminBaseEmploye = Left(s_CheminBaseEmploye, i)
 
 
Affichage:
        img_Photo.Picture = s_CheminBaseEmploye & "Photos\" & s_Employe & ".jpg"

[zinovas]

merci,

je l'ai résolu comme suivant:

Code :

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

1
2
Strf = Len(CurrentProject.Path)
    Me.Photo = Mid(strLink, Strf + 1)

ou Strlink est le chemin complèt de mon image
merci

[cafeine]

Hello,

j'avais posté un code pour obtenir un chemin relatif en fonction d'un répertoire de référence.

http://www.developpez.net/forums/sho...d.php?t=195577