Runtime Error 3061: Too Few Parameters expected 1

[Richard Hollenbeck]

I thought I was very specific in this SQL request. There is a form open
with a selected record (and a corresponding "lngRecipeI D" on that form. The
table also has a field called "lngRecipeI D". But I keep getting this error:
Runtime Error 3061: Too Few Parameters expected 1. What should I be looking
for to fix this?

Here's my code so far:

Private Sub cmdAddIngredien tToRecipe_Click ()
Dim dbGetRecipeID As DAO.Database
Dim rsGetRecipeID As DAO.Recordset
Dim StrSQL As String

Set dbGetRecipeID = CurrentDb()

StrSQL = "SELECT tblRecipes.lngR ecipeID FROM tblRecipes WHERE
tblRecipes.lngR ecipeID = frmRecipes.lngR ecipeID;"

Set rsGetRecipeID = dbGetRecipeID.O penRecordset(St rSQL, dbOpenDynaset)
MsgBox rsGetRecipeID 'just to test the query before going any further

End Sub
Thanks.

[Richard Hollenbeck]

Update: I forgot the single and double quotes thing.

New problem: Now I'm getting run time error 3464, data type mismatch in
criteria expression.

Here's what it says now:

Private Sub cmdAddIngredien tToRecipe_Click ()
Dim recipeID As Long
Dim dbGetRecipeID As DAO.Database
Dim rsGetRecipeID As DAO.Recordset
Dim StrSQL As String
Set dbGetRecipeID = CurrentDb()
StrSQL = "SELECT tblRecipes.lngR ecipeID FROM tblRecipes WHERE
tblRecipes.lngR ecipeID = '" & Forms!frmrecipe s.lngRecipeID & "'"
Set rsGetRecipeID = dbGetRecipeID.O penRecordset(St rSQL, dbOpenDynaset)
recipeID = rsGetRecipeID.F ields(0)
MsgBox recipeID ' just to test what I have so far before continuing
End Sub

[Wayne Gillespie]

On Wed, 28 Jun 2006 22:19:10 GMT, "Richard Hollenbeck"
<ri************ ****@verizon.ne t> wrote:

I thought I was very specific in this SQL request. There is a form open
with a selected record (and a corresponding "lngRecipeI D" on that form. The
table also has a field called "lngRecipeI D". But I keep getting this error:
Runtime Error 3061: Too Few Parameters expected 1. What should I be looking
for to fix this?

Here's my code so far:

Private Sub cmdAddIngredien tToRecipe_Click ()
Dim dbGetRecipeID As DAO.Database
Dim rsGetRecipeID As DAO.Recordset
Dim StrSQL As String

Set dbGetRecipeID = CurrentDb()

StrSQL = "SELECT tblRecipes.lngR ecipeID FROM tblRecipes WHERE
tblRecipes.lngR ecipeID = frmRecipes.lngR ecipeID;"

Set rsGetRecipeID = dbGetRecipeID.O penRecordset(St rSQL, dbOpenDynaset)
MsgBox rsGetRecipeID 'just to test the query before going any further

End Sub
Thanks.

Concatenate the value of frmRecipes.lngR ecipeID rather than referencing it
directly -

StrSQL = "SELECT tblRecipes.lngR ecipeID FROM tblRecipes WHERE
tblRecipes.lngR ecipeID = " & frmRecipes.lngR ecipeID & ";"
Wayne Gillespie
Gosford NSW Australia

[Wayne Gillespie]

On Wed, 28 Jun 2006 22:39:47 GMT, "Richard Hollenbeck"
<ri************ ****@verizon.ne t> wrote:

Update: I forgot the single and double quotes thing.

New problem: Now I'm getting run time error 3464, data type mismatch in
criteria expression.

Here's what it says now:

Private Sub cmdAddIngredien tToRecipe_Click ()
Dim recipeID As Long
Dim dbGetRecipeID As DAO.Database
Dim rsGetRecipeID As DAO.Recordset
Dim StrSQL As String
Set dbGetRecipeID = CurrentDb()
StrSQL = "SELECT tblRecipes.lngR ecipeID FROM tblRecipes WHERE
tblRecipes.lng RecipeID = '" & Forms!frmrecipe s.lngRecipeID & "'"
Set rsGetRecipeID = dbGetRecipeID.O penRecordset(St rSQL, dbOpenDynaset)
recipeID = rsGetRecipeID.F ields(0)
MsgBox recipeID ' just to test what I have so far before continuing
End Sub

The quotes are only required if lngRecipeID is a string, assuming it is a long
(by your naming convention), you do not need the quotes. See my other post.
Wayne Gillespie
Gosford NSW Australia

[Richard Hollenbeck]

"Wayne Gillespie" <be*****@NOhotm ailSPAM.com.au> wrote in message
news:hj******** *************** *********@4ax.c om...
....

The quotes are only required if lngRecipeID is a string, assuming it is a
long
(by your naming convention), you do not need the quotes. See my other
post.

Wayne Gillespie
Gosford NSW Australia

Yeah that did it. Funny that when you step away from VBA for a few months
you can forget a lot. It's like I'm learning it all over again from
scratch. I suspect that within a few days it will all start to come back to
me.

Oh, and yes it is a long; since the Ingredients table has this field as an
AutoNumber which is a long I should keep all secondary keys as long too.

Thank you!

Rich Hollenbeck
Moreno Valley, California USA