Two few parameters. Expected 2

[H. Martins]

Hi everyone,

I have the following Query called qryTurmaDisciplinaAulaRenumerar

SELECT tblTurmaDisciplinaAula.lintTurmaDisciplinaAulaKMaster,
tblTurmaDisciplinaAula.lintTurmaVaziaBKSlave,
tblTurmaDisciplinaAula.lintDisciplinaKSlave,
tblTurmaDisciplinaAula.lintNAulaAuto,
tblTurmaDisciplinaAula.dateDataAula
FROM tblTurmaDisciplinaAula
WHERE (((tblTurmaDisciplinaAula.lintTurmaVaziaBKSlave)=[Forms].
[frmTurmaDisciplinaAula].[cmbbxTurma]) AND
((tblTurmaDisciplinaAula.lintDisciplinaKSlave)=[Forms].
[frmTurmaDisciplinaAula].[cmbbxDisciplina]))
ORDER BY tblTurmaDisciplinaAula.dateDataAula;

This Query is called by:

Set TDA = DBEngine(0)
(0).OpenRecordset("qryTurmaDisciplinaAulaRenumerar")

The compiler protests saying "Two few parameters. Expected 2"

The two parameters I suppose the compiler is protested for are
retrieved within the query from two ComboBoxes existing in the form
where OpenRecordset is established.

If I click qryTurmaDisciplinaAulaRenumerar the records shown
corresponds to what is expected.

Any help will be appreciated,
Thanks
Henry

 

[Marshall Barton]

I have the following Query called qryTurmaDisciplinaAulaRenumerar

SELECT tblTurmaDisciplinaAula.lintTurmaDisciplinaAulaKMaster,
tblTurmaDisciplinaAula.lintTurmaVaziaBKSlave,
tblTurmaDisciplinaAula.lintDisciplinaKSlave,
tblTurmaDisciplinaAula.lintNAulaAuto,
tblTurmaDisciplinaAula.dateDataAula
FROM tblTurmaDisciplinaAula
WHERE (((tblTurmaDisciplinaAula.lintTurmaVaziaBKSlave)=[Forms].
[frmTurmaDisciplinaAula].[cmbbxTurma]) AND
((tblTurmaDisciplinaAula.lintDisciplinaKSlave)=[Forms].
[frmTurmaDisciplinaAula].[cmbbxDisciplina]))
ORDER BY tblTurmaDisciplinaAula.dateDataAula;

This Query is called by:

Set TDA = DBEngine(0)
(0).OpenRecordset("qryTurmaDisciplinaAulaRenumerar")

The compiler protests saying "Two few parameters. Expected 2"

The two parameters I suppose the compiler is protested for are
retrieved within the query from two ComboBoxes existing in the form
where OpenRecordset is established.

If I click qryTurmaDisciplinaAulaRenumerar the records shown
corresponds to what is expected.

When you open a recordset, you are not using the part of
Access that automatically resolves query parameters. You
need to take care of that in your code. For that kind of
parameter, you can use this kind of approach:

Dim db As Database
Dim qdf As QueryDef
Dim prm As Parameter

Set db = CurrentDb()
Set qdf = db.QueryDefs!qryTurmaDisciplinaAulaRenumerar
For Each prm In qdf
prm.Value = Eval(prm.Name)
Next prm

Set TDA = qdf.OpenRecordset(dbOpenDynaset)