Créer une copie de sauvegarde sous Access 2000 après confirmation dans une MsgBo

Question

J'aimerais savoir comment je peux faire une copie de sauvegarde de la base en cours. En effet, j'ai un menu général qui propose de quitter l'application par clique sur un bouton. Celui-ci affiche une msgbox qui informe à l'utilisateur que la base sera compactée et sauvegarder automatiquement. Or c'est la partie sauvegarde qui coince !
J'ai essayé la commande FileCopy, mais un message d'erreur apparait : Permission refsusée. Dans l'aide, on indique qu'il y a un message d'erreur si la base en cours est ouverte. Même en la fermant avec CurrentDB.Close ça ne marche pas. J'en ai marre, que quelqu'un m'aide!

shiny · Answer

Moi aussi je cherche CA ! Je te tiens au courant !

Simaifou · Answer

Moi perso, j'effectue une copie d'access depuis vba (Excel), pour cela je dois attendre que personne ne soit connecté dessus (je teste la préscence du .ldb à coté de la base) et c'est le cas je fais un filecopy.
NB: j'ai en effet le même message si j'essai de fair une copie avec le base connectée avec qlq 
simon

cs_dockys · Answer

Salut !!!



Essayes ce petit bout de code cela marche !!!!!!!!!!!!!



Private Sub sauvegarde_Click()



On Error GoTo Err_sauvegarde_Click



Dim monchemin, mavaleur, jour As String



'inseres dans ton formulaire une zone de texte

monchemin = Texte1 'Correspond &#224; la zone de texte de ton formulaire



If MsgBox("Voulez-vous quitter le programme ?" & Chr(13) &
Chr(13) & "Une Sauvegarde Automatique va &#234;tre effectu&#233;e" &
Chr(13) & Chr(13), vbExclamation + vbYesNo, "AU REVOIR...") = vbYes
Then

  mavaleur = monchemin & "textsauvegarde.txt"

 

  DoCmd.TransferText acExportDelim, , "tbl_test", mavaleur, True

      

      MsgBox "Le fichier de sauvegarde automatique a &#233;t&#233; cr&#233;&#233;", vbInformation, "sauvegarde effectu&#233;e"

Else: Exit Sub

End If

  

   Do While Forms.Count > 0

   DoCmd.Close acForm, Forms(0).Name

   Loop

   DoCmd.Quit



Exit_sauvegarde_Click:

    

    Exit Sub



Err_sauvegarde_Click:

    MsgBox "ATTENTION !!! SAUVEGARDE NON EFFECTUEE
v&#233;rifiez votre chemin d'acc&#233;s", vbExclamation, "ATTENTION DANGER !!!!!!"

        

End Sub

cs_tikok · Answer

TIKOK

Cr&#233;er une copie de sauvegarde sous Access 2000 apr&#232;s confirmation dans une MsgBox

JY

Créer une copie de sauvegarde sous Access 2000 après confirmation dans une MsgBo

4 réponses

Discussions similaires