Pass parameter to a VBA Module

[testing2Three]

I have this code converted from a macro:

Option Compare DatabaseOption Explicit


'------------------------------------------------------------
' Run_Risk_Assessment_Report1
'
'------------------------------------------------------------
Function Run_Risk_Assessment_Report1()
On Error GoTo Run_Risk_Assessment_Report1_Err


DoCmd.SetWarnings False
' Clear out the Master Report Table
DoCmd.OpenQuery "Clear out the Master Report Table", acViewNormal, acEdit
' Run the query to make / update the Main Report Table
DoCmd.OpenQuery "A) Rpt Qry - Select Data Master", acViewNormal, acEdit
' update the grand totals
DoCmd.OpenQuery "Update Grand Total", acViewNormal, acEdit


' update the percentages in the Main Report Table
DoCmd.OpenQuery "Update Percentages in Report Master Report Table", acViewNormal, acEdit
' Runs the report
DoCmd.OpenReport "Risk Assessment Summary", acViewNormal, "", "", acNormal




Run_Risk_Assessment_Report1_Exit:
Exit Function


Run_Risk_Assessment_Report1_Err:
MsgBox Error$
Resume Run_Risk_Assessment_Report1_Exit


End Function

I need to pass parameter "SAFP" and dates "10/31/2014" to this query "A) Rpt Qry - Select Data Master"

So I added this code after "DoCmd.OpenQuery "Clear out the Master Report Table", acViewNormal, acEdit" and commented out this line "'DoCmd.OpenQuery "A) Rpt Qry - Select Data Master", acViewNormal, acEdit" so that my query will take the parameters SAFP and 10/31/2014:

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


Set dbs = CurrentDb
'from below original code
Set qdf = dbs.QueryDefs("A) Rpt Qry - Select Data Master")
'qdf.Execute

MsgBox ("database 2")

qdf.Parameters("[Enter Portfolio Name:]").Value = "SAFP"
MsgBox ("it worked")
qdf.Parameters("[Enter as of date:]").Value = "#10/31/2014#"
MsgBox ("before execute")
qdf.Execute

When I try to execute, I get this error message:
"Data Type mismatch in expression"

Looks like qdf statements are not working with the rest of the code. Any help will be appreciated.

[pbaldy]

So you're passing parameters to the query, not the function? I don't think you want quotes around the date:

qdf.Parameters("[Enter as of date:]").Value = #10/31/2014#

[testing2Three]

The qdf function doesn't work if I remove the quotes

[pbaldy]

Can you post the db here? I've never used hard coded parameters like that; I get user input from forms.

[NTC]

put "SAFP" and dates "10/31/2014" in text boxes in an open form; ultimately these controls can be not visible if you prefer

then call these values in the normal query design

it is much easier to trouble shoot rather than attempt to stuff them in via code as you are attempting....