Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 291 fois - Téléchargée 38 fois
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
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???
Je comprends meme pas qu'il n'y ai pas cette propriété pour l'objet application
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.