Help in Building SQL Statement in VBA

[CBG2112]

I'm trying to retrieve records with an AddDt that are 7 days or older from today. I think that the error lies in the DateAdd part of the statement. I'm not sure how to properly write this. Thanks.

    Set sst = CurrentDb.OpenRecordset("SELECT * " & _
                        "FROM tblTask" & _
                        "WHERE tblTask.AddDt <= #(DateAdd('d',-7,Date()))# ")

 

[spikepl]

Remove the #

 

[CBG2112]

It somewhat worked. Now it's showing an error message. "Run-time error '3061': Too few parameters. Expected 1."

    Dim sst As DAO.Recordset
    Set sst = CurrentDb.OpenRecordset("SELECT * " & _
                        "FROM tblTask " & _
                        "WHERE tblTask.AddDt <=(DateAdd(d,-7,Date())) ")
    sst.Close
    Set sst = Nothing

 

[thechazm]

Try this:

Dim sst As DAO.Recordset
    Set sst = CurrentDb.OpenRecordset("SELECT * " & _
                        "FROM tblTask " & _
                        "WHERE (((tblTask.[AddDt])<=DateAdd(d,-7,Date))) ")
    sst.Close
    Set sst = Nothing

 

[thechazm]

I almost forgot to mention that when you are dealing with error's in a sql statement one of the easiest meathods I have used to detect where I went wrong was doing a debug.print command to show all the contents of the sql string. Then in the immediate window at the bottom copy the sql string it produced and put that into your query builder. It will tell you what is wrong (most of the time).

Eg.

Dim sst As DAO.Recordset
debug.print "SELECT * " & _
                        "FROM tblTask " & _
                        "WHERE tblTask.AddDt <=(DateAdd(d,-7,Date())) "

    Set sst = CurrentDb.OpenRecordset("SELECT * " & _
                        "FROM tblTask " & _
                        "WHERE tblTask.AddDt <=(DateAdd(d,-7,Date())) ")
    sst.Close
    Set sst = Nothing