Find last login date

[MintFlavor]

Hi

Working in msaccess:
I have a table that keeps a log of all usernames who access the application, with date and time.

I would like to find and display the last login date (not the current login of course) of that user.

Currently, i am getting the first login info of my user.. check code in attachment.

Thanks

[si_the_geek]

Instead of opening an entire table & using Find, just get the data you want using an SQL statement.

For example, this section of your code:

'Find the last login date of the username
Set RecSet2 = New ADODB.Recordset
RecSet2.CursorLocation = adUseClient
RecSet2.Open "tblAccess", sConn, adOpenStatic, adLockOptimistic, adCmdTable
 
RecSet2.Find "Username = '" & ThePerson & "'", , adSearchBackward
Me.lblLastLogin.Caption = Me.lblLastLogin.Caption & RecSet2.Fields("TheDate") & "at" & RecSet2.Fields("TheTime")

Should be replaced by this:

'Find the last login date of the username
Set RecSet2 = New ADODB.Recordset
Dim strSQL as String 'not really needed, but makes the code easier to read & debug
strSQL = "SELECT * FROM tblAccess WHERE Username = '" & ThePerson & "'"
RecSet2.Open strSQL, sConn, adOpenForwardOnly, adLockReadOnly, adCmdText
 
Me.lblLastLogin.Caption = Me.lblLastLogin.Caption & RecSet2.Fields("TheDate") & "at" & RecSet2.Fields("TheTime")
 
'Unless you want to corrupt your database, you need to close
'recordsets & connections when you finish with them:
RecSet2.Close
Set RecSet2 = Nothing

This still isn't quite right, but is much closer to what you need - all we need to do is minor changes to the SQL statement.

To be able to do that, we need more info.. how can you determine what the last login date was? Is it the highest value in TheDate? or TheDate & TheTime? (if the latter, why are they two separate fields?)