Chemin relatif CurrentProject.FullName

Fermé
PseudoNana Messages postés 11 Date d'inscription vendredi 4 avril 2008 Statut Membre Dernière intervention 15 janvier 2009 - 8 oct. 2008 à 12:15
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 8 oct. 2008 à 14:05
Bonjour,
J'ai juste un petit problème avec mon chemin relatif pour retrouver des images.
J'aimerais changer dans mon programme le chemin dans lequel on va chercher les photos.
Pour le moment j'ai utilisé CurrentProject.FullName mais ça ne lme convient pas parce que mes photos doivent être à la racine de ma bd alors que moi je souhaite les mettre dans un répertoire "Image\"
Voici le bout de code qui pose pb:
Function SetImagePath()
Dim strImagePath As String
Dim strMDBPath As String
Dim intSlashLoc As String

On Error GoTo PictureNotAvailable
strMDBPath = CurrentProject.FullName

intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
strImagePath = Left(strMDBPath, intSlashLoc) & _
Me.PHimage
'Set ImageFrame to the path of the image file
Me.ImageFrame.Picture = strImagePath
Exit Function

Comment rajouter ce répertoire?
Merci d'avance.

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 196
8 oct. 2008 à 13:18
Bonjour,

Sans trop chercher dans le détail, il semblerait que le type de intSlashLoc est mal déclaré. La fonction InStrRev() retourne une valeur (0, Null, ou une position) différente d'un String.

Pour indiquer le chemin de ton répertoire change CurrentProject.FullName par le le chemin de ton répertoire image : "C:\Images" :

strMDBPath = "C:\Images" 
strImagePath = strMDBPath & "\" & Me.PHimage 


;o)
-1
PseudoNana Messages postés 11 Date d'inscription vendredi 4 avril 2008 Statut Membre Dernière intervention 15 janvier 2009
8 oct. 2008 à 13:45
Merci polux,
Ca fonctionne.
-1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 196
8 oct. 2008 à 14:05
De rien,

N'oublie pas de mettre le topic en résolu.

Bonne continuation.

;o)
-1