Sauvegarde d'une base de données en VBA
Bonjour à tous,
J'aimerais intégrer dans mon projet la possibilité d'effectuer une sauvegarde de ma base de données.
J'ai trouvé un code qui fonctionne mais j'aimerais y ajouter une amélioration pour me permettre d'identifier plus facilement ma sauvegarde...
Voici le code:
Code:
1
2
3
4
5
6
7
8
9
10
|
Private Sub Bt_Save_Bd_Click()
Dim fso As Object, strDest As String
strDest = CurrentProject.Path & "\" & _
Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) & ".bak." & Right(CurrentProject.Name, 3)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile CurrentProject.FullName, strDest
Set fso = Nothing
MsgBox "La sauvegarde à été effectué", vbInformation, "sauvegarde du challenge"
End Sub |
En faite ce que je souhaiterais c'est de pouvoir améliorer 2 choses:
La 1ère c'est de pouvoir mettre à la place de & ".back." & choisir le texte que je veux.
Où à défaut mettre la date du jour...
Où encore de mettre le contenu de mon champ [dates_chall] qui se trouve dans ma table [TblInfoChallange]
La 2ème serait d'indiquer dans la Msgbox le chemin où à été sauvegardé la base de donnée...
Merci d'avance pour votre participation..
