-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


End of statement в тексте запроса в коде на VBA

Среда, 15 Января 2014 г. 16:04 + в цитатник
Здравтвуйте, подскажите пожалуйста. Делаю обработчик события для ПоляСоСписком на форме:
Private Sub ПолеСоСписком6_Change()
Me.НормаПоВедомости= CurrentProject.Connection.Execute("SELECT ВремяГруппПоПроекту.НормаВремени" _
& "FROM РаспредВедомость INNER JOIN ВремяГруппПоПроекту ON РаспредВедомость.Код = ВремяГруппПоПроекту.Ведомость" _
& "WHERE (((ВремяГруппПоПроекту.Подразделение)=' & Me.ПолеСоСписком0)&"And ((ВремяГруппПоПроекту.Ведомость)=РаспредВедомость.Код) And ((РаспредВедомость.Объект)=" & Me.ПолеСоСписком6 & "))").Fields(0)

End Sub

Т.е. хочу в поле на форме вывести значение запроса, условием для которого является выбранное значение в ПолеСоСписком на той же форме. Сам запрос я проверял - работает. Делал его в конструкторе запросов. Вот текст запроса из конструктора в режиме SQL:
SELECT ВремяГруппПоПроекту.НормаВремени
FROM РаспредВедомость INNER JOIN ВремяГруппПоПроекту ON РаспредВедомость.Код = ВремяГруппПоПроекту.Ведомость
WHERE (((ВремяГруппПоПроекту.Подразделение)=Forms!ПланированиеРабот!ПолеСоСписком0) And ((ВремяГруппПоПроекту.Ведомость)=РаспредВедомость!Код) And ((РаспредВедомость.Объект)=Forms!ПланированиеРабот!ПолеСоСписком6));

В результате отладки вылетает ошибка: Expected: End of statement/ Где чего не хватает?

http://www.sql.ru/forum/1071067/end-of-statement-v-tekste-zaprosa-v-kode-na-vba


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку