Discussion :

[User]

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,

[kak18]

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?

[User]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kak18]

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

[User]

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