Есть таблица Problems поля T1(дата)
TR(дата)
Надо Т1 занести в массив по циклу i= 1 to n-1
где n количество элементов таблицы проблемс поля Т1(с етоим проблем нет Dcount....)
А вот с синтаксисом занесение элементов таблицы в массив слабовато.

Тоесть я хочу увидеть на выходе к примеру msgbox a(i)
.
.
.

msgbox a(n-1)
Тоесть как то пощупать значения элементов столбца Т1, может ето решается и не массивами.

Тоесть мне надо в ТR занести значения из Т1 по формуле B(j)=А(i+1)-A(i), where i=1....n-1
j=2...m при условии количество элементов A(i)>1.

Есть к примеру таблица problems надо все элементы problems.Т1 занести в массив к примеру
array1. Далее нажимаю к примеру на кнопку срабатывает msgbox array1(4) тоесть выводит пятий элемент массива. Скажем задача такая если разбирусь в синтаксисе как ее решить с остальным тоже разберусь.

Получения рекордсета
Определения массива
Занесения в массив

Dim n, i As Integer
Dim arr(), arr1()
Dim rst, rst1 As Recordset
n = DCount("T1", "Problems")

Set rst = CurrentDb.OpenRecordset("SELECT Problems.T1 FROM Problems;")
arr = rst.GetRows(n)


For i = 0 To (n - 1)
arr1(0, i) = arr(0, i + 1) - arr(0, i)
Next i

End Sub


ubscript out of range 9. Массив, к элементам которого Вы пытались получить доступ, содержат меньше элементов, чем Вы предполагали.

массив arr он нормально считывает а вот arr1(0,i) пишет subscript out of range буквально на первой иттерации

чему при этом равно i и LBound(arr,2)-1? тишет 7 так и должен
впрочем если и поставить n-1 тоже 7 выдает
т.к n = DCount("T1", "Problems")

Видимо я как то неправильно обьявил массив arr1
т.к
выделяет строку желтым arr1(0, i) = arr(0, i + 1) - arr(0, i)
из них при наведении arr1(0,i)-subscript out of range
arr(0, i + 1)-значение из таблицы
arr(0, i)-значение из таблицы

Добавил в тестовом режиме

Private Sub Кнопка4_Click()
Dim n, i, j As Integer
Dim arr()
Dim arr1()
------>ReDim arr1(8)
Та же ошибка но уже при i=4 тоесть цикл проходит от 0 до 4 и стопорится

Может я как дядя вася который заменяя зуботехника молотком все делает но вместо redim зделал вот что и работает

Private Sub Кнопка4_Click()
Dim n, i, j, m As Integer
Dim arr()
Dim arr1()
Dim rst, rst1 As Recordset
//считает кол-во элементов столбца такого то таблицы такойто
n = DCount("T1", "Problems")
//заносим в рекордсет елеметы
Set rst = CurrentDb.OpenRecordset("SELECT Problems.T1 FROM Problems;")
\\определяем масси и его ко-лво
arr = rst.GetRows(n)
Set rst1 = CurrentDb.OpenRecordset("SELECT Problems.TR FROM Problems;")
arr1 = rst1.GetRows(n)

For i = 0 To n - 2
arr1(0, i) = arr(0, i + 1) - arr(0, i)
Next i

MsgBox arr1(0, 0)
MsgBox arr1(0, 1)
MsgBox arr1(0, 2)
MsgBox arr1(0, 3)
MsgBox arr1(0, 4)
MsgBox arr1(0, 5)
MsgBox arr1(0, 6)

End Sub
Щас осталось условие зделать на количество элементов больше двух а то ругаться будет

может как то можно и без рекордсета arr1 определить
тоесть заменить как то

Set rst1 = CurrentDb.OpenRecordset("SELECT Problems.TR FROM Problems;")
arr1 = rst1.GetRows(n)

т.к на данный момент етот рекордсет пустой так как в TR ничего нет

Еще вопрос образовался щас имею масси arr1 с числовыми значениями real

Можно ли как то значения массива аrr1 занести в таблицу tr по циклу

Или ети значения изначально по циклу можно было не в массив arr1 а в таблицу занести

В чем ошибка?
Таблица problems имеет столбцы T1(date) and TR(date)
T1 щас содержит данные в формате дата
TR хочет содержать данные в формате дата, которые щас находятся в массиве arr1

массив arr1 ето разница дат