Listbox "On Key Down" Property Forces Exit

[kdbailey]

When I enter a listbox and I hit up or down, I would like it to cycle through options of the listbox without leaving the control. Each time I hit up or down it leaves, and it seems as though that I cannot get it to focus back on the original listbox.

If possible I would like it to not leave the listbox in general. I have tried .setfocus on other controls and then .setfocus back on the original, that does not work. I have also tried DoCmd.GoToControl (ctrl).

the "On Key Down" on each points to this function...

Function newkeypress(Keycode As Integer, Shift As Integer)
Dim thectrl As String, ctrl As Control, count As Integer, frm As Form

If Keycode = 40 Then

    thectrl = Screen.ActiveControl.Name
    Set frm = Forms("Warranty Return Addition")
    Set ctrl = frm.Controls(thectrl)
    count = ctrl.ListCount
    
    With ctrl
        If ctrl.Value = "" Then
            ctrl = .ItemData(0)
        ElseIf .Value = count Then
            ctrl = .ItemData(0)
        Else
            ctrl = .ItemData(.Value)
        End If
        DoCmd.GoToControl ("txtdatecode")
        DoCmd.GoToControl (.Name)
    End With
Else
    Exit Function
End If

End Function

[June7]

I cannot replicate the issue. Pressing arrow or page keys does not exit listbox for me.

Why do you have this procedure? What is it intended to accomplish?

[kdbailey]

This is meant to occur when the list is not technically "open". When you tab into the listbox and hit the down/up arrow without manually clicking open the actual list.

I want to be able to navigate the screen without the mouse.

[ItsMe]

is this a combobox?

.setfocus
.dropdown

[June7]

Same with combobox - cannot replicate issue. Cursor keys do not cause box to lose focus.

ItsMe has a good question. What you describe sounds more like combobox behavior and need code, like:

Private Sub cbxMethod_Enter()
Me.cbxMethod.Dropdown
End Sub

Also, might make sure the AutoExpand property is set to Yes.

[kdbailey]

is this a combobox?

.setfocus
.dropdown

It is a listbox

[June7]

How can a listbox not be 'open'? A listbox does not have a dropdown list to be opened. That is a combobox. A listbox list is always displayed.

[kdbailey]

Excuse me, my mistake, it is a combobox.

[June7]

Does the suggested code do what you want?

[kdbailey]

It is similar to what I was looking for. I was probably over thinking the issue. I was going for a solution that did not technically open the drop down menu. This will work great though. Thanks for the assistance, again sorry for the combobox/listbox mistake.

[kdbailey]

Is there anyway to adjust which value is the default high-lighted when you use .dropdown?

For instance, if you were to hit the down arrow it would scroll down, thus starting from the top (first value).

Or if you hit the up arrow it would scroll up, thus starting from the last entry.

[June7]

The AutoExpand property will help fill in the combobox value. My people still want to see the list.

There is a DefaultValue property but that will work only for new record.

For existing record, if data already in the field it should show as highlighted item in list.

[ItsMe]

maybe

.SelText = "TextToSelectFromCombobox"

untested

[June7]

Not finding a .SelText property.

There are .SelStart and .SelLength but those concern selecting the string in the box, not the list.

[kdbailey]

I decided to adjust some things to how/when I want them opening. I should be set, thanks for the assitance.