ACC2000: Using Eval Function with Parameters in Parameter Queries

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Create the following new query based on the Orders table:

      Query: QryEval
      ----------------------------------------
      Type: Select Query
   
      Field: OrderID
         Table: Orders
      Field: OrderDate
         Table: Orders
         Criteria: =Eval("Forms!FrmEval!Text0")
   					

3. Save the QryEval query and close it.
4. Create the following new form not based on any table or query in Design view:

      
      Form: FrmEval
      -----------------------------
      Caption: Eval Form
   
      Text box:
         Name: Text0
      Command button:
         Name: Command0
         Caption: Run Query
         OnClick: [Event Procedure]
   					

5. Set the OnClick property of the command button to the following event procedure.

   Private Sub Command0_Click()
      Dim MyDB As Database
      Dim MySet As RecordSet
      Set MyDB = CurrentDb()
      Set MySet = MyDB.OpenRecordSet("QryEval")
      MySet.MoveFirst
      MsgBox MySet!OrderID
      MySet.Close
   End Sub
   					

6. Save the FrmEval form, and then open it in Form view.
7. Type 8/4/94 in the text box, and then click the Run Query button. Note that a message box appears that displays an Order ID number.

1. Open the QryEval query in Design view.
2. Change the OrderDate criteria to [Forms]![FrmEval]![Text0].
3. Save the query and close it.
4. Open the FrmEval form in Form view.
5. Type 8/4/94 in the text box, and then click the Run Query button.
   
   Note that you receive the following error message:
   Run-time error 3061:
   Too few parameters. Expected 1.