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

Set tds = db.OpenRecordset("Output_data", dbOpenDynaset)

For i = 1 To eData - 1
Arr(i) = varArray(5, i) / varArray(5, i - 1)
tds.AddNew
tds!out_value = Arr(i)
tds!id_output_indicator = 1
tds!id_data = varArray(9, i)
tds!twelvemonth2 = varArray(3, i)
tds!id_unit = 3
tds.Update


Next i


tdsData.Close
Set tdsData = Nothing