Sauvegarde automatique base courante [Résolu]

[PapouDomi]

Bonsoir.
Ayant eu, à plusieurs reprises, ma base de données Access 2007 inutilisable suite au compactage lors de la fermeture, je souhaite en effectuer une copie de sauvegarde lors de la fermeture du formulaire principal
J'ai utilisé la commande FileCopy, un Shell xcopy mais je bute sur une l'interdiction de copie parce qu'elle est encore ouverte.
J'ai bien trouvé sur le forum une sauvegarde par script vbs (que je n'ai pas encore analysé), mais je préférerais un code totalement interne à la base.
Avez-vous une solution pour contourner ce blocage?
Cordialement, Dominique

[loufab]

Bonjour,

D'une part il faut rechercher les causes du problème de compactage. Access est-il à jour, le système également ?

Dans l'immédiat un Shell "Copy ..." devra faire l'affaire.

Cordialement,

[PapouDomi]

Bonsoir.
Merci pour la réponse rapide.
Mais cela ne résoud pas mon problème

Code :

retval = Shell("copy " & Src & ", " & Dst, vbHide) '=>copy C:\Bdd\Bdd1.accdb, C:\Bdd\Tmp.mdb

renvoi "Erreur d'exécution 53 Fichier introuvable" alors que cela fonctionne correctement dans une fenêtre Dos. Cela ne me paraît pas illogique car le shell ne doit pouvoir lancer que des commandes dos externes.
J'ai donc essayé xcopy.
La, pas de problème de code qui s'exécute normalement car xcopy est une commande externe mais pas de copie de fichier.
Sous fenêtre Dos, xcopy fonctionne mais demande de confirmation fichier ou répertoire. Source du non fonctionnement???
De plus, les espaces dans les noms de répertoire ou de fichiers semblent ajouter d'autres problèmes.
Quant au souci de plantage de la BDD lors du redémarrage après compactage, il s'est produit sur mon PC perso, soit, mais aussi au bureau où les machines (plusieurs milliers) sont en réseau et très régulièrement maintenues.
Je tourne donc en boucle et vais finir chèvre. Mais c'est là un des plaisirs de la programmation.....
Cordialement, Dominique

[loufab]

Bdd est-il le vrai répertoire ?
Sinon /Y avec un Xcopy force la copie sans confirmation.

[RobiPMS]

Personnellement, j’utilise le code suivant :

Code :

1
2
3
4
5
6
7
Dim fso As Object, strDest As String
strDest = CurrentProject.Path & "\" & _
          Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) & ".bak"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile CurrentProject.FullName, strDest
Set fso = Nothing
MsgBox "Le programme actuel a été sauvegardé dans le répertoire courant avec l’extension .bak."

Ainsi, le programme est copié sous son nom original, et l’extension .mdb est remplacée par . bak (à adapter si le format est accdb ou autre)

Dans mes applications, ce code fonctionne très bien. Ceci dit, le conseil de Loufab concernant la recherche des causes du problème au compactage me semble particulièrement judicieux.

Cordialement

[@rkane]

Personnellement, je me contente d'exporter l'ensemble des tables dans une base de données annexe.
la commande est placée sur le timer du menu principal et s'exécute toutes les 6 heures, une commande de fermeture de la base est également agrémentée de ce transfert de tables.
Aucun problème depuis la mise en service de ce système.

[pgz]

Bonjour.

J'ai aussi l'habitude de sauvegarder les tables et les relations dans une file de BD enregistrées dans un répertoire particulier.

L'avantage en cas d'évolution de la base, sans modificatoin de la structure des données, la nouvelle version peut être mise au point pendant que les utilisateurs utilisent l'ancienne. Lors du déploiement, l'utilisateur fait une sauvegarde de l'ancienne version, ouvre la nouvelle version, charge les tables et relations et c'est reparti.

Cordialement,

PGZ

[PapouDomi]

Bonsoir.
Ce matin j'ai effectivement trouvé ce qu'il me fallait et cela est très proche de la solution proposé par RobiPMS utilisant le fso.CopyFile.
Quant à trouver les causes du plantage lors du compactage...
C'est une autre histoire. D'autant moins facile à trouver que c'est très ponctuel mais toujours durant le développement.
Même ci ce n'est pas souvent, c'est toujours très agaçant de perdre le travail de quelques heures
Merci à tous. Dominique.

[@rkane]

pour le plantage au compactage, peut-etre une piste...

Lors du developpement ou lors de modifs dans la base j'importe parfois 1 ou 2 formulaires d'une copie de la dite bdd, et, si j'oublie de faire un débogage du code j'ai un plantage de la base au test du formulaire ou au compactage si je le lance avant essai.

Sans doute que le ou les nouveaux forms créent un erreur dans les fichiers systèmes de la base de données.

Il suffit de rouvrir en mode conception et de faire un débogage.

[PapouDomi]

Bonjour.
Merci @rkane.
Je n'ai pas vraiment noté quelles sont les conditions de ce plantage mais, à la réflexion, cela me semble proche de ce que tu décris car toujours en cours de développement et je me souviens d'avoir aussi effectué des copies de formulaire.
Je vais être vigilant et noter ce que je faisait lors des quelques plantages.
Cordialement, Dominique.

[@rkane]

ok tiens moi au courant à l'occasion