|
|
|
| Как написать эту функцию правильно?
Почему то если выбрать значение ЧС, то выбранные поля на форме блокируются, а если выбрать значение БЕЗРЕЗУЛЬТАТНО то нет... Правильно ли я понимаю, что последнее IF отменяет предыдущее?
Private Sub ПолеСоСписком71_AfterUpdate()
If Me![ПолеСоСписком71] = "Травмы" Then
Me![ПолеСоСписком73].Locked = False
Me![ПолеСоСписком73].BackColor = 16777215
Else
Me![ПолеСоСписком73] = ""
Me![ПолеСоСписком73].Locked = True
Me![ПолеСоСписком73].BackColor = -2147483633
Me![Время принятия].SetFocus
End If
If Me![ПолеСоСписком71] = "Безрезультатный" Then
Me![ПолеСоСписком128] = ""
Me![ПолеСоСписком128].Locked = True
Me![ПолеСоСписком128].BackColor = -2147483633
Me![ПолеСоСписком108] = ""
Me![ПолеСоСписком108].Locked = True
Me![ПолеСоСписком108].BackColor = -2147483633
Me![ПолеСоСписком110] = ""
Me![ПолеСоСписком110].Locked = True
Me![ПолеСоСписком110].BackColor = -2147483633
Me![ПолеСоСписком112] = ""
Me![ПолеСоСписком112].Locked = True
Me![ПолеСоСписком112].BackColor = -2147483633
Else
Me![ПолеСоСписком128].Locked = False
Me![ПолеСоСписком128].BackColor = 16777215
Me![Время принятия].SetFocus
Me![ПолеСоСписком108].Locked = False
Me![ПолеСоСписком108].BackColor = 16777215
Me![Время принятия].SetFocus
Me![ПолеСоСписком110].Locked = False
Me![ПолеСоСписком110].BackColor = 16777215
Me![Время принятия].SetFocus
Me![ПолеСоСписком112].Locked = False
Me![ПолеСоСписком112].BackColor = 16777215
Me![Время принятия].SetFocus
End If
If Me![ПолеСоСписком71] = "ЧС" Then
Me![ПолеСоСписком128] = ""
Me![ПолеСоСписком128].Locked = True
Me![ПолеСоСписком128].BackColor = -2147483633
Me![ПолеСоСписком108] = ""
Me![ПолеСоСписком108].Locked = True
Me![ПолеСоСписком108].BackColor = -2147483633
Me![ПолеСоСписком110] = ""
Me![ПолеСоСписком110].Locked = True
Me![ПолеСоСписком110].BackColor = -2147483633
Me![ПолеСоСписком112] = ""
Me![ПолеСоСписком112].Locked = True
Me![ПолеСоСписком112].BackColor = -2147483633
Else
Me![ПолеСоСписком128].Locked = False
Me![ПолеСоСписком128].BackColor = 16777215
Me![Время принятия].SetFocus
Me![ПолеСоСписком108].Locked = False
Me![ПолеСоСписком108].BackColor = 16777215
Me![Время принятия].SetFocus
Me![ПолеСоСписком110].Locked = False
Me![ПолеСоСписком110].BackColor = 16777215
Me![Время принятия].SetFocus
Me![ПолеСоСписком112].Locked = False
Me![ПолеСоСписком112].BackColor = 16777215
Me![Время принятия].SetFocus
End If
End Sub | |
|
|