Logging User activity

[jnp102]

Hi all,

Had a question about grabbing the workstation logon ID and 1, putting it with a time stamp in a table and then 2, using it to track what changes have been made to the data.

Currently my database opens to a form where people can enter/edit data. This form also pulls the workstation id and puts it in a hidden text field (unbound). I would like to do a "onload" command to put a record in another table (loginhist) of the workstation ID and the time/date stamp that opened it that form. Then once in the form I would like to track that workstation ID's activity (with time/date stamp again). I would like to put this type of info into a table that registers workstation ID, Time/Date, Old Value and New Value.

Unfortunately I have tried Access security but it is now what I am looking for for several reasons. Thus the reason I want to use the workstation ID (which I already have set up).

Not sure if this can happen and if it can not sure where to start. Any leads, answers or alternate ideas would be greatly appreciated.

Thanks
jnp102

 

[smedvid]

Here is 1 approach that I've used in the past...

Create a tblLog - with
ID - (Autonumber)
LogItemDesc - Text(250)
DateStamp - Date(8)

Create a Function in a Module, I place mine in a Utilities Module.
Function InsertLog(lcDesc As String)
Dim ThisDB As DAO.Database
Dim lcSQL As String
Set ThisDB = CurrentDb
lcSQL = "INSERT INTO tbl_Log (LogItemDesc, DateStamp) "
lcSQL = lcSQL & "VALUES ('" & lcDesc & "',Now())"
ThisDB.Execute lcSQL, dbFailOnError
End Function

Last
When ever you want to log acitvity, simply call the InsertLog function.

For example...
Utilities.InsertLog ("Delete " & rsOtherAdjust("reccnt") & " Existing Entries From tbl_adjust_trans for Loan_No: " & loan_no & " and EmpCode:" & lcEmpCode & ".")

On forms, you could place it on the After Update, After Insert or On Dirty Events? Depends upon your needs and database/system design. Optionally, you could add another field called User ID to the tblLog and pass in the User ID that is either derived from the Network or from the Login screen.

htwh,

Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents
Please Show Your Support...

 

[MichaelRed]

for a somewhat more elaborate version, see faq181-291





MichaelRed