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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Как получить значение из <Поля со списком> содержащего 2 столбца
 
 автор: exsid   (13.05.2011 в 16:01)   личное сообщение
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

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

  Ответить  
 
 автор: osmor   (13.05.2011 в 16:16)   личное сообщение
 
 

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

  Ответить  
 
 автор: snipe   (13.05.2011 в 16:31)   личное сообщение
 
 

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

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