How to set parameter on query when using DoCmd.OpenQuery

[ncsthbell]

Using MS Access 2007. I built a form that has a combo box of lists of 'actions' (cmboActions). This form also has a button to click that I want to run a query and display the results in datasheet view.
I am trying to pass the value from the cmboActions box to the query via the following method:

  Dim qdf As QueryDef
  Dim rst As Recordset
 
  Set qdf = CurrentDb.QueryDefs(qry_ActionTaken_parm)
  qdf.Parameters(0) = cmboActions.value
  Set rst = qdf.OpenRecordset
 
  DoCmd.OpenQuery "qry_ActionTaken_parm"  rst.Close
  qdf.Close
  Set rst = Nothing
  Set qdf = Nothing

I am not sure how to set the parm up on the query. In the column on the query for "ActionTaken", how do I define the parameter (I currently have: [Forms]![frm_Action]![cmboActions]? I am assuming that 'qdf.Parameters(0)' relates to the first parameter found defined on the query. When I run the code I am getting the following error:
Set qdf = CurrentDb.QueryDefs(qry_AssetActionTaken_parm)"Variable not defined" on the query name

OR.... is there a better way to accomplish what I am trying to do? Trying to avoid having to build a separate query for each different value of 'ActionTaken' Any help would be appreciated.

[NeoPa]

I struggled with this concept manfully for many weeks, until I realised they really didn't support passing parameters to the query when opened from the interface (which is essentially the same as using DoCmd.OpenQuery()). Maybe there's a good reason for that, but it always seemed an omission of something obviously beneficial to me.

Another question recently had the same problem (though they weren't looking to use parameters). What you can do most easily (There are a number of ways around this. Some more clumsy than others, but in different ways) is to reference the form's ComboBox control directly from within your query :

...
WHERE [YourField] = Forms("YourForm").cmboActions

[TheSmileyCoder]

Have you tried using quotes around the query name? They seem to be missing in the code you have posted.