goto last record of a list box

[Phil]

HI,

Is it possible to goto the last record of a list box when
a FORM is opened. I have a list box that pulls data from
a large table and if the box would goto the last record
then all the data would be in the box sooner.

Sound crazy???? I don't know......

Thanks,
Phil

 

[Graham R Seach]

Phil

If Me!lstMyList.ListCount > 0 Then
Me!lstMyList = Me!lstMyList.ItemData(Me!lstMyList.ListCount - 1)
End If

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

 

[Phil]

Thanks,
That works perfect. Others who have large amounts data
for a list box might want to remember this code also. I
tried it and it also works in a combo box.

Thanks again
Phil

 

[Ken Snell [MVP]]

An alternative is to force the listbox to fill entirely in the form's OnLoad
event:

Private Sub Form_Load()
Dim lngCount As Long
lngCount = Me.ListBoxName.ItemCount
End Sub