List box

[prkundan]

Is it possible through VBA code to make a list box display its top value? How???

 

[My Aswer Is This]

Do you mean the Maximum value?

How did the listbox get it's values?

 

[My Aswer Is This]

Sorry. I see now this is a Access question not a Excel Question

 

[xenou]

Do you mean the Maximum value?

How did the listbox get it's values?

Good questions though. What are the answers? For instance, if the listbox is sourced by a query you can use the same query.

 

[prkundan]

Good questions though. What are the answers? For instance, if the listbox is sourced by a query you can use the same query.

I have the following code on the click event of the List Box:

Private Sub List_22215_Click()
On Error GoTo Err_code
Me.CR_NO = Left(Me.List_22215, 2) & Right("0000000" & CStr(CLng(Right(Me.List_22215, 5)) + 1), 5)
Me.List_22215.Requery
Me.DATE.SetFocus
Exit Sub
Err_code:
MsgBox Error$


End Sub

When I click on any value in the list box the cursor remains on that value. I want it to go to the first value (or the top value). For that I used Me.List_22215.Requery but it doesn't work.

 

[xenou]

When I click on any value in the list box the cursor remains on that value. I want it to go to the first value (or the top value). For that I used Me.List_22215.Requery but it doesn't work.

When you say it doesn't work, what does it do? Does nothing at all happen? Does anything happen? Is there an error? Note that normally for changing a listbox selection you do something with the selected index value. Listboxes are a little weird because they have different kinds (multi select, single select, extended). You have to google a little and try different ways until you get the right syntax for accessing and working with listbox items.

 

[prkundan]

When you say it doesn't work, what does it do? Does nothing at all happen? Does anything happen? Is there an error? Note that normally for changing a listbox selection you do something with the selected index value. Listboxes are a little weird because they have different kinds (multi select, single select, extended). You have to google a little and try different ways until you get the right syntax for accessing and working with listbox items.

TRIED THE FOLLOWING COMMAND :
Me.List_22215 = Me.List_22215.ItemData(0)

AND IT WORKED.

 

[xenou]

Cool. Thanks for posting the solution.