ник: Lukas
Не смотрел предмет спора, но "проблема" Дяди Федора решается очень просто и без таймера.
Вот один из вариантов, например:
Private Sub Form_Open(Cancel As Integer)
Me.ПолеСоСписком0.AfterUpdate = "=funEnabledBtn()"
Me.ПолеСоСписком6.AfterUpdate = "=funEnabledBtn()"
End Sub
Public Function funEnabledBtn()
Me.Поле0 = Me.ПолеСоСписком0
Me.Поле2 = Me.ПолеСоСписком6
Кнопка.Enabled = Len(Nz(Поле0)) And Len(Nz(Поле2))
End Function
|
При этом поле0 и Поле2 не имеют источника данных.
Кнопка работает так как ей и положено.
ps. Правда так и не понял, зачем перегонять данные из полей со списками в текстовые поля, но, наверное, так надо было.
Пошел гляну предмет спора.
