hi using this on a form on load event it poping error class does not support ... interface.. else on another pc with same os is running fine with no error.. the code is below
Code:
Option Compare Database
Public Function LogIN()
Dim TempID As String
Dim TempID2 As Long
TempID = UserOnName
TempID2 = UserOnID
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "Select UserName, AccessLevel, deactive " _
& "From tblEmployees " _
& "Where UserName = '" & TempID & "'"
cmd.Execute
rs.Open cmd, , adOpenKeyset, adLockOptimistic
If rs.EOF = True Then GoTo KL
'rs.MoveFirst
'Do Until rs.EOF = True
' If rs.Fields(0) = TempID Then
If rs.Fields(2) = -1 Then
MsgBox "This Employee has been deactiveated from this utility, please contact the administrator", vbCritical
DoCmd.Quit
Else 'End If
DoCmd.OpenForm "frmreports"
rs.Close
GoTo vt
End If
' rs.MoveNext
' Loop
KL:
rs.Close
MsgBox "Authorized Personal Only, please contact a system administrator to use this utility.", vbCritical
cmd.CommandText = "SELECT * FROM tblLogReport "
cmd.Execute
rs.Open cmd, , adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields(0) = TempID 'fOSUserName
rs.Fields(1) = Date
rs.Fields(2) = Time
rs.Fields(3) = "Attempted LogIN, Invalid User"
rs.Fields(4) = TempID2
rs.Update
rs.Close
DoCmd.Quit
vt:
cmd.CommandText = "SELECT * FROM tblLogReport "
cmd.Execute
rs.Open cmd, , adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields(0) = TempID 'fOSUserName
rs.Fields(1) = Date
rs.Fields(2) = Time
rs.Fields(3) = "LogIN"
rs.Fields(4) = TempID2
rs.Update
rs.Close
cmd.CommandText = "Select * FROM tblStartTime " _
& "WHERE EmpLogin = '" & TempID & "' AND StartDate = #" & Date & "#"
cmd.Execute
rs.Open cmd, , adOpenKeyset, adLockOptimistic
If rs.EOF = True Then
rs.AddNew
rs.Fields(0) = TempID
rs.Fields(1) = Date
rs.Fields(2) = Time
rs.Update
rs.Close
End If
Set rs = Nothing
Set cmd = Nothing
End Function
Last edited by a moderator: