Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Итог в вы...

Тема: Итог в вычисляемом поле

15.06.2007 21:03:01

Андрей

2 сообщения

Тема: Итог в вычисляемом поле

Есть таблица учета прихода и расхода денежных средств. Хочу вставить в вычисляемое поле таблицы "баланс" формулу приход-расход+баланс предвдущ. Но не получается. В отчете нет проблем - есть свойство поля - итог с накоплением и в отчете все как надо. Но проблема в том что результат нужно хранить в таблице.
Помогите!
Андрей.

P.S. Общий раздел по таблицам
Автор: Андрей от 05.09.2002 7:22:03 Источник ...

15.06.2007 21:03:01

All

4316 сообщения

RE: Итог в вычисляемом поле

Одно из решений проблемы. Создайте кнопку в форме, которая будет запускать программу на вычисление общей суммы (поле sumAll) в таблице. Например,

Public Function funSumAfterUpdate(frm As Form)
Dim rst As DAO.Recordset, i As Long
Dim sum As Currency
On Error GoTo 999
frm.Recordset.Update
Set rst = frm.RecordsetClone
rst.MoveLast
rst.MoveFirst
sum = 0
For i = 0 To rst.RecordCount - 1
sum = sum + rst!sumCurrent ' для хранения предыдущ. результата поставьте вычисление после rst.Update
rst.Edit
rst!SumAll = sum
rst.Update
rst.MoveNext
Next i

Exit Function
999:
Err.Clear
Resume Next
End Function

P.S. Общий раздел по таблицам
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 21:03:01

Андрей

2 сообщения

RE: Итог в вычисляемом поле

Не получается, я новичок в Access и работаю в Access2000 в основном в режиме конструктора форм и запросов. Вставив предложенный код в процедуру нажатия кнопки не получил никакого результата.

Может быть проще написать в запросе формулу, чтобы для последней записи вычислялась разность+результат предыдушего поля(не пересчитывая все предыдущие записи, а записывая результат только в новой записи в поле в котором результат(баланс) ещё не просчитан.)

Запрос создал, написал в нём =[оплачено]-[отгружено]+[баланс].Count-1 , но пишет ошибку. Данные не вычисляет.

Помогите. Ведь наверняка есть простое решение.

Андрей.

P.S. Общий раздел по таблицам
Автор: Андрей от 05.09.2002 10:29:16 Источник ...

15.06.2007 21:03:01

All

4316 сообщения

RE: Итог в вычисляемом поле

Еще один способ для вычисления, который не использует VBA
1. Создайте запрос на группировку по дате, который будет суммировать результат по вашим расчетным полям
2. Создайте запрос на обновление, используя запрос на группировку, запросы свяжите по полю дата.

P.S. Общий раздел по таблицам
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Итог в вы...

Поиск

Список форумов

Начало | Forums