[ACCESS2000] acces par un chemin relatif
hinanui
Messages postés
14
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour!
je travaille sous access 2000 et je voudrais savoir s il existait une fonction sous access qui permettrait de recuperer le chemin d acces a l executable de l'application que je suis en train de creer sous access.
en fait, je voudrais trouver des fichiers par un chemin relatif et non absolu. Et vu que les fichiers que je cherche sont toujours au meme endroit par rapport a l emplacement de l executable...voila donc mon dilemme...
voila, si quelqu un a une idee geniale.... merci d avance!
je travaille sous access 2000 et je voudrais savoir s il existait une fonction sous access qui permettrait de recuperer le chemin d acces a l executable de l'application que je suis en train de creer sous access.
en fait, je voudrais trouver des fichiers par un chemin relatif et non absolu. Et vu que les fichiers que je cherche sont toujours au meme endroit par rapport a l emplacement de l executable...voila donc mon dilemme...
voila, si quelqu un a une idee geniale.... merci d avance!
A voir également:
- Le chemin d'accès du fichier rapport.doc peut être décrit par
- Fichier epub - Guide
- Fichier bin - Guide
- Fichier .dat - Guide
- Fichier rar - Guide
- Dans l’illustration ci-dessous, le chemin d’accès du fichier rapport.doc peut être décrit par : documents/projet/rapport.doc quel est le chemin d’accès du fichier sources.doc ? ✓ - Forum Access
3 réponses
Bonsoir,
Ce n'ai certe pas génial, mais ça fonctionne !
Est-ce que ça répond à vos attentes ?
Public Sub ChercheRepertoire()
Dim Source As String
Dim Destination As String
Dim NomProg As String
Dim Position, Longueur As Integer
Source = Application.CurrentProject.FullName
NomProg = Application.CurrentProject.Name
Position = Len(NomProg)
Longueur = Len(Source)
Destination = Mid(Source, 1, (Longueur - Position))
Destination = Destination & "...suite\du\chemin"
ChDir Destination
End Sub
Lupin
Ce n'ai certe pas génial, mais ça fonctionne !
Est-ce que ça répond à vos attentes ?
Public Sub ChercheRepertoire()
Dim Source As String
Dim Destination As String
Dim NomProg As String
Dim Position, Longueur As Integer
Source = Application.CurrentProject.FullName
NomProg = Application.CurrentProject.Name
Position = Len(NomProg)
Longueur = Len(Source)
Destination = Mid(Source, 1, (Longueur - Position))
Destination = Destination & "...suite\du\chemin"
ChDir Destination
End Sub
Lupin
