1

Тема: Получение данных из 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… У меня как-то не получается.
Спасибо.

2

Re: Получение данных из Access

Замечательно.
Тогда последний вопрос: Как устранить ошибку "run-time error '-2147352571 (80020005)' Could not set the Column property. Несовпадение типов."

3

Re: Получение данных из Access

Всё решилось естественным путём, то есть самостоятельно…))
Тему можно удалять, она потеряла актуальность.

4

Re: Получение данных из Access

Ну вот и написали б решение smile  Возможно это кому то поможет в будущем.