powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Где ошибка в запросе ?
6 сообщений из 6, страница 1 из 1
Где ошибка в запросе ?
    #32028104
defocus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите пожалуйста, где ошибка в запросе ?

sql1 = "SELECT Count(*) AS КоличествоКлиентов, Sum(ВремяРолика)/60 AS ВремяРекламы FROM (SELECT ([ДлинаРолика]*[КоличествоПовторов]) AS ВремяРолика FROM ПериодыРоликов INNER JOIN (Ролики INNER JOIN КлиентыВРазмещении ON Ролики.КодРолика = КлиентыВРазмещении.КодРолика) ON (Ролики.КодРолика = ПериодыРоликов.КодРолика) AND (ПериодыРоликов.КодРолика = КлиентыВРазмещении.КодРолика) WHERE (КлиентыВРазмещении.КодМагазина = " & [Forms]![АдреснаяПрограмма]![КодМагазина] & " And [ПериодыРоликов.ДатаНачала] <= #" & Date & "# And [ПериодыРоликов.ДатаКонца] >= #" & Date & "#));"

Set db = CurrentDb
rst1 = db.OpenRecordset(sql1, dbOpenSnapshot)
Ну и т.д.

Акцесс говорит, синтаксическая ошибка в Date.
...
Рейтинг: 0 / 0
Где ошибка в запросе ?
    #32028146
BAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробуйте ... & Format(Date,"mm-dd-yyyy") & ...
...
Рейтинг: 0 / 0
Где ошибка в запросе ?
    #32028149
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
или без решеток Clng(date)-2

<= #" & Date & "# And
<= " & Clng(date)-2 & " And

(с обрезкой времени )
...
Рейтинг: 0 / 0
Где ошибка в запросе ?
    #32028947
Ольга
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кусок из работы 95 года.
Пашет по сей день.
Таблица Periods c полями ID_Period, PeriodBegin, PeriodFinish c каками-то ставками налогов. Проблема YK2 решена "yyyy", американский формат даты берется лучше всего.

Dat1 = Forms![Period]![Begin]

Dat2 = Forms![Period]![Finish]

Dd1 = "#" & Format(Dat1, "mm") + "/" + Format(Dat1, "dd") + "/" + Format(Dat1, "yyyy") & "#"
Dd2 = "#" & Format(Dat2, "mm") + "/" + Format(Dat2, "dd") + "/" + Format(Dat2, "yyyy") & "#"
Kr1 = "[PeriodBegin] <= " & Dd1 & " AND [PeriodFinish] >=" & Dd2
If IsNull(DLookup("[ID_Period]", "Periods", Kr1)) Then
MsgBox "НЕТ СТАВОК"
...
Рейтинг: 0 / 0
Где ошибка в запросе ?
    #32029010
defocus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем !
помогло
& Format(Date,"dd-mm-yyyy") &

Короче - VBA нужно чтобы дата была через черточку !
то бишь типа 24-04-2002
...
Рейтинг: 0 / 0
Где ошибка в запросе ?
    #32029380
Насколько мне известно, VBA нужна не дата через чёрточку, а чтобы дата была в американском формате (mm/dd/yy). И поэтому он и может ругаться. А Date возвратит тебе дату согласно настройкам виндов, т.е. в европейском формате dd/mm/yy. С этим и надо бороться.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Где ошибка в запросе ?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]