У меня есть форма с несколькими несвязанными (они не являются частью группы параметров) опциями управления.При щелчке одного из них другой (и связанные с ним текстовые поля) отключаются.Все это прекрасно работает с использованием приведенного ниже кода, но я не могу заставить его работать правильно в '' Form_Load () ''.
Вот код, который я использую для подпрограмм AfterUpdate()
:
Private Sub optInclusive_AfterUpdate()
If Me.optInclusive Then
Me.optMonthly.Enabled = False
Me.txtMonthlyRate.Enabled = False
Else
Me.optMonthly.Enabled = True
Me.txtMonthlyRate.Enabled = True
End If
End Sub
Private Sub optMonthly_AfterUpdate()
If Me.optMonthly Then
Me.optInclusive.Enabled = False
Me.txtInclusiveRate.Enabled = False
Me.txtDateFrom.Enabled = False
Me.txtDateTo.Enabled = False
Me.txtTimeFrameRate.Enabled = False
Else
Me.optInclusive.Enabled = True
Me.txtInclusiveRate.Enabled = True
Me.txtDateFrom.Enabled = True
Me.txtDateTo.Enabled = True
Me.txtTimeFrameRate.Enabled = True
End If
End Sub
Я пытался просто поместить этот код в Form_Load()
, но при загрузке формы он отключает ВСЕэлементы управления независимо от загруженной записи.
Вот что происходит, когда форма загружается с определенной формой:
Вот что ДОЛЖНО произойти при загрузке формы: