Setting query parameters through VBA

[tomric]

I have a query that looks at two forms. The first form provides a number to pull a group of records out of a table. The second from provides a series of 8 different check boxes that the query ueses to filter the data as required by the person using it. The query works great when looking at the table or a report. Im having problems when I open the query in code to send it to excell for graphing. I don't know how to get the query to look at the parameters and pass the correct data. Right now I can get it to look at one parameter Using a For loop:

 Set dbs = CurrentDb
   Set qdf = dbs.QueryDefs!Noncatalogpartsbybarnumber
   For Each prm In qdf.Parameters
        prm.Value = parameter
    Next prm

The loop will run through 8 times for each parameter, but it only sees the number from the first form. How do I get it to look at the the the check box values, -1 or 0, and set the parameter for the query.

Thank you for any help you can give.

[ADezii]

Try:

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter

Set dbs = CurrentDb
Set qdf = dbs.QueryDefs!Noncatalogpartsbybarnumber

For Each prm In qdf.Parameters
  prm.Value = Eval(prm.Name)
Next prm

P.S. - Both Forms must be 'Open'

[tomric]

Thank you. Both forms are open, but how do I change the parameter name in the evaluation statement, Eval(prm.Name)? All the parameter will have different names

[ADezii]

You don't change the Names, since the Parameters represent the actual Criteria, such as: Forms!Form1!chk Something=True.

[tomric]

Thaank you very much. It's working just fine.

[ADezii]

Glad it all worked out for you.