VBA SQL

[mikeba1]

Can anyone help with the following code.
I get runtime error 3061
Too few parameters, expected 5


Thanks



Private Sub Command27_Click()
Dim db As Database
Dim rst As Recordset
Dim sqlstr As String
Dim ren
sqlstr = "SELECT qryacctsinterface1.SLIPrefix," qryacctsinterface1.CurrencYCode,"
sqlstr = sqlstr & " qryacctsinterface1.SLIInvoiceGoodsValueLC," qryacctsinterface1.SLIInvoiceVATValueLC,"
sqlstr = sqlstr & " qryacctsinterface1.GoodsSTG , "qryacctsinterface1.VATstg "
sqlstr = sqlstr & " From qryacctsinterface1 "
sqlstr = sqlstr & " WHERE ((qryacctsinterface1.SLIPrefix)='re');"
MsgBox (sqlstr)
Set db = CurrentDb()
Set rst = db.OpenRecordset(sqlstr, dbOpenDynaset)
With rst
MsgBox (.RecordCount)
If .RecordCount > 0 Then
' records found
.MoveFirst
' loop tru
Do Until .EOF
ren = ren + 1
.MoveNext
Loop
End If
.Close
End With
End Sub

 

[SkipVought]

hi,

You had some extraneous QUOTES...

sqlstr = "SELECT q.SLIPrefix"
sqlstr = sqlstr & ", q.CurrencYCode"
sqlstr = sqlstr & ", q.SLIInvoiceGoodsValueLC"
sqlstr = sqlstr & ", q.SLIInvoiceVATValueLC"
sqlstr = sqlstr & ", q.GoodsSTG "
sqlstr = sqlstr & ", q.VATstg "
sqlstr = sqlstr & " From qryacctsinterface1 q"
sqlstr = sqlstr & " WHERE ((q.SLIPrefix)='re');"

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[mikeba1]

Thanks Skip, but I copied your answer and got the same error ??

 

[SkipVought]

Too few parameters, expected 5

FIVE of YOUR 6 field names are INCORRECT.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[mikeba1]

What I did was create the query, then look at the SQL behind it, so I dont know which fields are wrong

 

[dhookom]

mikeba1,
We're having trouble "look(ing) at the SQL behind it". Do you mind sharing?

Does your query have parameters/criteria?

Duane
Hook'D on Access
MS Access MVP

 

[PHV]

What is the SQL code of qryacctsinterface1 ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886