Програмный перебор Combobox-ов

[Dmi3i4]

На форме расположено несколько элементов Combobox
Combobox1, Combobox2, Combobox3 необходимо последовательно заполнить их.
Пробовал следующую конструкцию

UserForm1.ComboBox(NumCombo).AddItem rs.Fields(Fild)

выдает ошибку "Member or data member not found"
Подскажите как это можно реализовать ?[/code]

[KL]

Код: Выделить всё

    For i = 1 To 5
        Controls("ComboBox" & i).AddItem rs.Fields(Fild)
    Next i

[Viper]

или делай массив контролов

[Dmi3i4]

KL
Попробовал Ваш вариант выдает
"Sub or Function not defined"
для строки
Controls("ComboBox" & NumCombo).AddItem rs.Fields(Fild)

[RayShade]

KL

Dmi3i4



Все ведь дело в том, что надо бы писать UserForm1 перед Controls

Иначе в самом деле неясно, какие там контролы и что откуда почему зачем и так далее.

[Dmi3i4]

RayShade
Добавил UserForm1 и всё заработало - спасибо !

Всем Спасибо за помощь !

[KL]

KL
Dmi3i4

Все ведь дело в том, что надо бы писать UserForm1 перед Controls
Иначе в самом деле неясно, какие там контролы и что откуда почему зачем и так далее.

Все зависит от того, из какого модуля вызывается процедура - если из модуля UserForm1 (мой случай), то

Controls("ComboBox" & i).AddItem rs.Fields(Fild)

по умолчанию

Me.Controls("ComboBox" & i).AddItem rs.Fields(Fild)

т.е.

UserForm1.Controls("ComboBox" & i).AddItem rs.Fields(Fild)

т.е.

ThisWokbook.UserForm1.Controls("ComboBox" & i).AddItem rs.Fields(Fild)

т.е.

Application.ThisWokbook.UserForm1.Controls("ComboBox" & i).AddItem rs.Fields(Fild)

[RayShade]

UserForm1.Controls - эта конструкция, которая позволяет не париться на тему контекста

[KL]

А я и не спорю - я объясняю причину Опять же - вдруг человек что нового для себя узнает.

Другое дело, что лично я предпочитаю "париться на тему контекста" (не велика забота, надо сказать) засчет чего значительно сокращаю размер написанного кода. Поскольку я по жизни не программист, мои глаза и нервы не выносят "спагетти" в коде.

[Djars]

а как сделать все тоже самое, но только на листе MSWord?
т.е. перебрать

Код: Выделить всё

For i = 1 To 5
    Controls("objCbo" & i).AddItem CStr(i)
Next i

что нужно поставить перед Controls, чтобы все ComboBox можно было оббежать?

В моем документе новый ComboBox создается с помощью копирования предыдущего. Количество ComboBox известно = количеству строк в таблице. С помощью кнопок пользователь может удалять и прибавлять строки.

Мне нужно новые комбо заполнять значениями из старых, т.к. при копировании они не передаются, или есть такое копирование со значениями?

Спасибо