[Delirium]

Интересная задачка.... А запрос необходимо создать без привлечения VBA или можно использовать макросы?
Похожая проблема обсуждалась здесь: http://www.cyberforum.ru/ms-access/thread79189.html - Посмотрите, там даже примеры есть на access.

[taravasya]

Delirium, Спасибо!!
Думаю без VBA такое не решить
Минут 10 назад просматривал эту тему. Оно приблизительно то, но не то. Там запрос, создаётся конкретный. То-есть прямо указаны поля которые должны быть в запросе. Я имею ввиду, что если у меня появится новый товар, то для него оно не будет работать. Придётся переписывать модуль. Это не есть гуд. Более конкретизированный и лаконичный вариант нашёл здесь
Вот архив из той темы(там без регистрации не скачать) Но и там проблема с жёстко указанными полями. В идеале нужно сделать форму, которая при загрузке "изучала" бы, какие есть поля в таблице, соответствующие заданному критерию. И при необходимости генерировала бы новое поле(типа как на моём скрине). А содержимым этого поля являлась бы функция, переменной в которой, в свою очередь было бы обнаруженное в таблице поле товар_n, и выполнявшая расчёт разницы текущей записи относительно предыдущей. Надеюсь не очень запутано....

[taravasya]

Основываясь на раздобытом примере, сделал вот такую функцию:

Код:

Public Function counter(countcell As Double)
Const sQ1 = "SELECT TOP 1 товар1 FROM Отчет"
Dim db As Database
Dim rs As Recordset
s = sQ1
Set db = CurrentDb
Debug.Print s
Set rs = db.OpenRecordset(s)
If Not rs.EOF Then
    counter = countcell - rs(0)
End If
rs.Close
Set rs = Nothing

End Function

Для начала, эту функцию в дизайнере ставлю в новые поля запроса(для каждого товара своё поле)
Есть две проблемы.
1)Переменная rs(0), всегда имеет значение самой первой записи, в отличие от countcell, значение которой увеличивается в цикле перемещения по записям. В итоге результатом функции является текущая запись - первая запись, что не верно, так как нужно текущая - предыдущая
2)В sQ1 явно указано поле товар1. Хотя оно же, как бы является аргументом для функции. Ума не приложу как заставить SQL, понять этот аргумент? То-есть что бы строка выгладела примерно так:

Код:

Const sQ1 = "SELECT TOP 1 (countcell) FROM Отчет"

для того что бы одной функцией, можно было бы пересчитывать все товары
Как не мучился, не смог впихнуть в SQL аргумент этой функции...

[kim-aa]

taravasya,

Может быть проще "Разница Товар1" и "Разница Товар2" вычислять в полях Формы отчета MS Access?

В свое время, подобные вычисления (промежуточные суммы, накопительные итоги) я формировал именно так.

[taravasya]

Может быть и проще конечно. И собственно меня бы устроило. Но.... Во первых я не нашёл способа реализовать там это(тут признаюсь честно - отчеты Access для меня дебри, возможно я и упустил что-то), во-вторых всё таки отчёт это вершина айзберга, а значит шаг в лево шаг в право........ не выйдет. Ну и в конце-концов я ведь уже столько провозился решая именно так эту проблему...