Repertoire courant en VBA
Thierry
Je souhaiterais connaitre le repertoire courant (le repertoire depuis
lequel j'ai lance Access, en cliquant sur mabase.mdb).
La fonction CurDir me retourne le chemin par défaut d'access, a savoir :
"c:\mes documents".
Existe-t-il un moyen d'avoir ce chemin courant ???
merci !
--
Thierry
Christophe
En Access 2000, ta réponse se trouve dans "CurrentProject.Path", mais je ne
suis pas sûr que "CurrentProject" existait bien dans les versions
précédentes (ça a l'air d'être lié à VB6).
Cordialement,
Christophe
Thierry <t...@chez.com> a écrit dans le message : 39698...@cge.net...
Herve Inisan
ne
> suis pas sûr que "CurrentProject" existait bien dans les versions
> précédentes (ça a l'air d'être lié à VB6).
CurrentProject s'applique effectivement aux projets basés sur le moteur MSDE
(format ADP).
Dans une base Jet (format MDB), CurrentDB.Name fait l'affaire.
Ouala !
----------
Herve Inisan
Java+Applets, Access+ASP+SQL, Word : http://www.multimania.com/inisan
Thierry
merci quand meme !
--
Thierry
"Christophe" <christop...@sediap.fr> a écrit dans le message news:
#Vcntzk6$GA.242@cppssbbsa05...
> Bonjour Thierry,
>
> En Access 2000, ta réponse se trouve dans "CurrentProject.Path", mais je
ne
> suis pas sûr que "CurrentProject" existait bien dans les versions
> précédentes (ça a l'air d'être lié à VB6).
>
Thierry
--
Thierry
"Herve Inisan" <ini...@pop.multimania.com> a écrit dans le message news:
ikga5.1096$jE2.3...@nnrp2.proxad.net...
> > En Access 2000, ta réponse se trouve dans "CurrentProject.Path", mais je
> ne
> > suis pas sûr que "CurrentProject" existait bien dans les versions
> > précédentes (ça a l'air d'être lié à VB6).
>
Christophe
Ce qui est étrange, c'est que même un *.mdb reconnaît le currentproject (Ah,
les bizarreries d'Access, quelque fois ça me déprime, mais aujourd'hui ça
va, ce temps d'automne en Juillet suffit à ma déprime ... ;o)), et
d'ailleurs c'est bienvenu car j'ai l'impression que c'est le seul moyen
d'attaquer les collections AllForms et autres All qui sont bien pratiques.
Mais c'était pour chipoter, le lundi matin, je suis d'humeur taquine ...
Bonne journée,
Christophe
Herve Inisan <ini...@pop.multimania.com> a écrit dans le message :
Herve Inisan
(Ah,
> les bizarreries d'Access, quelque fois ça me déprime, mais aujourd'hui ça
> va, ce temps d'automne en Juillet suffit à ma déprime ... ;o)), et
> d'ailleurs c'est bienvenu car j'ai l'impression que c'est le seul moyen
> d'attaquer les collections AllForms et autres All qui sont bien pratiques.
Ouaip : a priori, dans un MDB Access 2000, l'objet CurrentProject est
également utilisable.
C'est vrai que les nouveaux objets d'Ac2000 sont intéressants, au détriment
d'une cohérence globale.
Les bizarreries d'Access... et de Microsoft !
A+
Christophe
> Les bizarreries d'Access... et de Microsoft !
Je suis bien d'accord avec ça !!!
> C'est vrai que les nouveaux objets d'Ac2000 sont intéressants, au
détriment
> d'une cohérence globale.
Il est vrai qu'ils prennent beaucoup de libertés par rapport au modèle objet
de VB, qui lui m'est très sympathique (même s'il manque quelques petits
trucs), et que c'est un peu pénible en développement.
Enfin, faut faire avec, surtout le Lundi.
A bientôt j'espère sur ce NG,
Christophe
PierreV
Salut Thierry,
Bien pour Access-97, vous pouvez utiliser la fonction suivante afin de
retourner le repertoire courant:
'******Debut du code
'
' retourne le répertoire de la base de données courante
'
Public Function RepertoireCourant() As String
Dim sCheminComplet As String
' répertoire + nom de la bd
sCheminComplet = CurrentDb.Name
' retirer le nom du fichier
RepertoireCourant = Left$(sCheminComplet, Len(sCheminComplet) -
Len(Dir$(sCheminComplet)))
End Function
'******Fin du code
Salutations,
Pierre
---------