Chemin base courante access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 478 fois - Téléchargée 40 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
16 janv. 2007 à 23:19
et aussi CurrentDB.Name
coolwahoo Messages postés 1 Date d'inscription jeudi 11 septembre 2003 Statut Membre Dernière intervention 16 avril 2004
16 avril 2004 à 07:21
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
6 nov. 2003 à 23:42
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
21 mai 2003 à 14:16
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
4 mars 2003 à 09:11
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.