Select 1st Item

[CJ]

Hi again Groupies

When the listbox on my form receives the focus, I would like it's first
record to be selected. How do I make this happen with code?

I have tried:

Private Sub lstShopInventory_GotFocus()
Dim rst As DAO.Recordset
Me.Refresh
Set rst = Me.Recordset
rst.GetRows 1
End Sub

....nothing happened....

 

[CJ]

Never mind, I got it.

Me.Refresh
SendKeys "^{HOME}"

 

[Stuart McCall]

Never mind, I got it.

Me.Refresh
SendKeys "^{HOME}"

Ugh! PLEASE don't go with that. Sendkeys is notoriously unreliable. Also it
will be quietly ignored under Vista.

The correct way to select the 1st item is:

Me.MyListbox.Value = Me.MyListbox.ItemData(0)

 

[CJ]

It worked for me.
--
Thanks for the brainwaves!

CJ
I blame the parents........

Just for grins, does

me.lstShopInventory.listindex=0

or

me.lstShopInventory.listindex=0

work?

Never mind, I got it.

Me.Refresh
SendKeys "^{HOME}"

Hi again Groupies

[quoted text clipped - 11 lines]

...nothing happened....

 

[CJ]

I changed it, thanks for the tip.........however, it was working on my Vista
machine with A2K7