VBA SQL query

[Gregorys05]

Hi All
I have the below code, when i run it in an access query, it works but when run in VBA i get the following error:

Run Time Error 3061
Too Few Paramaters Expected 1

Any Ideas??

Private Sub Replace_Click()
Dim DB As Database
Set DB = CurrentDb()
Dim QDF As QueryDef
Dim SQL As String
Set QDF = DB.CreateQueryDef("", "DELETE tblreplace.*, tblreplace.ReplacePath " & _
"FROM tblreplace WHERE (((tblreplace.ReplacePath)= Forms!Replace!NewImageaddress));")
QDF.Execute
End Sub

 

[Montez659]

Gregory,

I had a similar problem a few weeks back and it was addressed here in this thread. Take a look.

http://www.mrexcel.com/forum/showthread.php?t=543331

 

[SydneyGeek]

Another possibility is that you could have to evealuate the parameters first. Depends on the query; often it's not necessary but see how you go...

Private Sub Replace_Click()
  Dim DB As DAO.Database
  Dim QDF As DAO.QueryDef
  Dim PRM As DAO.Parameter
  Dim SQL As String
  Set DB = CurrentDb()
  Set QDF = DB.CreateQueryDef("", "DELETE tblreplace.*, tblreplace.ReplacePath " & _
    "FROM tblreplace WHERE (((tblreplace.ReplacePath)= Forms!Replace!NewImageaddress));")
  For Each PRM In QDF.Parameters
    PRM.Value = Eval(PRM.Name)
  Next PRM
  QDF.Execute
End Sub

Note: You should always be explicit about whether you are using DAO or ADO recordsets. I have included the DAO qualification.

Denis

 

[Gregorys05]

Thanks Sydney that worked a treat