Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Chemin d'acces

Chemin d'acces

3 réponses
Avatar
schneider
J'aimerais déterminer sous VBA le chemin d'accès au répertoire qui
contient ma base de donnée, et là je sèche.
Existe-t-il une solution pour le déterminer ? (je travail Access 97)

Merci pour votre aide,
Jean-Marie
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Anor
Bonjour

schneider a confié :
| J'aimerais déterminer sous VBA le chemin d'accès au répertoire qui
| contient ma base de donnée, et là je sèche.
| Existe-t-il une solution pour le déterminer ? (je travail Access 97)
|
| Merci pour votre aide,
| Jean-Marie

Allez une petite variante pour changer de ce qu'on trouve dans les archives :

Mid(CurrentDb.Name, 1, Len(CurrentDb.Name) - InStr(1, CurrentDb.Name, Dir(CurrentDb.Name)) + 1)
ou
Left(CurrentDb.Name, Len(CurrentDb.Name) - InStr(1, CurrentDb.Name, Dir(CurrentDb.Name)) + 1)

--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum ##
--------------------------------------------------
Avatar
schneider
Impécable.

Merci pour ton aide. J'ai juste réalisé une petite modification et je
récupére mon texte :
Left(CurrentDb.Name, InStr(1, CurrentDb.Name, Dir(CurrentDb.Name)) - 1)

Maintenant il faut que je réussisse à faire fonctionner ma liaison ole...

Jean-Marie
NB : pourrais-tu m'expliquer comment rechercher dans les archives ?


Bonjour

schneider a confié :
| J'aimerais déterminer sous VBA le chemin d'accès au répertoire qui
| contient ma base de donnée, et là je sèche.
| Existe-t-il une solution pour le déterminer ? (je travail Access 97)
|
| Merci pour votre aide,
| Jean-Marie

Allez une petite variante pour changer de ce qu'on trouve dans les archives :

Mid(CurrentDb.Name, 1, Len(CurrentDb.Name) - InStr(1, CurrentDb.Name, Dir(CurrentDb.Name)) + 1)
ou
Left(CurrentDb.Name, Len(CurrentDb.Name) - InStr(1, CurrentDb.Name, Dir(CurrentDb.Name)) + 1)



Avatar
Anor
Bonjour,

schneider a confié :

| NB : pourrais-tu m'expliquer comment rechercher dans les archives ?

Il te suffit de regarder le premier lien de ma signature.
tout y est expliqué.

--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------