Chemin relatif CurrentProject.FullName
PseudoNana
Messages postés
11
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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.
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.
A voir également:
- Chemin relatif CurrentProject.FullName
- Chemin fichier host - Guide
- Le chemin d'accès spécifié est introuvable ✓ - Forum Téléchargement
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? ✓ - Forum Windows
- Le chemin d’accès spécifié est introuvable ✓ - Forum Téléchargement
- Discord aucun chemin de connexion - Forum Discord
3 réponses
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" :
;o)
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)
