[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 426
  • Last Modified:

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!

0
zachvaldez
Asked:
zachvaldez
  • 3
  • 3
1 Solution
 
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
 
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
Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

 
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
 
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
 
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

Featured Post

Configuration Guide and Best Practices

Read the guide to learn how to orchestrate Data ONTAP, create application-consistent backups and enable fast recovery from NetApp storage snapshots. Version 9.5 also contains performance and scalability enhancements to meet the needs of the largest enterprise environments.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now