Access : créer un journal d'activité des utilisateurs d'une base Access

Un tutoriel de Denis Hulo

Le 2020-06-16 21:51:09, par User, Rédacteur/Modérateur

Bonjour à tous,

Je vous présente un nouveau tutoriel :

Créer un journal d'activité des utilisateurs d'une base Access

La base de données est utilisée en mode multiutilisateurs, avec sur le serveur le fichier de données et sur les postes clients l'interface utilisateur :

On souhaite dans cette situation, enregistrer dans une table les différentes opérations effectuées par les utilisateurs :

mise à jour d'un enregistrement ;
création d'un enregistrement ;
suppression d'un enregistrement ;
fermeture de l'application ;
...

Félicitation aussi à tous ceux qui font vivre ce forum

Bonne lecture ;-)
Cordialement,

Discussion forum

4 commentaires

kak18
Candidat au Club

je vous remercie pour ce tuto. J'ai essayé de pratique mais en changeant les champs NomUtilisateur par Nom_utilisateur dans le module M_Journal_Activite_Utilisateurs ; NomUtilisateur par Nom_utilisateur dans la table T_Evenement; et dans la table T_service
Après MAJ AjoutEvenement "Modification enregistrement dans formulaire", Me.Num_service ;
Après insertion AjoutEvenement "Insertion enregistrement dans formulaire", Me.Num_service;
Sur suppression AjoutEvenement "Suppression enregistrement dans formulaire", Me.Num_service . Apres exécution du formulaire login et du formulaire service ,la table T_Evenement reste tjr vide. Pourrai je avoir de l'aide?

le 19/01/2022 à 10:53

User

Rédacteur/Modérateur

Bonjour,

Comme indiqué dans le tutoriel, les appels à la procédure AjoutEvenement doivent-être mis sur les événements Après MAJ, Après insertion et Sur suppression de votre formulaire F_Service :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_AfterUpdate()
    ' Ajout des informations concernant l'événement AfterUpdate déclenché dans le formulaire F_Service
    AjoutEvenement "Modification enregistrement dans formulaire", Me.Num_service
End Sub

Private Sub Form_AfterInsert()
    ' Ajout des informations concernant l'événement AfterInsert déclenché dans le formulaire F_Service
    AjoutEvenement "Modification enregistrement dans formulaire", Me.Num_service
End Sub

Private Sub Form_Delete(Cancel As Integer)
    ' Ajout des informations concernant l'événement Delete déclenché dans le formulaire F_Service
    AjoutEvenement "Modification enregistrement dans formulaire", Me.Num_service
End Sub

le 19/01/2022 à 11:08

kak18
Candidat au Club

J'ai appliqué le même code mais la table T_Evenement n'enregistre pas toujours pas.

le 19/01/2022 à 12:29
User
Rédacteur/Modérateur

Il faudrait vérifier :

1. Dans la feuille des propriétés si les événements après maj, après insertion, et sur suppression sont bien reliés aux procédures : mention [procédure événementielle].

2. Il faudrait aussi vérifier si les macros sont activées au lancement de la base.

Cdlt

le 19/01/2022 à 12:44