Discussion :

[faiglon]

Bonjour à tous,

Il existe peut-être un tutoriel à ce sujet mais je ne l'ai pas trouvé.

J'aimerais pouvoir connaitre les utilisateurs qui se servent de la base de données mise à leur disposition,
créer un journal qui enregistre les ouverture de la base, par qui, et pour quelle durée

quelqu'un saurait-il s'il est possible de créer ce type d'enregistrements ?

merci pour votre lecture !!

et bonne journée à tous

Faiglon

[catoucat]

Si ca te suffit voila ce que j'ai fait: creer une table T_UsersConnected avec comme champs DateConnexion, User, Time, Connected (true/valse) sur un formulaire qui s'ouvre automatiquement au demarrage et se ferme quand ils ferment Acces (soit un formulaire invisible, soit un menu)

Sur l'evenement Form_Load

Code :

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

1
2
3
4
    DoCmd.SetWarnings False
    sql = "INSERT INTO T_UsersConnected VALUES (" & CDbl(Now()) & " ,'" & CurrentUser & "', True);"
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True

Sur l'evenement Close du formulaire

Code :

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

1
2
3
4
    DoCmd.SetWarnings False
    sql = "INSERT INTO T_UsersConnected VALUES (" & CDbl(Now()) & ",'" & CurrentUser & "', False);"
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True

Apres tu n'as plus qu'a regarder les heures, tu n'auras pas la duree mais tu auras la date d'ouverture et de fermeture, c'est deja ca... tu peux utiliser une requete pour le reste

[faiglon]

Bonjour,

et merci !!

ça a l'air de répondre précisemment à ma question

quelle rapidité !

je vais regarder plus en détail et je vous tiens au courant

[catoucat]

Je viens d'ajouter ca a ma base il y a quelques jours donc je l'avais sous la main

[Lou Pitchoun]

Salut,

j'avais vu un outil sympa.; j'ai cherché et j'ai fini par trouver.
C'est par là.
Je ne sais plus si ça gère la durée de connection... C'est un outil intéressant.

[faiglon]

Merci pour cette recherche, je vais regarder !

bonne après midi

Faiglon

[faiglon]

Bonjour,

Ce message s'adresse à Catoucat mais comme je pense que le sujet pourra peut-être être intéressant pour d'autres

J'ai creusé et encore creusé le code que vous m'avez gracieusement proposé !
Cependant, je ne parviens pas à ce que quelque chose s'écrive dans la table :

T_UsersConnected

L'exécution du code s'arrête (sans message d'erreur) avant ces lignes de code :

Code :

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

1
2
SQL = "INSERT INTO T_UsersConnected VALUES (" & CDbl(Now()) & " ,'" & Utilisateur & "', True);"         'CurrentUser
    DoCmd.RunSQL SQL

alors j'ai essayé d'ajouter une ligne pour ouvrir la table avant ces lignes de code :

Code :

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

DoCmd.OpenTable "T_UsersConnected"

mais ça ne fonctionne toujours pas...

je continue de chercher et je reviens dès que j'ai une avancée significative !

bonne journée à tout le monde

[faiglon]

ça y est !

ça fonctionne

il y avait un champ dans la table (le champ Time) dont on ne parlait pas ensuite dans le SQL :

soit 4 champs dans la table et dans le SQL, on ne lui demandait de renseigner uniquement trois champs

donc après suppression du champ Time, ça fonctionne parfaitement

Merci pour votre aide généreuse

Faiglon