"Runtime error '3061': Too few parameters. Expected 1." on OpenRecordset Statement

[drhansenjr]

This is driving me nuts...



I am trying to design a query within a form's Form_Current event code that returns the record ID and integer value of a field named "intFirstSpouseID" when a new record is selected in a combobox. I have tried a number of variations but each time get the error "Runtime error '3061': Too few parameters. Expected 1." on the OpenRecordset line The table name is "Members2" and the form name is "frmMembers2":

Private Sub Form_Current()


Dim rstSpouse1Query As Recordset
Dim currDB As Database
Dim strSQLFirst As String
 
Set currDB = CurrentDb
strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = Forms.frmMembers2.CurrentRecord.ID"


Set rstSpouse1Query = currDB.OpenRecordset(strSQLFirst)
'etc...

I have also tried the following with the same result. Where am I going wrong?

strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = Forms.frmMembers2.ID"

and

strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = Me.ID"

[Micron]

you can't just include the form reference as literal text when doing this in vba - unless you are altering the sql property of a query, which you are not.
Try

Where Members2.intFirstSpouseID = & Forms.frmMembers2.CurrentRecord.ID

unless the control holds text, in which case maybe

Where Members2.intFirstSpouseID = "'" & Forms.frmMembers2.CurrentRecord.ID & "'"

I have a feeling that you will still have the same error. In that case, I'd declare a variable and make it equal the form control, then substitute the variable for the form reference in your sql statement build. Keep in mind that even with a variable, the correct concatenation is still required.

[wvmitchell]

strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = " & Forms.frmMembers2.ID

[drhansenjr]

This is driving me nuts...

I am trying to design a query within a form's Form_Current event code that returns the record ID and integer value of a field named "intFirstSpouseID" when a new record is selected in a combobox. I have tried a number of variations but each time get the error "Runtime error '3061': Too few parameters. Expected 1." on the OpenRecordset line The table name is "Members2" and the form name is "frmMembers2":

Private Sub Form_Current()


Dim rstSpouse1Query As Recordset
Dim currDB As Database
Dim strSQLFirst As String
 
Set currDB = CurrentDb
strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = Forms.frmMembers2.CurrentRecord.ID"


Set rstSpouse1Query = currDB.OpenRecordset(strSQLFirst)
'etc...

I have also tried the following with the same result. Where am I going wrong?

strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = Forms.frmMembers2.ID"

and

strSQLFirst = "Select Members2.ID, Members2.intFirstSpouseID From Members2 Where Members2.intFirstSpouseID = Me.ID"

A belated "thank you!" This did the trick.