ник: exsid
Люди помогите, непонимаю, что не так?
ЗАБЫЛ напрочь Access. Есть задача создать форму продажи билетов в кино.
На форме находяться: три поля со списком(фильм, зал, время сеанса), и поле данных - EDIT(стоимость) (, или как они его назвали - ab), которое должно заполняться автоматически.
Пишу VBA код на событие "AfterUpdate", компанента <Поле со списком> - ListBox1(код сеанса, время), содержащим сведения из Запроса (Запрос 9 - Стоимость билетов) о времени сеансов кинофильмов:
Private Sub LISTBOX1_AfterUpdate()
SUMTEXT.SetFocus
SUMTEXT.Value = DLookup("[Сумма]", "[Запрос 9 - Стоимость билетов]", "[Код сеанса]= '" & Forms![БИЛЕТЫ].LISTBOX1.Column(0).Value & "'")
End Sub
И он ругается! Говорит Ошибка: 424, Object Requared!
Такой код работает:
Private Sub LISTBOX1_AfterUpdate()
SUMTEXT.SetFocus
SUMTEXT.Value = DLookup("[Сумма]", "[Запрос 9 - Стоимость билетов]", "[Код сеанса]= 1")
End Sub
=> нехочет получать верное значение из поля со списком, либо получает его не в том формате. ПОМОГИТЕ, плиз!!!