pass paramter for recordset

[ben1988]

hi :)

I have a query with criteria: "year([startdate])=year([forms]![order]![startd])

I want pass it as parameter

without the function of year I would write it like:

 str = Forms![order]![srartd]
 
  qdfMyQuery![Forms!order!startd] = str
 

but how to write it with function?

thanks!!! :)

[ADezii]

You can use the Eval() Function in conjunction with the Parameters Collection of the QueryDef Object:

Dim qry As DAO.QueryDef
Dim prm As DAO.Parameter
 
Set qdf = CurrentDb.QueryDefs("qryTest")
 
For Each prm In qdf.Parameters
  prm.Value = Eval(prm.Name)
Next
 
DoCmd.OpenQuery "qryTest", acViewNormal, acReadOnly

[ben1988]

THANKS
but please can you write it expressly with use of year function? please!!!