Слишком мало параметров. (1) Ожидаемый

Question

Я использую VBA для передачи параметра в сохраненный запрос, но продолжаю получать ошибку. Здесь хранится запрос:

PARAMETERS Parm1 Long; 
UPDATE tJ010_SRP4Codes INNER JOIN tZ100_VendorProfiles 
ON tJ010_SRP4Codes.SRP4Code = tZ100_VendorProfiles.JdeSRP4Code 
SET tJ010_SRP4Codes.Vendor = 'TEST' 
WHERE ((([Parm1]=tZ100_VendorProfiles.VendorID))); 

Вот VBA, который вызывает запрос:

Dim Parm1 As Long 
db.QueryDefs(!QueryName).Parameters(Parm1) = intVdrProfileID 
db.Execute !QueryName, dbFailOnError 

Я попытался с и без «Параметры ...» линия в сохраненный запрос. Такая же ошибка в обоих направлениях. Сохраненный запрос работает отлично, но не при вызове из VBA.

Answer 1

Используйте DAO.QueryDef объект, поставить значение параметра, и выполнить QueryDef

Dim qdf As DAO.QueryDef 
Set qdf = db.QueryDefs(!QueryName) 
qdf.Parameters("Parm1").Value = intVdrProfileID 
qdf.Execute dbFailOnError 

Parameters("Parm1") означает параметр с именем parm1. Без котировок там, Parameters(Parm1), Access будет интерпретировать Parm1 быть переменной. Если у вас нет такой переменной, это вызовет ошибку.

Также возможно определить параметр по номеру вместо имени. Нумерация основана на нуле, поэтому Parameters(0) означает первый параметр.

Примечание. Предполагалось, что !QueryName является значением набора записей и является именем сохраненного запроса. И я не знаю, откуда приходит intVdrProfileID, но предположим, что он действителен для значения параметра.