|
29 Кб. |
|
| Люди помогите, непонимаю, что не так?
ЗАБЫЛ напрочь 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
=> нехочет получать верное значение из поля со списком, либо получает его не в том формате. ПОМОГИТЕ, плиз!!! | |
|
| |
|
|
|
|
SUMTEXT.Value = DLookup("[Сумма]", "[Запрос 9 - Стоимость билетов]", "[Код сеанса]= " & Forms![БИЛЕТЫ].LISTBOX1.Column(0).Value )
|
В кавычки забираем только текстовые значения | |
|
| |