with me.combobox1
msgbox .list(.listindex)
end with

Would make the typing a bit easier.


Vacation's Over wrote:

just seems cumbersome to use

me.combobox1.list(me.combobox1.listindex) just to get the "selected" value

"Vacation's Over" wrote:

thanks, needed this loop function to get the listindex# each time but it
works thanks.


Public Function fcnFindIndex(myValue As Variant, myArray As Variant)
Dim myitem As Variant
Dim counter As Long
counter = 0
For Each myitem In myArray
If myitem = myValue Then
fcnFindIndex = counter
End If
counter = counter + 1
Next myitem
End Function
"keepITcool" wrote:


you are "missing" .listindex :)

note that the List(array) in a control is 0 Based.

to select the 3rd item:
combobox.listindex=2

hth

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Vacation's Over wrote :

I'm using a combo box with style set to only allow choices from the
fixed list. the list is fed in as an array on form loading.

Problem: I can't seem to get the syntax to
highlight/select/boundvalue to get an initial election to show up
instaed of a blank. Also need to be able to reset selection onscreen
programatically based on other choices user makes on the form.

simple version:
Combobox1.list = array(1,2,3,4,5)
Combobox1.___________ = 3 ' show "3"selected for initial form

User clicks elsewhere on form
Combobox1.___________ = 4 'selection should change to show 4

I know I'm missing something simple...
Combobox1.value = Combobox1.value + 1 ' syntax works??/

since array is dynamic i have not resorted to testing listindex as it
would require a search/match loop that should not be needed??


--

Dave Peterson