ник: snipe
поторопился чуток......
во втором пункте правильнее будет так
If Me!Умер = True Then
Me![Дата смерти].Locked = False
Me![Дата смерти]].BackColor = 16777215
Else
Me![Дата смерти]=""
Me![Дата смерти].Locked = True
Me![Дата смерти].BackColor = -2147483633
End If