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
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-