Pass in a Parameter into an Openrecordset

[lesmccoy]

Hi

I am using the openrecordet in the Ms Access to open saved queries I have in my database. I am trying to pass a parameter into the openrecordset the query has to use.

For example the query is a list of info for machine for two users and I want to open the saved query and pass in parameter to only show one of the users info.

I am using the following code.

dim dbs as database
 
dim rs_info as recordset
 
set dbs = currentdb()
 
set ts_info = dbs.openrecordset("user_info")

"user_info" is the name of the save query in the database.

I would be great if someone would be able to help

Thanks

[sajuk]

Hi
You can use code below to manipulate your query.

Dim db As Database
Dim qdf As QueryDef
Dim prm As Parameter
Dim rs As Recordset
 
 
Set db = CurrentDb
Set qdf = db.QueryDefs("YOURQUERYNAME")
 
    For Each prm In qdf.Parameters
            prm.Value = Eval(prm.Name)
    Next prm
 
Set rs = qdf.OpenRecordset(dbOpenDynaset)
 
 
 
            rs.MoveFirst
 
        Do Until rs.EOF
 
'Manipulate your query here           
 
            rs.MoveNext
 
                Loop
 
rs.Close