Parameter passing to a query in a modual

[fliper]

Hello,
I was wondering how do you open a recordset on a query if this query needs a criteria??? I want to open it in a moduel that is. And i need to pass a parrameter. But how???

Thanks
Fliper

 

[bat17]

Here is a snippet of code from one of my modules which should point you in the right direction.

Private Sub ColourParetoGraph()
Dim dbs As Database
Dim qdf As QueryDef
Dim prm As Parameter
Dim rstGraphData As Recordset

    ' Return reference to current database.
    Set dbs = CurrentDb
    ' Open dynaset-type Recordset object.
    Set qdf = dbs.QueryDefs("qryGraphReasonsComparisons")
    For Each prm In qdf.Parameters
        prm.Value = Eval(prm.Name)
    Next prm
    
    Set rstGraphData = qdf.OpenRecordset()

................

peter

Edited to add code!