Form control SQL syntax in recordset 1

[Gfunk13]

The following code is giving me error 3061 (Too few parameters. Expected 1.)

Dim dbs As Database, rst As DAO.Recordset
Set dbs = CurrentDb
Set cld = Me!Classified

Set rst = dbs.OpenRecordset("SELECT [classdate],
Sum(quantity) AS Expr1
FROM Classification " _
WHERE ClassDate = Forms!prod_main!text21
GROUP BY ClassDate;

cld.Value = rst("Expr1")
---
If I replace the form control in the WHERE clause with "date()", it returns the sum for today (as expected). I can't find the syntax for the form control. I've tried putting pound signs around it and a number of other variations, but no luck.

 

[TheAceMan1]

How are ya Gfunk13 . . .

. . . and this:

[blue]   Dim dbs As Database, rst As DAO.Recordset, SQL As String
   
   Set dbs = CurrentDb
   cld = Me!Classified
   SQL = "SELECT [classdate], Sum(quantity) As Expr1 " & _
         "FROM Classification " & _
         "WHERE [ClassDate] = #" & Forms!prod_main!text21 & "# " & _
         "GROUP BY ClassDate;"
   Set rst = dbs.OpenRecordset(SQL, dbOpenDynaset)
   
   cld = rst!Expr1
   
   Set rst = Nothing
   Set dbs = Nothing[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[Gfunk13]

Thanks Aceman! Worked great.