Error With SQL in VBA

[jdgreen]

I am continually getting an error with some pretty basic code. The error is "error 3061 too few parameters expected 1" which normally means there's a problem with the SQL. The code is below:

Private Sub Command11_Click()
On Error GoTo Err_Handler

Dim strReport As String
Dim strMailTo As String
Dim strFileName As String
Dim strBrand As String
Dim strSQL As String
Dim rs As DAO.Recordset
Dim db As DAO.Database

strBrand = Me.Combo2

strReport = "rptEMailCatalog"
strFileName = "U:\" & strBrand & " New Releases.pdf"

''DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName

strSQL = "SELECT qryEMailTo.Email FROM qryEMailTo;"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)




Exit_Handler:
Exit Sub

Err_Handler:
If Err.Number <> 2501 Then
MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdPreview_Click"
End If
Resume Exit_Handler
End Sub

Any help would be greatly appreciated.


John Green

 

[PHV]

What is the SQL code of qryEMailTo ?

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

 

[jdgreen]

It runs fine

SELECT CustData.Email
FROM CustBrandsFlat INNER JOIN CustData ON CustBrandsFlat.CustID = CustData.[customercode]
WHERE (((CustBrandsFlat.Brand)=[Forms]![frmEmailing]![Combo2]))
GROUP BY CustData.Email
HAVING (((CustData.Email)<>IsNull()));


John Green

 

[PHV]

Here is the expected parameter:
[Forms]![frmEmailing]![Combo2]

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

 

[PHV]

Replace this:
strSQL = "SELECT qryEMailTo.Email FROM qryEMailTo;"
Set db = CurrentDb
With this:

Dim qdf As QueryDef, prm As DAO.Parameter
strSQL = "qryEMailTo"
Set db = CurrentDb
Set qdf = db.QueryDefs(strSQL)
For Each prm In qdf.Parameters
    prm.Value = Eval(prm.Name)
Next

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