selecting the last tiem in a listview control

[Ricky A.]

Working with Access xp, how would I select the last item in a list view?

Thanks

 

[Al Borges]

Hi Ricky:

I work with Access 2000, but this should also work with Access XP-

Private Sub Command2_Click()
Dim dbs As Database, rst As Recordset, strSQL As String
Set dbs = CurrentDb
strSQL = "SELECT [ACCOUNTS].[ACCT], [ACCOUNTS].[DATEPOSTED] FROM
[ACCOUNTS];"
Set rst = dbs.OpenRecordset(strSQL)
With rst
.MoveLast
List0.Value = ![ACCT]
.Close
End With
End Sub

Regards,
Al