Duplicate declaration in current scope

[rmac1954]

I created a userform with 10 comboboxes 1 - 10 which populate with part numbers, with corresponding txt_qty boxes 1 - 10 which populate with ordeer quantities.

I want to search on the part number in "ComboBox1" and then store the quantity from txt_Qty1 into a cell in the column named "Order Qty".

I am able to loop through the comboboxes 1 through 10 with the following code:

Dim cmb As combobox, i As Integer

For i = 1 To 10


Set cmb = Me.Controls.Item("ComboBox" & i)

The problem is that I always get the quantity from txt_qty1. I haven't been able to figure a way to loop through the text boxes in conjunction with the comboboxes. I want qty1 with combobox1 and qty2 with combobox2 and so on.

Rob

 

[rmac1954]

FYI I got the error when I tried duplicated the above code as such:

Dim cmb As combobox, i As Integer
Dim pqty As TextBox, i As Integer


For i = 1 To 10


Set cmb = Me.Controls.Item("ComboBox" & i)
Set pqty = Me.Controls.Item("txt_qty" & i)

 

[Fluff]

Try

Dim cmb As combobox
Dim pqty As TextBox
Dim i As Long

These days there is no benefit to declaring something as Integer, as its converted to Long when compiled