List Box

[geraldk]

I have a list box in a form that from a query:

SELECT tblEmpVac.EMPID, tblEmpVac.VACID, tblEmpVac.EMPVACDate, tblVacation.PERID, tblEmpVac.EMPVACID
FROM tblVacation INNER JOIN tblEmpVac ON tblVacation.VACID = tblEmpVac.VACID
WHERE (((tblEmpVac.EMPID)=1) AND ((tblVacation.PERID)=1));

What I want to do is find the last tblEmpVac.EMPVACID number (end of record) and then select the date.

[June7]

You could ORDER BY VACID DESC then select the first item in the list.
If IsNull(Me.lstBox) Then
Me.lstBox = Me.lstBox.ItemData(0)
End If

If you don't want to order by desc then need to know the count of items in the listbox. Try using ListCount property, maybe like
Me.lstBox = Me.lstBox.ItemData(Me.lstBox.ListCount - 1)
or
Me.lstBox.Selected(Me.lstBox.ListCount) = True

[geraldk]

Thanks for the reply.

I ended up using this command:

Me.lstPerfect = Me.lstPerfect.ItemData(Me.lstPerfect.ListCount - 1)

and I sorted the date from latest first in the query to sort out.