Filtering a Query inside a Sub

[philbullock1223]

I am trying to implement some simple code that seems to work fine from within a module, but cannot get it to work from within a form sub.

Dim db As DAO.Database
Dim SVUnfiltered As DAO.Recordset
Dim SV As DAO.Recordset

Set db = CurrentDb
Set SVUnfiltered = db.OpenRecordset("SELECT * FROM DAT", dbOpenDynaset)
SVUnfiltered.Filter = "SVUnfiltered![DAT1] = 'SV'"
Set SV = SVUnfiltered.OpenRecordset

DAT is a table within the database. DAT1 is a field within DAT.

All I need to do is filter my SV query. I get the error "too few parameters, expeted 2".... WHY!!!??!!

Any help would be great.

Phil

 

[spikepl]

There is a reason why 90% of experienced programmers prepend rst to recordset names, and use tbl in naming tables. Try to do that, and see if your mistake then becomes more obvious to you.

A hint: when the thing yells for "expected parameters" it is because it does not know the ones you specified.

 

[philbullock1223]

Though I always love a good riddle and appreciate the feedback, you have left me more confused than before!

I don't know what "expected parameters" are... so when "the thing yells for them", I don't know what they are yelling about.

My thinking was that you were hinting at the names of my variables, but I am lost!

This was my last attempt that also did not work:

Dim db As DAO.Database
Dim SVUnfiltered As DAO.Recordset
Dim SVFiltered As DAO.Recordset

Set db = CurrentDb
Set SVUnfiltered = db.OpenRecordset("SELECT * FROM DAT", dbOpenDynaset)
SVUnfiltered.Filter = "SVUnfiltered![DAT1] = NULL"
Set SVFiltered = SVUnfiltered.OpenRecordset

HELP!

 

[philbullock1223]

FYI, just to avoid the hassle of the filter, I have just used a WHERE to do the trick.

Dim db As DAO.Database
Dim SV As DAO.Recordset

Set db = CurrentDb
Set SV = db.OpenRecordset("SELECT * FROM DAT WHERE DAT1='SV'", dbOpenDynaset)