| |
|
|
| | Такая вот штуковина: есть запрос на добавление с параметром
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 | |
| |
| |
| |
|
|
| | вы пытаетесь выполнить сохраненный запрос, а не объект querydef
нужно вместо
curentdb.execute......
использовать
qdf.execute | |
| |
| |
| |
|
|
| | Логичное замечание... исправил... но ошибка осталась :-) | |
| |
| |
| |
|
|
| | Ну и болван же я :-) строку
currentdb.execute "qaVal_PC"
исправил на
qdf.execute "qaVal_PC"
не обратив внимания на то что имя сххраненного запроса в этом варианте излишне.
Спасибо osmor. | |
| |
| |
