Перебрать контролы в форме

[IVAN008]

Вопрос достаточно простой, как мне получить массив текстбоксов которые находяться на форме в количестве ~ 200 шт. а потом перебрать массив и изменить свойства боксов по определенному правилу.
И еще одно небольшое дополнение - я ваяю форму в Access, а там нет индекса у текстбоксов, поэтому перебор по индексу некатит.
С уважением..... Иван
Жду ответа как соловей лета )

[a_mayor]

Примерно так:

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


Private Sub CommandButton1_Click()
    Dim iIndex As Integer
   
   
   
    For iIndex = 0 To Controls.Count - 1
        MsgBox Controls.[_GetItemByIndex](iIndex).Name
    Next
End Sub


Квадратные скобки обязательно (это не ошибка), это скрытая функция.

Уже предвижу следующий вопрос. Но пока нет ответа. Но всё равно можешь спросить.

[Шурик]

http://bbs.vbstreets.ru/viewtopic.php?t ... light=each

[IVAN008]

Ничтяк!!! понял почти всё!!!
Шурик реально Самогоньщик!!!
Если можно вопрос совсем чайника
чвто такое collection, точнее я немного догадыфваюсь, но как туда добавить интересующие меня контролы.
Не ругайтесь сильно матом, просто мауала нет под рукой

[Студентка]

Извининте, что я тут влезла со своей проблемой.
просто у меня тоже массив текстбоксов, и я не знаю как мне каждому из них задать значение datafield.
если бы не массив тогда понятно, а так не знаю...
что надо в коде написать?
я писала
Set Text1(i).DataSource = f1
, но это действует только на 1-й элемент массива,а для остальных нет.
Буду благодарна если поможите...
Еще раз извиняюсь, что так нагло влезла

[Konst_One]

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

dim i as Integer

For i=0 to Text1.Count-1
   Set Text1(i).DataSource=f1
Next

ээх, студентка

[Студентка]

Konst_One

For i = 1 To r1.Recordset.RecordCount

Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 359
Text1(1).Left = Text1(i - 1).Left
Text1(i - 1).Visible = True
Set Text1(i).DataSource = f1
Next i

все равно только в первом текстбоксе добавляются данные

[Konst_One]

а что такое f1

[Konst_One]

и DataField надо обязательно указать

[Студентка]

Konst_One
f1 - имя adodc которая связана с таблицей.
А где datafield указать надо?

[Студентка]

Konst_One
как указать datafield ведь это же массив?

[Студентка]

Господи поможет мне кто-нибудь или нет?:
мне завтра работу сдавать...........

[Prickly]

Как datasource указываешь так и datafield указывай!