[ACCESS2000] acces par un chemin relatif

Fermé
hinanui Messages postés 14 Date d'inscription vendredi 9 janvier 2004 Statut Membre Dernière intervention 28 juillet 2004 - 24 juin 2004 à 00:34
 Utilisateur anonyme - 24 juin 2004 à 21:33
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!

3 réponses

Utilisateur anonyme
24 juin 2004 à 02:08
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
0
c est genial!!! merci!!!!!
0
Utilisateur anonyme
24 juin 2004 à 21:33
re :

Bienvenue :-)

Amicalement
Lupin
0