[AC-2010] Comment copier ma base. [Résolu]

[fab.85]

bonjour,

je souhaite que ma base se copie d'elle même a la fermeture vers deux dossiers différents: E:\mes docs puis un dossier Dropbox afin d’être sur d'avoir toujours une copie qq part de mon travail..

est-ce possible ? merci.

[User]

Salut,

Une idée :

Créer un bouton fermeture qui ferme ta base dans sa totalité avec la commande Quit(), et avant cette instruction faire la sauvegarde avec CopyFile:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Fonction Api à déclarer en haut du module du formulaire
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
 
 
Private Sub CmdFermer_Click()
 
' Sauvegarde
CopyFile CurrentProject.FullName, "E:\MesDocument\backup.mdb", False
 
' Quite la base
DoCmd.Quit
 
End Sub

Tu peux aussi utiliser FileCopy mais je n'ai pas testé:

Code :

1
2
3
4
5
6
7
Private Sub CmdFermer_Click()
 
FileCopy CurrentProject.FullName, "E:\MesDocument\backup.mdb"
DoCmd.Quit
 
 
End Sub

A+

[fab.85]

merci mais pourquoi "backup.mdb"?

est-ce un fichier qu'on ouvre individuellement ou faut-il l'ouvrir apres ouverture d'access??

la fonction API je dois la déclarer ou exactement??

[fab.85]

Deuxième méthode ne fonctionne pas... erreur 70!!!

[User]

Salut,

Le fichier "Backup.mdb" c'est le nom de la base de destination, tu lui donne le nom que tu veux.

Pour la fonction Api CopyFile il faut la déclarer en haut du module du formulaire contenant le bouton "fermer".

A+

[fab.85]

merci mais maintenant j'ai un message d'erreur concernant le fonctionnement sous 64 bits.... avec une histoire d'attribut PtrSafe???

bizarre non??

[User]

Salut,

Oui regarde ce tutoriel:

ça devrait te faire :

Code :

1
2
3
4
' Fonction Api à déclarer en haut du module du formulaire
Private Declare PtrSafe Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long

...

A+

[fab.85]

un grand merci ça marche très bien......

et si je veux ajouter un chemin d’accès, je peux faire comme ça: ??

Code :

FileCopy CurrentProject.FullName, "E:\Mes Documents\backup.mdb", "F:\Documents"