LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
07 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Добавлени...
Тема: Добавление вычисляемого поля из формы в таблицу
15.06.2007 21:03:42
Александр15
1 сообщения
Тема: Добавление вычисляемого поля из формы в таблицу
Я весьма и весьма неопытный пользователь в Access, поэтому просьба не смеяться. :-)
Прочитав сообщения в форуме, как это можно проще всего сделать (через запрос обновления), я так и поступил, но потом захотелось более продвинутого решения. Взяв пример Виктора Конюхова «Автовычисление полей в форме» (большое ему спасибо!) и приспособив для собственных нужд (нужно суммировать поля ЗнаетСвойПредмет и ИзлагаетМатериалЯсно и т.д. и затем добавить их сумму в поле СуммаБаллов таблицы), я обнаружил, что он работает только для существующих записей, а для новых нет. Вопрос: какие необходимо внести изменения, чтобы эта процедура события работала и для новых записей. Вот текст кода:
Option Compare Database
Option Explicit
'***************************************************************
' 15. Автовычисление полей в форме.
'***************************************************************
'==============================================================
' Расчет
Private Sub Form_Open(Cancel As Integer)
Me.Итого.ControlSource = "=[ЗнаетСвойПредмет]+[ИзлагаетМатериалЯсно]"
End Sub
'==============================================================
' Сохранение результата для существующих записей
Private Sub Form_Current()
If Me.NewRecord = False Then
Me.СуммаБаллов = Me.Итого
End If
End Sub
'==============================================================
' Открытие VBA кода
Private Sub butCode1_Click()
DoCmd.OpenModule Me.Module
End Sub
Заранее благодарен,
Александр
P.S. Общий раздел по формам
Автор:
Александр
от 11.02.2003 21:23:11
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Добавлени...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования