Добрый день, не подскажите можно ли с помощью VBA заполнить данные таблицы, которая уже существует в базе и ее структура определена?
В качестве примера: хочу добавить в таблицу output_data в поле out_value данные массива Arr (i)
Базу выложил на диск, потому что она больше максимально возможного размера вложения
https://drive.google.com/open?id=0B_bBwCfw-ZAQUnRRRVZUXzZYOVk

Dim db As Database
Dim varArray() As Variant
Dim strSQL As String
Dim rstData As DAO.Recordset
Dim eData As Integer
Dim efields As Integer
 
Set db = CurrentDb()
efields = 9

strSQL = "SELECT Data.id_incoming_indicator, Data.id_region, Data.id_item_str, Data.twelvemonth, Data.id_unit, Data.ind_value, unit.name_unit, IncInd.name_incoming_indicator, StrItem.name_item_str FROM unit INNER JOIN (StrItem INNER JOIN (IncInd INNER JOIN Data ON IncInd.id_incoming_indicator = Data.id_incoming_indicator) ON StrItem.id_item_str = Data.id_item_str) ON unit.id_unit = Data.id_unit WHERE (((Data.id_incoming_indicator)=" & [Forms]![main]![Data].[Form]![p1] & ") AND ((Data.id_region)=" & [Forms]![main]![Data].[Form]![p2] & ") AND ((StrItem.name_item_str)='-'));"

Set rstData = db.OpenRecordset(strSQL, dbOpenDynaset)

rstData.MoveLast
rstData.MoveFirst
eData = rstData.RecordCount

ReDim varArray(efields, eData)
varArray = rstData.GetRows(eData)

Dim Arr() As Variant
ReDim Arr(eData)

For i = 1 To eData - 1
Arr(i) = varArray(5, i) / varArray(5, i - 1)
Next i

rstData.Close
Set rstData = Nothing


End Sub

http://www.sql.ru/forum/1261246/dobavlenie-v-tablicu-dannyh-iz-massiva