ГлавнаяMS ACCESS Пример отображения / скрытия элементов по событию
Пример отображения / скрытия элементов по событию
Автор Administrator
29.07.2001 г.
Процедура установки флажка после которой с экрана исчезают какие-то элементы и появляются новые ...
Private Sub Void_AfterUpdate() With CodeContextObject If (.Void = False Or IsNull(.Void)) Then .ЭлементActiveX6.Visible = True .ЗадатьДату.Visible = True .Группа30.Visible = False End If If (.Void = True) Then .ЭлементActiveX6.Visible = False .ЗадатьДату.Visible = False .Группа30.Visible = True End If End With End Sub В данном приемре исчезают календарь - ЭлементActiveX6 и кнопка - ЗадатьДату Поябляется группа переключателей - Группа30 При снятии флажка все возвращается на круги своя.