Running a series of action queries based on order selected on a form 1

[Felix18807]

I need to allow a user to run a series of action queries based on an order he/she chooses on a form. At the moment I have a series of combo boxes where the user can type the order (1,2,3,4,5 etc).

Dim vControl As Control
   
    For Each vControl In Me.Controls
    If vControl = 1 Then
    'Run the query based on the control name.
    

    End If
    Next

    For Each vControl In Me.Controls
    If vControl = 2 Then
    'Run the query based on the control name.
    

    End If
    Next

etc

Is this possible?

 

[MajP]

    dim intCounter as integer
    Dim vControl As access.Control
    const numberCombos = 6 ' the number of combos
    
    do  
       intCounter = intCounter + 1
       For Each vControl In Me.Controls
        if vControl.controlType = acCombobox
          if vControl.value = intCounter
          currentDb.execute vControl.tag
        end if
      Next
   loop until ctlCount = numberCombos

 

[MajP]

Oops. I forgot to put a "then" on my if and I am missing an end if.

 

[Felix18807]

Wow that's all new to me but will be most useful in the future. Thank you very much!