[Access] Creare un log di accessi utenti, con data ed ora

Question

Ciao Giorgio;

  ..dopo aver portato a termine la mia applicazione mdb, grazie soprattutto al tuo contributo,   ed il contributo di altri MVP (..grazie Cinzia),   ho trasferito l’applicazione su un server,     dopo aver diviso il database in BE , la suddetta applicazione viene utilizzata su tre clients da tre utenti differenti.

La mia necessità è quella di monitorizzare in un log,   tutti gli accessi   utente per utente,   con data ed ora per poter verificare le operazioni che vengono effettuate da ogni utente.

Ho ricercato nel forum risposte simili, però ho trovato solo esempi per inserimento password, ma non quello di creare un vero e proprio log di registrazione, con date ed ore di accessi utenti..!!

Avevo pensato  ad una query formato da 4 campi : id_progressivo-utente-password-data-ora e poi inserire un codice VBA, che ad ogni login segni l'utente che è "entrato" nell'applicazione..ma non so se va bene , e poi non so come impostare il codice in VBA.

Cosa mi consigli Giorgio?..cosa mi consigliate..???

Grazie

Francesco Laroccia

Answer 1

Ciao Franco,

basta cambiare la riga  .Data_Mode=2   e mettere =1

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 2

Ciaoo Cinzia....!!

..perfetto...!!! .. ho già inserito il tutto , ed in effetti il file .txt che genera registra tutti gli accessi !!... solo una cosa : è possibile far comparire anche l'ora di accesso...?? perchè io leggo solo la data il nome del pc , e la maschera che è stata aperta, ma non l'ora...!! Qual'è l'istruzione che dovrei inserire nel modulo di classe...??

Grazie..per ora..

Francesco Laroccia

Answer 3

Ciao Franco,

nel Form_Load della tua maschera Start metterai una istruzione di questo tipo:

Set clsLog = New clsBuildLogFile With clsLog '.Utente = .ComputerName 'Eventuale Nome Utente Connesso '.Path="C:" 'DEFAULT=CurrentDb_Path .NomeFile = "Prova_Log.Log" 'Un nome Indicativo.Log o Txt .Note = Me.name 'Esempio il Nome della Form + altro '.Delimitatore = ";" 'DEFAULT=vbTab .Data_Mode = 2 'DEFAULT=1 .messaggio = "Apertura Maschera" .Action_WriteOut End With

In questo modo terrai traccia di tutti quelli che aprono il db.

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 4

Ciaoooo Cinzia ....

..grazie per avermi risposto !

Ho dato un'occhiata al link da te suggerito , ed esattamente all'articolo di Alex Baraldi ed alle istruzioni inserite nel modulo di classe, e penso che dovrebbe andare abbastanza bene ; ...quindi , nell'esempio di Alex ci sono :

1)un modulo di classe..

2)ed una routine d'evento su apertura della maschera iniziale .

Il problema è che, visto che non ho molto dimestichezza con linguaggio VBA, come faccio ad agganciare il tutto alla mia maschera iniziale (..la chiamo Start ) della mia applicazione..??

Grazie Cinzia....

Francesco Laroccia

Answer 5

Ciao Franco,

vedi se questo articolo di Marco Pizzamiglio su sitocomune http://www.sitocomune.com/ sez. Modules 5.22, può fare al caso tuo.

Vedi anche quest'altro di Alex Baraldi sempre su Sitocomune Sez General 6.169

---

Cinzia

---

Sito RIO

Il mio Blog