ник: snipe
надо сделать 3 вещи......
1. на событие Текущая запись формы Онкология повещать вот это:
If Forms![Онкология]![подчиненная форма История болезни].Form!Умер = True Then
Forms![Онкология]![подчиненная форма История болезни].Form![Дата смерти].Locked = False
Forms![Онкология]![подчиненная форма История болезни].Form![Дата смерти].BackColor = 16777215
Else
Forms![Онкология]![подчиненная форма История болезни].Form![Дата смерти].Locked = True
Forms![Онкология]![подчиненная форма История болезни].Form![Дата смерти].BackColor = -2147483633
End if
если вариант с цветом не нравится строчки с BackColor убери
2. на событие После обновления флажка умер повешать вот это
If Me!Умер = True Then
Me![Дата смерти].Locked = False
Me![Дата смерти]].BackColor = 16777215
Else
Me![Дата смерти].Locked = True
Me![Дата смерти].BackColor = -2147483633
End If
про цвет тоже самое
3 код отвечающий за нажатие кнопки вызывающей календарь изменить на следующее
If Me!Умер = True Then
DoCmd.OpenForm "frmCalendar", , , , , acHidden
Forms("frmCalendar").ExportControl(2) = Me.Дата_смерти
Forms("frmCalendar").Visible = True
End If
вроде все