Тема: Получение данных из Access
Добрый день уважаемые эксперты.
Помогите, пожалуйста, со следующей проблемой. Есть необходимость получения данных из таблицы Access для последующей их вставки в выбранные поля Word.
Собственно есть код VBA на форме Word с 1 ComboBox:
Private Sub UserForm_Initialize()
Dim dbDatabase As Database
Dim szo As Recordset
Dim i As Integer
Dim aResults()
Set dbDatabase = OpenDatabase("D:\szo.mdb")
Set szo = dbDatabase.OpenRecordset("list", dbOpenSnapshot)
With szo
' This code populates the combo box with the values
' in the CompanyName field.
Do Until .EOF
ComboBox1.AddItem (i)
ComboBox1.Column(0, i) = .Fields("org")
.MoveNext
i = i + 1
Loop
End With
End Sub
Вопрос: Как видоизменить этот код, чтобы на форме функционировал не один ComboBox, а, например, 2-3… У меня как-то не получается.
Спасибо.
Возможно это кому то поможет в будущем.