Solved Run-time error '3061'. Too few parameters. Expected 1 (1 Viewer)

[PatAccess]

Hello Guys,
Why am I getting error 3061 with this code? I checked all fields name to ensure they match my query and they do. What is the problem?

    Dim strSQL As String
    
    strSQL = "SELECT [SupplyCateg], [Brand],[ItemNo],[Color], [Size], [LastOrdered] FROM QryEmailReminderList WHERE [LastOrdered] BETWEEN DATEADD(DAY,-30,DATE()) AND DATE() "
    
    Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

 

[plog]

Too few parameters means you are not passing enough data to a function. Your query uses 3 functions:

DateAdd(https://www.techonthenet.com/access/functions/date/dateadd.php)
Day(https://www.techonthenet.com/access/functions/date/day.php)
Date(https://www.techonthenet.com/access/functions/date/date.php)

One of those expects 1 parameter. However, I'm pretty sure you didn't mean to use it in the first place.

 

[Isaac]

usually that means there is a typo in your query sql..like a field that doesn't exist, you've misspelled, etc
at least in my experience it often means that and has nothing to do with parameters.

 

[Gasman]

I' m with plog.
Your Day should be "d". ?????

DateAdd Function - Microsoft Support

support.microsoft.com

 

[Isaac]

Yes, after considering, I believe plog & gasman are correct - in your particular case, it's about the date function.

(Although that error can crop up in much more vague and parameter-less situations, i.e. this code will cause the exact same error FWIW)

Sub Foo()
Dim db As DAO.Database, td As DAO.TableDef, rs As DAO.Recordset

Set db = CurrentDb
Set td = db.CreateTableDef("tblTest")
td.Fields.Append td.CreateField("column1", dbText)
db.TableDefs.Append td

Set rs = db.OpenRecordset("select NonExistentColumn from tblTest")

End Sub

 

[PatAccess]

Thank you Guys, all of your inputs help. I was off base of most. Here is the working statement

strSQL = "SELECT [SupplyCateg], [Brand],[ItemNo],[Color], [Size], [LastOrdered] FROM QryEmailReminderList WHERE [LastOrdered] >= DATE() - 30 "

BUT I have a question. What SQL language does Access uses exactly? I was told T-SQL. Is that correct?

 

[Minty]

It's a flavour of SQL similar but not the same as T-SQL.

Most of the common functions are "standard" but once you get into string manipulations, wildcards, and date functions there are differences.

 

[PatAccess]

OK! Thank you.

 

[Isaac]

You could say Access SQL is "special". But not "special" in a real positive way, like t-sql is