automating process using combobox values-using a loop

I have a combobox(cboEntry) with 5 entries-A,B,C,D,E.( value list) not table/query
currently everything is manually process. I have to select a value in a combo box then click the command button and it processed accordingly the criteria. However I would like to automate the process. Instead of selecting an item in the combo box and executing using it, I would like to loop throug the values and excute the code behind the click event of the command button. Is that possible? sometthing like

....  For i = 0 To Me.lstMod.ListCount - 1 but in my case it is a combo box....
           call cmdExt_click
     next

Can someone show me the code to get this accomplish?
Im debating whether I will use the call to the cmdExt_click or call the modulles currently inside the command button.
Im also debating whether use a listbox instead of combo box.

thanks in advance!

zachvaldezAsked:
Who is Participating?
 
JRossi1Commented:
Since your combobox entries are text the function would look like this:

YourFunction(strComboBoxValue as String)

You are only passing the value in the combobox to your function (or procedure). This line of code: ctl.ItemData(intIndex)), retrieves the value of the combobox on a particular row.  So your function just needs to have a parameter that accepts the value from the combobox.

The whole thing might look like this:

Sub CommandButton1_Click

    Dim ctl as combobox
    Dim intIndex as integer

    Set ctl = Me!YourComboBox
    'Loop through all combo box rows; run your process passing the current combobox value as a parameter
    For intIndex = 0 To ctl.ListCount - 1
        YourFunction(ctl.ItemData(intIndex))
   Next

End Sub

Function YourFunction(strComboBoxValue as String)
   <<<<  Your process >>>>
End Function




0
 
peter57rCommented:
Hi zachvaldez,
So it sounds like the combo box has no purpose. You can hold the list in memory.

You need some looping code such as ...

Dim arr(4)
Dim x
arr(0)= "A"
arr(1)="B"
arr(2)="C"
arr(3)="D"
arr(4)="E"

For x = 0 to 4
' do something using arr(x)
next x

Pete
0
 
zachvaldezAuthor Commented:
well,  the combo box or listbox is needed to display what is going on.. although it is automated
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
JRossi1Commented:
Dim ctl as combobox
Dim intIndex as integer

 Set ctl = Me!YourComboBox
' Loop through all combo box rows; run your process passing the current combobox value as a parameter
For intIndex = 0 To ctl.ListCount - 1
      YourFunction(ctl.ItemData(intIndex))
Next
0
 
zachvaldezAuthor Commented:
I was wondering how the function would look like.


 YourFunction(ctl.ItemData(intIndex))>>>

should I say Myfunction(ctlm as combo box , i as integer)

is this right?
0
 
zachvaldezAuthor Commented:
In form load..
I would like the combo bx to default to the first value list..
how is that done?
0
 
JRossi1Commented:
Here is how you can select the first item:

Me.YourComboBox = Me.YourComboBox.ItemData(0)


0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.