Discussion :

[aarlock]

bonjour a tous,

Je voudrai connaitre le chemin de ma base.

J'ai vu dans la FAQ les 2 lignes de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ParentDir(Application.CurrentDB.Name)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentProject.Path

La premiere ne marche pas et la deuxieme il ne semble pas connaitre CurrentProject.

Je travaille avec access97

Ou est ce que je mer**???

[Arkham46]

slt,

la fonction ParentDir n'est pas une fonction Access, elle est dans la FAQ.

[scorpion1611]

FAQ

http://access.developpez.com/faq/?pa...l#CheminTblLie

[FreeAccess]

Bonjour,
Avec ACCESS 97, pour récupérer le chemin de la base, j'utilise cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function CurrentDBDir() As String
'Retourne le nom du repertoire de la base de donnée en cours.
    Dim strDBPath As String, strDBFile As String
    strDBPath = CurrentDb.Name
    strDBFile = Dir(strDBPath)
    CurrentDBDir = Left(strDBPath, Len(strDBPath) - (Len(strDBFile)))
End Function

Ensuite, dans ton code VBA, il ne te reste plus qu'à taper CurrentDBDir chaque fois que tu veux faire référence au chemin ou se trouve ta base en cours :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Destination As String
Destination = CurrentDBDir & "\Archives\" & NomBase

Bonne continuation

[aarlock]

merci a tous

je vais utiliser la methode de freeaccess

[stigma]

Voici ma méthode dans le cas de tables attachées. Celà me permet d'avoir mes objets graphiques (ico, Gifs) et mes docs (pdf...) sur le serveur.

s_CheminBase = Mid(db.TableDefs("NomTable").Connect, 11)
Dim i
For i = Len(s_CheminBase) To 1 Step -1
If Mid(s_CheminBase, i, 1) = "\" Then Exit For
Next
s_CheminBase = left(s_CheminBase, i)