Select first item in listbox

[ipbr21054]

Hi,
Currently when i open the ListBox1 its first entry shown is actualy the second entry.
Make sense ?
I need to pull the sliderdown to see the correct first entry.

Here is the code.
Ive tried various options but each time im still seeing the second.

Private Sub ListBox1_Click()
    If ListBox1.ListCount > 0 Then
    ListBox1.ListIndex = 0
    End If
      Dim answer As Integer
 
  Range("A" & ListBox1.List(ListBox1.ListIndex, 1)).Select
  answer = MsgBox("OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE")
   If answer = vbYes Then
   Unload DatabaseNameSearch
   Database.Show

Else
    Unload DatabaseNameSearch
End If
End Sub

 

[CSmith]

Multi-select listbox or?

 

[ipbr21054]

It’s a list box where only 1 item will be selected.

 

[CSmith]

Try changing the

ListBox1.ListIndex = 0

line to ListBox1.ListIndex = -1

 

[ipbr21054]

I’m sure I tried that but still the second value was shown.

 

[CSmith]

what are you attempting to do with that code? Seems wrong to me... Like it should be the AfterUpdate and not Click

also it sounds like a combobox and not a listbox?

 

[ipbr21054]

It’s a code I’m currently working with.
What you see works fine at present apart from when the values are shown in the listbox the first value is hidden.
I then need to grab the slider to pull down then I see the first value.
If I didn’t know that I would assume that the first entry you see is the first value. But I know the name of the first true value. Any other user would then see the wrong information.

 

[ipbr21054]

Evening,
Please see screenshot.

In The Type Name Box i enter the letter A
All results with the letter A are then shown on the right in the listbox.

As you can see the entry shown at what you think would be the first is A SQUARED 001

Now look on the worksheet behind & you will see the first is actually A BAKALI 001

Grabbing the slider on the right side & pushing it up then brings A BAKALI into view.

So the object of this task is to have the first entry NOT the second entry shown like so.
@jasonb75

 

[GWteB]

It seems that you've a coded connection with a textbox and your listbox. Check the regarding code and consider to insert on the change_event of that control a Me.Repaint to force a repaint of the Userform. That's all I can think of for this moment.