CHEMIN BASE COURANTE ACCESS

---

Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

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...).
@+

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

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

• CALCUL TREMIE
• BOUTONSFACEID
• GESTION DES INTERVENTIONS SUR UN PARC MACHINES
• USF_DATES.XLS (API VBA)
• UN GRAPHIQUE 3D TOUT EN MOUVEMENT