[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 bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
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
