smtazulislam
Member
- Local time
- Today, 08:23
- Joined
- Mar 27, 2020
- Messages
- 806
Hi, appreciate any help.
I tried is twice ways, however its not worked.
Moreover, tried it change this line
Private Sub Form_Open(Cancel As Integer)
LogActivity "Login"
End Sub
Private Sub Form_Close()
LogActivity "Logoff"
End Sub
I tried is twice ways, however its not worked.
Code:
Private Sub LogActivity(activity As String)
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim logOffTime As Variant
Set db = CurrentDb()
If activity = "Logoff" Then
logOffTime = Now()
Else
logOffTime = Null
End If
Dim strSQL As String
strSQL = "INSERT INTO UsersActivity (OSUserName, ComputerName, ComputerIP, ActivityLogin, ActivityLogOff, ActivityStatus) " & _
"VALUES ([UserName], [ComputerName], [ComputerIP], [ActivityLogin], [ActivityLogOff], [ActivityStatus]);"
Set qdf = db.CreateQueryDef("", strSQL)
qdf.Parameters("[UserName]") = Environ("USERNAME")
qdf.Parameters("[ComputerName]") = Environ("COMPUTERNAME")
qdf.Parameters("[ComputerIP]") = GetComputerIP()
qdf.Parameters("[ActivityLogin]") = IIf(activity = "Login", Now(), Null)
qdf.Parameters("[ActivityLogOff]") = IIf(activity = "Logoff", logOffTime, Null)
qdf.Parameters("[ActivityStatus]") = IIf(activity = "Logoff", "Completed", "Pending")
qdf.Execute dbFailOnError
Set qdf = Nothing
Set db = Nothing
End Sub
Moreover, tried it change this line
Code:
qdf.Parameters("[ActivityLogOff]") = IIf(activity = "Logoff", logOffTime, Null)
Private Sub Form_Open(Cancel As Integer)
LogActivity "Login"
End Sub
Private Sub Form_Close()
LogActivity "Logoff"
End Sub