пользовательские типы данных

[nolte]

здравствуйте
суть вопроса вот в чем:
создал я в модуле пользовательские типы данных как писано в книге
Type a()
KodKl As Integer
Klient As String
TelKl As String
End Type
в том же модуле (для видимости во всех модулях)
Public KlInfo (1 To 2000) As a
Public Sub aa()
KlInfo(1).KodKl=1 ' для примера
KlInfo(2).KodKl=2
KlInfo(3).KodKl=3
End Sub
как передать значение массива в модуль формы для дальнейшей обработки, и как заполнить данными "KlInfo.KodKl" Combobox1, а данными
"KlInfo.Klient" скажем Текстбокс1.
Если не решение хотя бы направление поиска куда копать.

[Казанский]

> как писано в книге
> Type a()

Не верю! (с)

Type a '() скобок не должно быть

>как заполнить данными "KlInfo.KodKl" Combobox1

Private Sub UserForm_Initialize()
Dim i&
For i = LBound(KlInfo) To UBound(KlInfo)
    ComboBox1.AddItem KlInfo(i).KodKl
Next
End Sub

>а данными "KlInfo.Klient" скажем Текстбокс1

Private Sub ComboBox1_Change()
TextBox1 = KlInfo(ComboBox1.ListIndex + 1).Klient
End Sub

[nolte]

Спасибо Вы выручали меня
да думка была заполнить массив вне инициализации а потом просто подставить значение типа комбобокс равен массиву и все ан нет не проходит. Дело в том что список длинный пару тысяч наименований, и достаточно статичный скажем сначала в него будет чего то добавляться но в конце концов он устаканиться, это берет время набить комбобоксы их несколько на форме (торможение при загрузке) пойду экспериментировать.

[ikki_pf]

"пару тысяч" наименований в одном комбобоксе - это плохо.

[nolte]

Да уж не сахар
но вроде как работает сносно

[DiemonStar]

но вроде как работает сносно

а не лучше разбить по группам и сделать связанные списки, которые и привязать к комбобоксу?
http://www.planetaexcel.ru/tip.php?aid=64