Ouverture de la base de données qui se trouve dans le même répertoire que l?application
Avantage : limite les difficultés rencontrés lors du changement du répertoire de l?application
Source / Exemple :
'************chemin de la base de données****
Dim str As String
If Right(App.Path, 1) = "\" Then
str = App.Path
Else
str = App.Path + "\"
End If
'Ouverture de la base de données "nom de la base des données"
Set db = OpenDatabase(str + " nom de la base des données ")
Conclusion :
ce petit code banal est présenté pour répondre à un certain nombres de questions posés ds ce forum
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.