Logon/Logoff Tracking

[ChobeyGuddu]

HI All,


the code below works fine with access 2010 version (Local machine) but we have a network drive (Company share drive) which is on Access 2003 and the same code doesnt work on that version

Can you pls help me with the Logon/Logoff tracking code for 2003 version.



Globals Module :
Option Compare Database
Option Explicit
Public Sub Logging(Activity As String)
CurrentDb.Execute "INSERT INTO tbl9ActivityLog (UserName, Activity) Values('" & TempVars("UserName").Value & "', '" & Activity & "')"
End Sub


LOGIN FORM CODE :
Option Compare Database
Option Explicit
Private Sub btnLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl1Employees", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserName='" & Me.txtUserName & "'"
If rs.NoMatch Then
Me.lblWrongUser.Visible = True
Me.txtUserName.SetFocus
Exit Sub
End If
Me.lblWrongUser.Visible = False

TempVars("UserName").Value = Me.txtUserName.Value

If rs!Password <> Nz(Me.txtPassword, "") Then
Me.lblWrongPass.Visible = True
Me.txtPassword.SetFocus
Exit Sub
End If
Me.lblWrongPass.Visible = False
Me.Visible = False
Globals.Logging "Logon"

DoCmd.OpenForm "Menu_Selection"
' DoCmd.Close acForm, Me.Name
End Sub
-----------------
Private Sub Form_Unload(Cancel As Integer)
Globals.Logging "Log-off"
End Sub


Thanks
Guddu

[CJ_London]

tempvars were not implemented until 2007, so a 2003 will not recognise them. Instead use global variables

[Micron]

Or use the Environ function, or get a copy of fOsUsername (Google). I prefer the latter.
I see no need for allowing for both, but we're all probably going to be seeing more multi-routine code to permit different user environments, like when using 64 bit versions of Office. So if you ever need to, you can test for db version and set up environment variables accordingly.

[ChobeyGuddu]

tempvars were not implemented until 2007, so a 2003 will not recognise them. Instead use global variables

Thanks Ajax
Sorted with Environ

Cheers
Guddu.

[ChobeyGuddu]

Thanks Micron,
for your valuable suggestions...


I will learn about fOsUsername later somepoint.. but Environ did worked for me for now..

Cheers
Guddu.

[Micron]

Glad to have helped. After reading my post again I think I should clarify that by "both" I meant one of my suggestions and tempvars.