Подбор согласно величине период и вывод результата в Access (функция if))

[fori]

Всем привет!
Я новичек в Access и тем более в языках программирования. Но, я учусь...
Нужна ваша помощь в создании небольшой базы в помощь лаборантам и врачам, и прошу вас помочь советом или примером. У нас маленький мед.центр в области диетологии. Руководство поставило задачу по созданию БД в помощь сотрудникам. Чтобы они не выполняли одни и те же расчеты и не вели всё на бумаге.
Я предположил, что нужно создать и вести карточки пациентов, куда будет занесена информация по ним, все расчеты и рекомендации. Приведу пример: есть некий пациент "Иванов Степан Сергеевич", пол "мужской", его параменты: возраст 30 лет, масса тела 110 кг, рост 1,86м. Необходимо расчитать его Индекс массы тела (формула ИМТ=Масса тела, кг/Рост^2) и для данного пациента =31,8. Я в форме добавил поле для расчета с формулой и в форме производится расчет ИМТ.

Но, данные не сохраняються в таблице "Пациенты" в поле "ИМТ". Пока не знаю, как это сделать (после расчета вставлять в поле).

После расчета ИМТ (31,8) нужно из таблицы "ИМТ" совершить выборку согласно периоду от MAX до MIN. В зависимости от ИМТ выбрать Оценку. И Оценка для данного числа равна "1-я степень ожирения", я не знаю, как выполнять автоматический подбор исходя из периода. И как результат оценки заносить в таблицу "Пациенты" в поле "Оценка ИМТ".
И уже после проведения подбора ИМТ, необходимо подобрать "Рекомендации" согласно результатам "ИМТ", "Оценки ИМТ", "возраста" и "пол" (таблица для подбора с диапазоном - Рекомендации).
В этом случае Рекомендации будут для Иванов Степан Сергеевич - Физические упражнения №3 и добавить этот результат в таблицу Пациенты (чтобы сохранить историю и вывести отчет) в поле Рекомендации к Иванов Степан Сергеевич.
И конечно же для пациента распечатать отчет.

Очень прошу вашей помощи, не смогу сам разобраться. Пожайлуста. Если вам тяжело и не хватает времени для примера, то подскажите где можно искать или посмотреть пример или инфу.

Буду очень благодарен.

Может у кого есть пример такой БД иследовательской лаборатории.

Пожайлуста - помогите.

Базу приложил:

[fori]

Помогите решить вопрос:

Попробую упростить задачу:
1. есть таблица1 с полями: а - число, в - число, с - текст, d - число (неизвестное), нужно вычислить формулу d=a/в полученный ответ "d" подставить в поле "d" таблицы1 (формулу в форме я вписал - считает, но как добавить значение в таблицу1 - не знаю).
2. есть таблица2 с полями d max - число, d min - число, e - текст, и в зависимости в какой диапазон попадает значение d с таблиці1 (от мах до min), выбрать поле с.

[satka]

Так накропал навскидку событие конечно можно поменять. Лично мои рекомендации, так как вы указали что новичок:
- не использовать кирилицу в названиях полей, таблиц, переменных, элементов управления
- подумать над структурой базы, она важнее вычисляемых полей
- спрогнозировать изменения в базе, на предмет её усложнения, т.к. такой способ хранения данных мне представляется наиболее удобным, в вашем случае особенно, к примеру наверняка понадобиться история ведения больного, его приёмы у врачей, а это уже повлечёт за собой создание базы врачей ну и т.д.
- и наконец поизучать Access, или предложить работу специалистам

[fori]

Сообщение от satka

Так накропал навскидку событие конечно можно поменять (я заметил, только изменения в свойствах поля, включили Данные - "ОценкаИМТ" - а подстановку и выборку он не производит исходя из результата расчета ИМТ).

Лично мои рекомендации, так как вы указали что новичок:
- не использовать кирилицу в названиях полей, таблиц, переменных, элементов управления (сделаем...)

- подумать над структурой базы, она важнее вычисляемых полей (понял)

- спрогнозировать изменения в базе, на предмет её усложнения, т.к. такой способ хранения данных мне представляется наиболее удобным, в вашем случае особенно, к примеру наверняка понадобиться история ведения больного, его приёмы у врачей, а это уже повлечёт за собой создание базы врачей ну и т.д.

- и наконец поизучать Access, или предложить работу специалистам (вот и изучаю, вы же знаете, что без практики - теория ничего не стоит. А специалисты уже себя показали - не один... поэтому задачу возложили на меня)

Если вас не затруднит, покажите или подскажите, как работать с поле подстановка с вычислением.

[satka]

Прошу прощения, забыл указать, что происходит вычиление ИМТ, после обновления поля Масса_тела или обновления поля Рост, тогда же Поле13 присваивает значение первому найденому результату в таблице ИМТ. Это можно увидеть открыв код события "после обновлениия" поля Масса_тела. И кстати забыл упомянуть что в определении оценки у вас пересекаются диапазоны, долго смотрел — так ничего и не понял как пределить степень ожирения, та же ситуация с рекомендациями.
И ещё я вам советую для начала изучить например этот сайт.

[fori]

Сообщение от satka

Прошу прощения, забыл указать, что происходит вычиление ИМТ, после обновления поля Масса_тела или обновления поля Рост, тогда же Поле13 присваивает значение первому найденому результату в таблице ИМТ. Это можно увидеть открыв код события "после обновлениия" поля Масса_тела. И кстати забыл упомянуть что в определении оценки у вас пересекаются диапазоны, долго смотрел — так ничего и не понял как пределить степень ожирения, та же ситуация с рекомендациями.
И ещё я вам советую для начала изучить например этот сайт.

У меня ничего нового не работает с вашего примера. Я в приложении добавлю скриш-шоты. Но БД не изменилась, только появился новый макрос "~TMPCLPMacro", а в самой процедуре обработки (код VBA) ничего не поменялось. И в самой форме тоже...

[satka]

Видимо проблема в версии Access.
Re:

[fori]

Сообщение от satka

Видимо проблема в версии Access.
Re:

К сожалению, тоже самое, только теперь вообще отсутствует инфо в свойствах полях (пустые поля). Я уже попробывал открыть на другом компе в 2003 - тоже самое. Может у вас есть возможность написать, что мне нужно сделать?

[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" включён!
"Возвраст:" и "Масс тела:" - написаны неграмотно.

[fori]

Сообщение от 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" включён!
"Возвраст:" и "Масс тела:" - написаны неграмотно.

Спасибо. Все увидел...