Listbox setfocus on row

[Guest]

I have a list box with a query from a table as the rowsource. Once a record
is selected and processed, it is removed from the table and the listbox
rowsource is refreshed. I would like the cursor(selection) to be placed on
the next record. I've tried the follwoing code (among many) without any
success. Any suggestions?

i = Me.lstItems.ListIndex
code to process record and remove from table... at end

Me.lstItems.Requery
Me.lstItems.ListIndex(i).SetFocus
The listbox has focus, but the cursor move to the first record on the page.
There is no sort option in the query.

Thanks

 

[Guest]

Try this:

i = Me.lstItems.ListIndex
code to process record and remove from table... at end

Me.lstItems.Requery
Me.lstItems.Selected(i) = True

Steve

 

[George Nicholson]

Me.lstItems.SetFocus
Me.lstItems.ListIndex = i

Should select the i(th) item in the listbox.
If you don't SetFocus immediately before ListIndex, you will raise an error.

HTH,

 

[banem2]

I have a list box with a query from a table as the rowsource. Once a record
is selected and processed, it is removed from the table and the listbox
rowsource is refreshed. I would like the cursor(selection) to be placed on
the next record. I've tried the follwoing code (among many) without any
success. Any suggestions?

i = Me.lstItems.ListIndex
code to process record and remove from table... at end

Me.lstItems.Requery
Me.lstItems.ListIndex(i).SetFocus
The listbox has focus, but the cursor move to the first record on the page.
There is no sort option in the query.

Thanks

Hi,

Try this:

Dim i As Long
i = Me.lstItems.ListIndex
'Your code
Me.lstItems.Requery
Me.lstItems.ListIndex = i

Regards,
Branislav Mihaljev

 

[Guest]

Thank you very much for your response. It worked. All three solutions. This
has been a pain for a few months. Thanks again.

 

[Guest]

Thank you very much for your response. It worked. All three solutions. This
has been a pain for a few months. Thanks again.

 

[Guest]

Thank you very much for your response. It worked. All three solutions. This
has been a pain for a few months. Thanks again.