OpenRecordset Метод Проблема слишком мало параметров

Question

Это, казалось бы, простая задача мне теперь остановился как вкопанный в течение трех дней.

Мой код:

Dim rs As DAO.Recordset 

Set rs = CurrentDb.OpenRecordset("qryAutoOrder", dbOpenDynaset) 

qryAutoOrder является запрос на выборку, который работает просто отлично само по себе и не имеет параметров (если критериев подсчета построитель запросов).

Когда код работает он висит на set rs = линии и выдает эту ошибку.

Ошибка времени выполнения '3061': Слишком мало параметров. Ожидаемый 1.

Существует больше кода, в котором я хотел бы, чтобы он запускал цикл для каждой записи в результатах запроса, чтобы я мог добавлять данные в другие существующие таблицы баз данных, но в настоящее время они закомментированы.

Answer 1

OpenRecordset не разрешает ссылку вида ([Forms]![completeRepair]![txtRepairID]) в запросе. В этой ситуации он интерпретируется как параметр, для которого вы не указали значение.

Так дайте ему значение параметра с помощью Eval(prm.Name) ...

Dim rs As DAO.Recordset 
Dim db As DAO.database 
Dim prm As DAO.Parameter 
Dim qdf As DAO.QueryDef 

'Set rs = CurrentDb.OpenRecordset("qryAutoOrder", dbOpenDynaset) 
Set db = CurrentDb 
Set qdf = db.QueryDefs("qryAutoOrder") 
For Each prm In qdf.Parameters 
    prm.value = Eval(prm.Name) 
Next 
Set rs = qdf.OpenRecordset(dbOpenDynaset) 

Вы на самом деле не нужен For цикла там; это именно то, как я устанавливал их по привычке. Но вы могли бы просто дать ему единственное значение параметра ...

qdf.Parameters(0).Value = [Forms]![completeRepair]![txtRepairID]