Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Присвоить текстовому полю значение из запроса на основании полученного значения из "Поля со списком" (access 2003)
 
 автор: exsid   (13.05.2011 в 16:03)   личное сообщение
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

=> нехочет получать верное значение из поля со списком, либо получает его не в том формате. ПОМОГИТЕ, плиз!!!

  Ответить  
 
 автор: АлексейЕ   (13.05.2011 в 16:13)   личное сообщение
 
 

SUMTEXT.Value = DLookup("[Сумма]", "[Запрос 9 - Стоимость билетов]", "[Код сеанса]= " & Forms![БИЛЕТЫ].LISTBOX1.Column(0).Value )

В кавычки забираем только текстовые значения

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList