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

  • Thread starter Thread starter Know39
  • Start date Start date
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.
 
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.
 
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.
Click to expand...

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
 
Back
Top