Hello all,
I want to create a form thatll be open hidden for my user account and will be visible when a user logs-in or logs-out
For capturing user activity and log-ins I have a form already that is open hidden when they log in (see below) and will capture both when they login and log out.
I just want for a form to pop up, if I am logged in, with the user info.
Any ideas as to where would be best to start?
I want to create a form thatll be open hidden for my user account and will be visible when a user logs-in or logs-out
For capturing user activity and log-ins I have a form already that is open hidden when they log in (see below) and will capture both when they login and log out.
I just want for a form to pop up, if I am logged in, with the user info.
Any ideas as to where would be best to start?
Code:
Private Sub Form_Load()
On Error GoTo Err_Form_Load
DoCmd.SetWarnings False
If CurrentUser() <> "Admin" And DCount("*", "tblCurrentlyLoggedIn", "empCurrentlyLoggedIn=" & Chr(34) & CurrentUser() & Chr(34)) > 0 And DCount("*", "tblCurrentlyLoggedIn", "empEnviron=" & Chr(34) & Environ("computername") & Chr(34)) > 0 Then
DoCmd.Close acForm, "Splash", acSaveNo
DoCmd.RunMacro "mcrHide"
DoCmd.OpenForm "uhoh", acNormal, , , , acWindowNormal
DoCmd.OpenForm "frmWarning", acNormal, , , , acHidden
DoCmd.SetWarnings True
Else
CurrentDb.Execute "Insert Into tblCurrentlyLoggedin (empCurrentlyLoggedIn,empEnviron) " _
& " values ('" & CurrentUser() & "','" & Environ("computername") & "')", dbFailOnError
Set rs = CurrentDb.OpenRecordset("SELECT * FROM ButtonClicks")
rs.AddNew
rs![ButtonClick] = "Logged-In"
rs![ClickTime] = Time()
rs![ClickDate] = Date
rs![User] = CurrentUser()
rs![SearchInput] = Environ("Computername") & " " & DLast("Version", "qryVersion")
rs.Update
rs.Close
Set rs = Nothing
End If
Exit_Form_Load:
Exit Sub
Err_Form_Load:
Set rs = CurrentDb.OpenRecordset("SELECT * FROM ButtonClicks")
rs.AddNew
rs![ButtonClick] = "Error " & Err.Number
rs![ClickTime] = Time()
rs![ClickDate] = Date
rs![User] = CurrentUser()
rs![SearchInput] = Err.Description
rs.Update
rs.Close
Set rs = Nothing
Resume Exit_Form_Load
End Sub