Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Блокирование поля
 
 автор: zhebov_andrey   (05.02.2010 в 16:30)   личное сообщение
 
 

Как написать эту функцию правильно?
Почему то если выбрать значение ЧС, то выбранные поля на форме блокируются, а если выбрать значение БЕЗРЕЗУЛЬТАТНО то нет... Правильно ли я понимаю, что последнее 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

  Ответить  
 
 автор: Joss   (05.02.2010 в 17:15)   личное сообщение
 
 

Попробуйте перейти на конструкцию SELECT CASE...

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList