Run-time error 3061. Too Few Parameters. Expected 2.

K

Know39

The following is SQL code from a function that works fine in our
current database. After changing the data source to a new database
suddenly it throws the 3061 error.

The error occurs whether the Original line or the Test line was used.
I checked all spellings and are correct. The [Member Medical] is a
query.

Function getPlnCovDesc(EID As String)
Dim mEmplClassCode As String
Dim mBenPlan As String

Dim rst As DAO.Recordset
Dim mSQL As String


'ORIGINAL LINE:
mSQL = "Select * from [Member Medical] where EMPL_ID = '" & EID & "'"

'TEST LINE:
'mSQL = "Select EMPL_CLASS_CD, BEN_PLAN_CD from [Member Medical] where
EMPL_ID='096553'"

Set rst = db.OpenRecordset(mSQL) <-- 3061 Error. Too Few
Parameters. Expected 2.
 
D

Douglas J Steele

Are you positive those two fields exist in the table exactly as typed in
your SQL?

"Know39" wrote in message

The following is SQL code from a function that works fine in our
current database. After changing the data source to a new database
suddenly it throws the 3061 error.

The error occurs whether the Original line or the Test line was used.
I checked all spellings and are correct. The [Member Medical] is a
query.

Function getPlnCovDesc(EID As String)
Dim mEmplClassCode As String
Dim mBenPlan As String

Dim rst As DAO.Recordset
Dim mSQL As String


'ORIGINAL LINE:
mSQL = "Select * from [Member Medical] where EMPL_ID = '" & EID & "'"

'TEST LINE:
'mSQL = "Select EMPL_CLASS_CD, BEN_PLAN_CD from [Member Medical] where
EMPL_ID='096553'"

Set rst = db.OpenRecordset(mSQL) <-- 3061 Error. Too Few
Parameters. Expected 2.
 
P

Phil

Are you positive those two fields exist in the table exactly as typed in
your SQL?

"Know39" wrote in message

The following is SQL code from a function that works fine in our
current database. After changing the data source to a new database
suddenly it throws the 3061 error.

The error occurs whether the Original line or the Test line was used.
I checked all spellings and are correct. The [Member Medical] is a
query.

Function getPlnCovDesc(EID As String)
Dim mEmplClassCode As String
Dim mBenPlan As String

Dim rst As DAO.Recordset
Dim mSQL As String


'ORIGINAL LINE:
mSQL = "Select * from [Member Medical] where EMPL_ID = '" & EID & "'"

'TEST LINE:
'mSQL = "Select EMPL_CLASS_CD, BEN_PLAN_CD from [Member Medical] where
EMPL_ID='096553'"

Set rst = db.OpenRecordset(mSQL) <-- 3061 Error. Too Few
Parameters. Expected 2.

Is EID numeric or text? Assuning it is numeric (ID's usually are), you don't
need the quotes mSQL = "Select * from [Member Medical] where EMPL_ID = " &
EID & ";"

Incidently, you will get more replies from a newsgroup like
comp.databases.ms_access

Phil
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top