Цитата:
Сообщение от 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-я степень ожирения" и добавляеться в поле ОценкаИМТ в таблице Пациенты.