I have come across a very odd issue with MS Access run-time. I have developed a piece of code to track the user's login and logout. It works just fine in Developer Access and does not kick out any errors. However, when the identical code is run in Access run-time it kicks out a run-time error, but no error code/description. Are there some libraries that are not recognized by Access run-time? Is there a way to define the correct libraries for run-time using VBA? Any help will be much appreciated.
Code:
Private Sub Form_Load()
Dim varUserID
Dim varLoginTime
Dim varLoginDate
Dim varDatabase As String
Dim varUserCheck
Dim varDateCheck
Dim varDBCheck
varDatabase = "RI"
varLoginTime = Time
varLoginDate = Date
varUserID = Form_FrmMain.RV.Value
varDateCheck = DLookup("[LoginDate]", "tblLoginTrack_RI", "[UserID] = '" & varUserID & "'")
varDBCheck = DLookup("[DBName]", "tblLoginTrack_RI", "[UserID] = '" & varUserID & "'")
varUserCheck = DLookup("[UserID]", "tblLoginTrack_RI", "[UserID] = '" & varUserID & "'")
If IsNull(varUserCheck) Then
mySQL = "INSERT INTO tblLoginTrack_RI (UserID, LoginTime, LoginDate, DBName) VALUES ('" & varUserID & "', #" & varLoginTime & "#, #" & varLoginDate & "#, '" & varDatabase & "')"
CurrentDb.Execute mySQL, dbFailOnError
End If
If varUserCheck <> "" Then
If varDateCheck = Date Then
If varDBCheck = varDatabase Then
mySQL = "DELETE * FROM tblLoginTrack_RI WHERE UserID='" & varUserID & "' AND DBName='" & varDatabase & "' AND LoginDate = #" & varLoginDate & "#"
CurrentDb.Execute mySQL, dbFailOnError
mySQL = "INSERT INTO tblLoginTrack_RI (UserID, LoginTime, LoginDate, DBName) VALUES ('" & varUserID & "', #" & varLoginTime & "#, #" & varLoginDate & "#, '" & varDatabase & "')"
CurrentDb.Execute mySQL, dbFailOnError
End If
End If
If varDateCheck <> Date Then
mySQL = "INSERT INTO tblLoginTrack_RI (UserID, LoginTime, LoginDate, DBName) VALUES ('" & varUserID & "', #" & varLoginTime & "#, #" & varLoginDate & "#, '" & varDatabase & "')"
CurrentDb.Execute mySQL, dbFailOnError
End If
End If
End Sub
Code:
Private Sub Form_Close()
Dim varUserID
Dim varExitTime
Dim varLoginDate
Dim varDatabase As String
varDatabase = "RI"
varExitTime = Time
varLoginDate = Date
varUserID = Form_FrmMain.RV.Value
mySQL = "Update tblLoginTrack_RI SET ExitTime=#" & varExitTime & "# WHERE UserID='" & varUserID & "' AND DBName='" & varDatabase & "' AND LoginDate = #" & varLoginDate & "#"
CurrentDb.Execute mySQL, dbFailOnError
End Sub