Максимальная сумма последовательных значений из диапазона

[vdl]

Доброго времени суток!
Помогите, пожалуйста, с заданием:
- необходимо определить максимальную сумму из определённого количества (например - 6) подрядидущих целых положительных числовых значений, содержащихся в одном поле таблицы. Т.е. необходимо суммировать по 6 полей со смещением на одно и вывести максимальное значение из получившихся.
Задание является полным аналогом такого же в Excel'e - http://programmersforum.ru/showthread.php?t=209319
Заранее огромное спасибо!

[gluk_fm]

Добрый день.
Попробовать можно так:

i = 1
Set rs = db.OpenRecordset("имя таблицы", dbOpenDynaset)
rs.MoveFirst
Do Until rs.EOF
p=rs![имя поля]
If rs![имя поля] >p Then
p=rs![имя поля]
end if

i = i + 1
if i = 6 then'укзываешь необходимое количество для перебора
i=1
запрос на добавления значения "p"
rs.MoveNext
end if

rs.MoveNext
Loop

[vdl]

В задании присутствует поле дат и сказали, что необходимо строить запрос через переборку значений дат (дата:дата+6; дата+1:дата+7; дата+2:дата+8 и т.д.)

[gluk_fm]

Может тогда опишите поподробнее? Я лично ничего не понялс последнего задания.

[vdl]

Сообщение от gluk_fm

Может тогда опишите поподробнее? Я лично ничего не понялс последнего задания.

Постараюсь... С Access`ом начал знакомиться меньше недели, поэтому иногда не могу правильно сформулировать даже вопрос...

Полное условие задания: Есть таблица Т с числовым полем т1 и полем даты т2. Необходимо определить максимальную сумму значений из поля т1 за 5 последовательно идущих дней.
Моя логика - вычислить суммы интервалов День1-День5, День2-День6 и т.д. (не могу понять, как это реализовать в Access`е....) и затем уже из полученніых значений выбрать максимальное.

[gluk_fm]

А может попробовать не усложнять жизнь и написать как-то так:

i = 1
Set rs = db.OpenRecordset("запрос на выборку с сортировкой дат по возростанию/убыванию")
rs.MoveFirst
Do Until rs.EOF
p=rs![имя поля]
If rs![имя поля] >p Then
p=rs![имя поля]
end if

i = i + 1
if i = 6 then'укзываешь необходимое количество для перебора
i=1
запрос на добавления значения "p"
rs.MoveNext
end if

rs.MoveNext
Loop

Лень двигатель прогресса, чем больше мы ленимся тем больше делаем!

[vdl]

К сожалению мне надо реализовать это с помощью именно запросов...

[gluk_fm]

Так это и есть перебор запроса.

[vdl]

Если я правильно понимаю, это программируемый запрос.. Возможно ли решить эту задачу с использованием стандартных функций?

[gluk_fm]

Пока в голову приходит только запрос с условием отбора [введите дату]+6