Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: scandal
Имеется в БД запрос iABC_Product, в котором следующее:

INSERT INTO abc ( id, total )
SELECT product_id AS id, Sum(price*(Nz(amount,0)-Nz(return,0))) AS total
FROM invoice_sub INNER JOIN invoice_sub_sub ON invoice_sub.id=invoice_sub_sub.invoice_sub_id
WHERE dt Between dtStart And dtEnd
GROUP BY product_id;

На основе Ваших советов написал следующий код в VBA:

        sSQL = "iABC_Product"
        Set qdf = CurrentDb.CreateQueryDef("", sSQL)
        With qdf
            .Parameters("dtStart") = SQLDate(dtStart)
            .Parameters("dtEnd") = SQLDate(dtEnd)
            .Execute
        End With

Однако выходит ошибка:
Ошибочная инструкция SQL; Предполагалось DELETE, INSERT, ...
Как быть?


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.