Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2012, 15:09   #11
fori
 
Регистрация: 14.02.2012
Сообщений: 7
Радость Прошу подсказки...

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
fori
не подтверждаю.
Вы форму открывали? Рост меняете, ИМТ изменяется?!
Потому что у меня пример от Satka работает! (у меня MS Access 2007)

А изменение назначено на событие "Рост" - "События" - "После обновления"
назначен код Sub Рост_AfterUpdate():
Код:
Private Sub Масс_тела_AfterUpdate()
If Len(Масс_тела.Value) <> 0 And Len(Рост.Value) <> 0 Then
    ИМТ.Value = Round(Масс_тела.Value / Рост.Value ^ 2, 2)
    Поле13 = DFirst("[Оценка]", "ИМТ", " MinИМТ < " & Val(ИМТ.Value))
End If

End Sub

Private Sub Рост_AfterUpdate()
  Масс_тела_AfterUpdate
End Sub



p.s. Режим "Grammar-nazy" включён!
"Возвраст:" и "Масс тела:" - написаны неграмотно.
Пожайлуста, можете еще подсказать, как правильно добавить в алгоритм - подбор поля "Оценка" с таблицы ИМТ, исходя из величины ИМТ расчитаной и добавленной ранее?
Пример: если ИМТ = 20, то выбирается Оценка - "Нормальный диапазон, наименьший риск проблем со здоровьем" и добавляеться в поле ОценкаИМТ в таблице Пациенты.
И ИМТ = 36, тогда выбирается Оценка - "2-я степень ожирения" и добавляеться в поле ОценкаИМТ в таблице Пациенты.
fori вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вывод результата Илья- Общие вопросы C/C++ 0 16.11.2011 17:29
Вывод результата блоками nervniy Паскаль, Turbo Pascal, PascalABC.NET 1 28.05.2011 20:26
[access]реализовать вывод отчёта продажи за определённый период времени nuevegramodelamor Фриланс 1 18.04.2011 09:50
Вывод результата Delphi Nikita++ Помощь студентам 5 20.12.2010 15:48
Подсчет и вывод результата... sew960i Microsoft Office Excel 18 31.01.2010 14:04