ListBox SetFocus

Clive Astley · May 3rd, 2004, 04:02 PM

I have a form with a ListBox on it. When the form opens I should like the first item in the ListBox to be selected.

Clive Astley

lryckman · May 3rd, 2004, 04:08 PM

Try this

Private Sub Form_Open(Cancel As Integer)
listbox.setfocus
End Sub

Only change 'listbox' to the name of your list box.

Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

Clive Astley · May 4th, 2004, 01:42 AM

Thanks Laura. I had already tried that before posting the question. That sets the focus to the listbox. But what I want is the first item in the list box to be selected.

Clive Astley

SerranoG · May 4th, 2004, 11:48 AM

Code:

If Me.lstMyListBox.ListCount > 0 Then
   Me.lstMyListBox.DefaultValue = Me.lstMyListBox.Column(0,0)
End If

This will make the default value the first item on the list IF there are data on the list.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

jurgenw · May 4th, 2004, 04:32 PM

Just a couple of additional notes:

Greg's solution makes a few assumptions. The first is that the column headers are not visible since they are row 0 of the list data when they are visible and the first data row is then row 1. The second is that the first column of a multi column list box is the bound column. The list may be bound to a different column or to 0 (which returns the rowindex of the selected item(s)).

If you are working with a multiselect listbox, you have the option of setting the selected property of a list control row.

Me.lstName.Selected(0) = True

would select the first item if the column headers are not displayed. To check if they are displayed, check the value of Me.lstName.ColumnHeads. If true, add one to the offset of the desired selected row of the list.

Ciao
JÃ¼rgen Welz
Edmonton AB Canada
[email protected]

Clive Astley · May 5th, 2004, 01:47 AM

Many thanks Greg and Jurgen. That's just what I needed.

Best wishes,
Clive

Clive Astley

SerranoG · May 5th, 2004, 09:13 AM

JÃ¼rgen, good points about the assumptions. I have a question. If you do something like Me.lstName.Selected(0) = True, does that actually set the ball rolling and start a new record in the recordset? If someone goes to a new record and then navigates out without typing, does the record start up and have to be undone?

The reason why I set the default value instead is because this does NOT set a new record going. So he or she goes to a new record, the combobox will have a value but the record will NOT have data yet. If the user navigates away from the new record without doing anything, there's no harm done and no record to undo.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

jurgenw · May 5th, 2004, 11:07 AM

Setting the selected property true/false does not work with anything but a multiselect listbox. It is read only with a single select list.

Your question pertains to a databound list (which is necessarily single select) or a databound combo (does not have a multiselect property option) and neither of these situations has the option of setting the selected property of a row as it is read only at runtime.

I believe the solution you presented is the only manner in which to set the value for a bound single select list or combo. Your specific question about whether there is a record insert is moot as it is a situation that cannot arise with an unbound control.

Ciao
JÃ¼rgen Welz
Edmonton AB Canada
[email protected]