Chemin base courante access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 181 fois - Téléchargée 38 fois

Contenu du snippet

Cette fonction permet sous access, de trouver le chemin de la base courante. Pratique pour ouvrir ses connections en relatif et non en absolu...
Je ne savais pas comment faire cela, j'ai posé la question dans le forum et personne ne m'ayant répondu j'ai pensé que cela pouvait interessé d'autres personnes (malgré la simplicité du code, j'ai galéré à trouver comment faire (utiliser les bons objets et la bonne propriété) donc j'espère que cela évitera à d'autres de trop chercher...).
@+

Source / Exemple :


Public Function BasePath() As String
Dim strconnection As String
Dim pos As Integer
strconnection = Application.CurrentProject.BaseConnectionString
pos = InStr(1, strconnection, "Data source=")
strconnection = Mid(strconnection, pos + 12)
pos = InStr(1, strconnection, ";")
strconnection = Left(strconnection, pos - 1)
BasePath = strconnection
End Function

A voir également

Ajouter un commentaire

Commentaires

erreurs404
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
et aussi CurrentDB.Name
coolwahoo
Messages postés
1
Date d'inscription
jeudi 11 septembre 2003
Statut
Membre
Dernière intervention
16 avril 2004
-
pour moi ça marche aussi très bien avec CurrentProject.Path
RockmanX
Messages postés
109
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
26 octobre 2007
-
mais dites-moi, c'est possible de modifier cette propriété de façon à pouvoir séparer l'exécutable de access et la base de donnée dans laquelle sont faits les enregistrements???

GENRE:

J'ai fait un prog access,
Plusieurs utilisateurs ont utilisé le truc et ont des bases assez grosses,
Je veux faire une mise-à-jour: je suis dans la merde si les deux sont en 1 non???
Mais avec ça, il suffit de remplacer le .mde non???
cs_Emerick
Messages postés
1
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
21 mai 2003
-
Merci ça c'est cool.
Je comprends meme pas qu'il n'y ai pas cette propriété pour l'objet application
CapDeBoro
Messages postés
14
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
1 août 2003
-
Adiu

Effectivement un code très utile
Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.