Equivalent App.Path

Salut
Ca veut rien dire ta question
mais si tu veux savoir le chemin de la mdb en cours d'utilisation
chemin = currentdb.name

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Jeff" <jf@jf.com> a écrit dans le message de
news:OxSpeSbXDHA.2352@TK2MSFTNGP12.phx.gbl...

Bonjour

Quelqu'un aurait-il un petit bout de code (qui je pense utilise les APIs)
pour
avoir une fonction équivalente à App.Path (qui donne le chemin d'accès de
l'application
en cours d'exécution) ?

Merci d'avance

Cordialement

Jeff

Charte du forum : http://users.skynet.be/mpfa/

Salut ;O)

Voici une fonction toute faite rien que pour toi ;-)

Function fCurrentDBDir() As String

Dim strDBPath As String
Dim strDBFile As String

strDBPath = CurrentDb.name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))

End Function

Tchao

Guy DETIENNE

--
___________________________________
Tchao.net: L'informatique à votre dimension
http://www.tchao.net
Veuillez répondre dans le newsgroup afin d'en faire bénéficier tout le
monde.
Please reply only to the newsgroup so that others can benefit.
___________________________________
Visual Basic & Microsoft Access
http://www.vbfrance.com
http://www.mvps.org/access
http://www.mvps.org/vbnet
___________________________________

"Jeff" <jf@jf.com> a écrit dans le message de
news:OxSpeSbXDHA.2352@TK2MSFTNGP12.phx.gbl...

Bonjour

Quelqu'un aurait-il un petit bout de code (qui je pense utilise les APIs)
pour
avoir une fonction équivalente à App.Path (qui donne le chemin d'accès de
l'application
en cours d'exécution) ?

Merci d'avance

Cordialement

Jeff

Charte du forum : http://users.skynet.be/mpfa/

Bonjour Jeff

Jeff <jf@jf.com> :
|
| Quelqu'un aurait-il un petit bout de code (qui je pense utilise les
| APIs) pour avoir une fonction équivalente à App.Path

CurrentProject.Path
à partir de ....je ne sais pas.
Au plus tard Access 2002

Sinon pour Access2000
Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "", -1))

et enfin pour Access97, comme a proposé Guy Etienne

Au fait, dans les propriétés de la base, on ne peut pas
récupérer la propriété "Location" de l'onglet "Général" ?

question bête ;-)

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
--------------------------------------------------