[ACCESS2000] acces par un chemin relatif

hinanui Messages postés 14 Statut Membre -  
 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!

3 réponses

  1. Utilisateur anonyme
     
    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
  2. Utilisateur anonyme
     
    re :

    Bienvenue :-)

    Amicalement
    Lupin
    0