MS Example DAO Query not working??? 1

[bjdobs]

I have a stored query that references a Form variable:

select Count(*) as Foo
From sometable
where (((sometable.somefield) = [Forms]![SomeForm].[SomeObject]);

The MS Access knowledgebase is suggesting that I use this code to access a Query ... but I get an error saying there are too few parameters being passed ... Run-time Error 3061
Expecting 1

Dim dbo As DAO.Database
Dim rsc As DAO.Recordset

Set dbo = CurrentDb
Set rsc = dbpenRecordset("SomeQuery")

I presume this has to do with the Forms!SomeForm.SomeObject?

the DAO.QueryDef has a parameters option but I can't seem to get the syntax right

Can someone please push me in the right direction.

 

[PHV]

You may try something like this:
Dim dbo As DAO.Database
Dim rsc As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Set dbo = CurrentDb
Set qdf = dbo.QueryDefs("SomeQuery")
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm
Set rsc = qdf.OpenRecordset(dbOpenDynaset)

Note: SomeForm must be an opened mainform

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244