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

 

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

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

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

ник: lulukyan
Такая вот штуковина: есть запрос на добавление с параметром

PARAMETERS vyymm Text ( 255 );
INSERT INTO aDat_PC ( yymm, Regno, [Key], Cnt )
SELECT PD.Month, PD.Regno, PD.CallerRegno, Count(PD.CallerRegno) AS CountOfCallerRegno
FROM PD
WHERE (((PD.Month)=[vyymm]))
GROUP BY PD.Month, PD.Regno, PD.CallerRegno;


Выпоняюшийся из VBA

        Set qdf = CurrentDb.QueryDefs("qaVal_PC")
        qdf.Parameters("vyymm") = ActiveMonth
        CurrentDb.Execute "qaVal_PC"
        qdf.Close


При попытке выполнения выдает ошибку


Run-time error '3061'
Too few parameters. Expected 1.



В чём тут ошибка?
MS Access2003


Ваше имя:

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

Сообщение:

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

Прикрепить:

 

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