Too few parameters Expected 1, recordset issue

by

A parameter like [Forms]![SurveyRegister_frm]![SurveyID] doesn’t get evaluated automatically if you open a recordset in VBA.

Use this function:

Public Sub Eval_Params(QD As DAO.QueryDef)

On Error GoTo Eval_Params_Err

    Dim par As DAO.Parameter

    For Each par In QD.Parameters
        ' This is the key line: Eval "evaluates" the form field and gets the value
        par.Value = Eval(par.Name)
    Next par

Eval_Params_Exit:
    On Error Resume Next
    Exit Sub

Eval_Params_Err:
    MsgBox Err.Description, vbExclamation, "Runtime-Error " & Err.Number & " in Eval_Params"
    Resume Eval_Params_Exit

End Sub

with a QueryDef object like this:

Dim QD As QueryDef
Dim RS As Recordset

Set QD = DB.QueryDefs("UnitRec_Qry")
Call EVal_Params(QD)
Set RS = QD.OpenRecordset(dbOpenDynaset)

Alternatively, you can run it with SQL in the VBA code by moving the parameter outside of the SQL string:

Set rs = CurrentDb.OpenRecordset("SELECT UnitRecommend_tbl.URecID, UnitRecommend_tbl.Spara," _
& " UnitRecommend_tbl.Rec, UnitRecommend_tbl.SvyID" _
& " FROM UnitRecommend_tbl" _
& " WHERE ((UnitRecommend_tbl.SvyID) = " & [Forms]![SurveyRegister_frm]![SurveyID] & ")" & _
& " ORDER BY UnitRecommend_tbl.Spara;", dbOpenDynaset)

More Related Contents:

  1. ms access vba code for update records through form
  2. How to add default signature in Outlook
  3. Combine rows / concatenate rows
  4. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  5. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  6. Show “Open File” Dialog
  7. How do I display a messagebox with unicode characters in VBA?
  8. Determining whether an object is a member of a collection in VBA
  9. Distinction between using .text and .value in VBA Access
  10. MS Access VBA Error: Run time error ’70’ Permission Denied
  11. Automatically generating handling of issues
  12. Is it better to use ADO or DAO in Access 2007?
  13. VBA – Folder Picker – set where to start [duplicate]
  14. MS Access: how to compact current database in VBA
  15. How to loop through all controls in a form, including controls in a subform – Access 2007
  16. FileDialog doesn’t work
  17. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  18. Determine real cause of ODBC failure (error 3146) with ms-access?
  19. Is there an equivalent to Thread.Sleep() in VBA
  20. Exporting MS Access Forms and Class / Modules Recursively to text files?
  21. How to get logged-in user’s name in Access vba? [duplicate]
  22. Pass a parameter into an access report programmatically
  23. finding latest file in a folder and opening it (vba access)
  24. Insert multiple records with a date range in MS Access
  25. MS Access VBA: Sending an email through Outlook [closed]
  26. SendKeys is messing with my NumLock key via VBA code in Access form
  27. Runtime error 287. Sending Emails through Outlook using VBA in Access
  28. How do I get values from a hidden worksheet using VBA [closed]
  29. How to use Events with Option Button Controls on Userform [duplicate]
  30. VBA: Else without If Error

Leave a Comment