problems with populating multiple combobox with data from other combobox

[iuliana777]

Hello!

I have this code:

Dim j, i As Integer
Dim dbs As Database
Dim tbl_name As Recordset
Set dbs = CurrentDb

For i = 0 To cboCol.ListCoun t - 1
cboCol.RemoveIt em s
Next i
'dbs.TableDefs( cboTable.Value) .Fields(i).Name
For j = 0 To dbs.TableDefs(c boTable.Value). Fields.Count - 1
With cboCol
.AddItem dbs.TableDefs(c boTable.Value). Fields(j).Name
End With
Next j

cboCol.Value = cboCol.ItemData (0)

And it works for the combobox called cboCol but I have 94 comboboxes to be filled with data and I don't find the appropriate code to fill them with a repetitive structure.

Can you help?

[Kinwang2009]

Hi,
This source code was made to help vishaldalya in DreamInCode.net who have same problem like you. Find the attached Help.

Hope this helps