Listbox: scroll to the selected item by code.

[Filips Benoit]

Dear All,

I have code that selects - find and select - 1 item in a large listbox. This
works Ok but most of the time the selected item isn't visible without
scrolling down manualy. Is this possible by code?

Filip

[Phil Stanton]

2 thoughts.
1) Use a combo box where as you type the letters you get closer to the entry
you are lookin for
2) Use a list box, but have an option grid of letters and numbers to
select the initial letter say and ensure that the query for the list box has
a "WHERE WhatImSearchingFor Like Like [screen].[activeform]![Filter].

If for example you press the letter "F", the filter will look "[" &
Screen.ActiveForm!ShowFilter & "]*" where there is anothe control on the
form Screen.ActiveForm!ShowFilter which stores the F

Phil
"Filips Benoit" <be***********@pandora.be> wrote in message
news:yT********************@phobos.telenet-ops.be...

Dear All,

I have code that selects - find and select - 1 item in a large listbox. This works Ok but most of the time the selected item isn't visible without
scrolling down manualy. Is this possible by code?

Filip

[Stephen Lebans]

Scroll a ListBox to a specific row. Emulates the VB ListBox TopIndex
property. You can alter the code to easily have the selected row display
as the first or last row as well. The example code is placed behind a
Command Button.

' *** CODE START
Private Sub cmdListIndex_Click()
On Error GoTo Err_cmdListIndex_Click

' Always make NumRows an odd number
' if you want selected Row to be in the
' middle of the ListBox.

' NumRows is the number of completely visible rows in the ListBox Const
NumRows = 7
' Row we want displayed in middle of ListBox.
Dim intDesiredRow As Integer

' Arbitrarily select the 24th row.
intDesiredRow = 24
' ListBox must have the Focus
Me.List2.SetFocus
' Force ListBox to start from the top
Me.List2.ListIndex = 1

' Force the Scroll offset we desire
Me.List2.ListIndex = intDesiredRow + (NumRows / 2)
' Now select the row without further scrolling
Me.List2.ListIndex = intDesiredRow

Exit_cmdListIndex_Click:
Exit Sub

Err_cmdListIndex_Click:
MsgBox Err.Description
Resume Exit_cmdListIndex_Click

End Sub
' ***CODE END


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Filips Benoit" <be***********@pandora.be> wrote in message
news:yT********************@phobos.telenet-ops.be...

Dear All,

I have code that selects - find and select - 1 item in a large listbox. This works Ok but most of the time the selected item isn't visible without
scrolling down manualy. Is this possible by code?

Filip

[Pieter Linden]

"Filips Benoit" <be***********@pandora.be> wrote in message news:<yT********************@phobos.telenet-ops.be>...

Dear All,

I have code that selects - find and select - 1 item in a large listbox. This
works Ok but most of the time the selected item isn't visible without
scrolling down manualy. Is this possible by code?

Filip

If you don't need to use the MultiSelect property of the listbox,
wouldn't this be easier with a combobox with the LimitToList property
set to true? Then you could do something like set the controlsource
for the combobox after the user has entered a character (to limit the
number of records displayed initially).

[Filips Benoit]

THANKX³,

Thats just what I was looking for.

Filip
"Stephen Lebans" <Fo****************************************@linval id.com>
wrote in message news:Vk********************@ursa-nb00s0.nbnet.nb.ca...

Scroll a ListBox to a specific row. Emulates the VB ListBox TopIndex
property. You can alter the code to easily have the selected row display
as the first or last row as well. The example code is placed behind a
Command Button.

' *** CODE START
Private Sub cmdListIndex_Click()
On Error GoTo Err_cmdListIndex_Click

' Always make NumRows an odd number
' if you want selected Row to be in the
' middle of the ListBox.

' NumRows is the number of completely visible rows in the ListBox Const
NumRows = 7
' Row we want displayed in middle of ListBox.
Dim intDesiredRow As Integer

' Arbitrarily select the 24th row.
intDesiredRow = 24
' ListBox must have the Focus
Me.List2.SetFocus
' Force ListBox to start from the top
Me.List2.ListIndex = 1

' Force the Scroll offset we desire
Me.List2.ListIndex = intDesiredRow + (NumRows / 2)
' Now select the row without further scrolling
Me.List2.ListIndex = intDesiredRow

Exit_cmdListIndex_Click:
Exit Sub

Err_cmdListIndex_Click:
MsgBox Err.Description
Resume Exit_cmdListIndex_Click

End Sub
' ***CODE END


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Filips Benoit" <be***********@pandora.be> wrote in message
news:yT********************@phobos.telenet-ops.be...

Dear All,

I have code that selects - find and select - 1 item in a large

listbox. This

works Ok but most of the time the selected item isn't visible without
scrolling down manualy. Is this possible by code?

Filip