CurrentDb.Execute [Delete Query] -> "Too few parameters. Expected 1."

[Ganymede]

I have a delete query called "Query2". I want to run Query2 without it displaying any of those warning messages (e.g., you are about to delete 1 record, etc.). I udnerstand that the CurrentDB.Execute function will run the query without any of those warnings. But I can't seem to get it to work. When I run this code, I get Run-time error 3061 "Too Few parameters. Expected 1."

CurrentDb.Execute ("Query2"), dbFailOnError

I have searched exhaustively for a solution to no avail. Any assitance would be greatly appreciated.

[Gicu]

This is a very common topic in the Access world, your query probably makes reference to a form control(s) and VBA cannot resolve that. You can try to wrap those (in the Query2 design view) with the Eval() function and see if it works or use the qdf.Execute method of the QueryDef object:

Dim qdf as DAO.QueryDef, db as DAO.database, prm as Parameter

Set db=CurrentDb
Set qdf = CurrentDb.QueryDefs("Query2")

For Each prm In qdf.Parameters
     prm.Value = Eval(prm.Name)
Next prm

qdf.Execute dbFailOnError

Cheers,

[Welshgasman]

I have a delete query called "Query2". I want to run Query2 without it displaying any of those warning messages (e.g., you are about to delete 1 record, etc.). I udnerstand that the CurrentDB.Execute function will run the query without any of those warnings. But I can't seem to get it to work. When I run this code, I get Run-time error 3061 "Too Few parameters. Expected 1."

CurrentDb.Execute ("Query2"), dbFailOnError

I have searched exhaustively for a solution to no avail. Any assitance would be greatly appreciated.

And you cannot show the sql for that query?

[Ganymede]

This is a very common topic in the Access world, your query probably makes reference to a form control(s) and VBA cannot resolve that. You can try to wrap those (in the Query2 design view) with the Eval() function and see if it works or use the qdf.Execute method of the QueryDef object:

Dim qdf as DAO.QueryDef, db as DAO.database, prm as Parameter

Set db=CurrentDb
Set qdf = CurrentDb.QueryDefs("Query2")

For Each prm In qdf.Parameters
     prm.Value = Eval(prm.Name)
Next prm

qdf.Execute dbFailOnError

Cheers,

Thank you! This is helpful!

[Ganymede]

And you cannot show the sql for that query?

Sorry about that. It didn't occur to me that the query code itself could be the problem. But I think Gicu's post sorted that out for me. He was right. The query referenced a form control.