begin process at 2012 02 13 03:03:13
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

 > CHEMIN BASE COURANTE ACCESS

CHEMIN BASE COURANTE ACCESS


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Débutant Date de création :26/02/2003 Date de mise à jour :26/02/2003 09:21:23 Vu :9 159

Auteur : PatriceVB

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note


 Description

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

  • 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
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



 Sources du même auteur

SAISIE SEMI-AUTOMATIQUE
MISE À JOUR STRUCTURE BASE ACCESS AVEC ADOX
Source avec Zip EXPORT TABLE ACCESS VERS EXCEL
Source avec Zip POUR LES ACCROS DE CODES-SOURCES
Source avec Zip BDR FACILE : MODULE DE CLASSE

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive

Commentaires et avis

Commentaire de CapDeBoro le 04/03/2003 09:11:34

Adiu

Effectivement un code très utile
Merci

Commentaire de Emerick le 21/05/2003 14:16:46

Merci ça c'est cool.
Je comprends meme pas qu'il n'y ai pas cette propriété pour l'objet application

Commentaire de RockmanX le 06/11/2003 23:42:39

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???

Commentaire de coolwahoo le 16/04/2004 07:21:53

pour moi ça marche aussi très bien avec CurrentProject.Path

Commentaire de erreurs404 le 16/01/2007 23:19:44

et aussi CurrentDB.Name

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales