Il est possible de créer des macros qui s'exécutent automatiquement à l'ouverture de la base de données.
- Ouvrir la base Questionnaire.mdb située dans /Sources,
Nous allons concevoir une macro permettant de réaliser une copie de sauvegarde automatique à chaque ouverture de la base de données. Cette mesure de sécurité permet de restaurer les données telles qu'elles étaient affichées lors de l'ouverture de la base. En revanche il n'existe pas de macro spécifique pour copier une base de données. Nous devons passer par le code VBA.
- Activer l'onglet Modules,
- Puis cliquer sur le bouton Nouveau pour créer un code,
- Saisir la fonction suivante : Function bd_sauvegarder()
Dim fichier As Object
'Cette fonction permet de créer une copie de la base en cours
Set fichier = CreateObject("Scripting.FileSystemObject")
'La méthode Echo permet d'afficher un message dans la barre d'état
Application.Echo True, "Sauvegarde de la base de données..."
fichier.copyfile Application.CurrentDb.Name, Application.CurrentDb.Name & ".MA", True
Application.Echo True, ""
End Function Pour que ce code s'exécute automatiquement, nous devons l'appeler par une macro.
- Fermer la fenêtre de code en enregistrant sous le même nom que la fonction,
- Cliquer sur l'onglet Macros puis sur le bouton Nouveau, Commençons par afficher un message à l'utilisateur : - Choisir l'action BoîteMsg,
- Dans la zone message, saisir La base de données va être sauvegardée,
- Dans la zone Titre, saisir Bienvenue... Version Access 2000/2003 |