OpenRecordSet in a function with Query Parameters - ms-access

Question

I am trying to create a function that returns the number of rows (records) in a query. This function will be used in an MS Access macro. Essentially: if numrecords([QUERY NAME]) > 0, then do something. The following query works great if [QUERY NAME] doesn't have any parameters.
Function numrecords(sRs As String) As Long
Dim dbDb As Database
Dim rsRs As Recordset
Set rsRs = dbDb.OpenRecordset(sRs, dbOpenSnapshot)
numrecords = rsRs.RecordCount
I now have a form that allows users to set a date to subset the outcoming data; thus I am introducing parameters to the mix. Enough googling tells me I need to use QueryDefs. The following code 'should' work as it has the green check mark of approval for similar questions on Stack Overflow but I keep getting the Error 3219 ' Invalid Operation'. The error occurs at:
Set rsRs = qdf.OpenRecordset(dbOpenSnapshot)
Function numrecords(sRs As String) As Long
Dim dbDb As Database
Dim rsRs As Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Set dbDb = CurrentDb
Set qdf = dbDb.QueryDefs(sRs)
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next
Set rsRs = qdf.OpenRecordset(dbOpenSnapshot) ' ERROR OCCURS HERE!
numrecords = rsRs.RecordCount
Lastly, I am trying to run this function on a query, let's call it query 2 that is built off another query (query 1) that takes in a parameter from a form. The SQL of query 1 is:
PARAMETERS [Forms]![Frm_EIM_Submisions]![Last_Data_Entry_Date] DATETIME;
SELECT SampleID.Matrix
, ​SampleID.Location
, SampleID.SampleID
, SampleID.DateSampled AS [DATE Sampled]
, LU_Analytes.CASnum
, LU_Analytes.[Analyte code]
, LU_Analytes.Analyte
, LU_Units.[Units code]
, LU_Units.Units
, LU_Methods.[Method code]
, LU_Methods.Method
FROM Location
INNER JOIN (SampleID
INNER JOIN (LU_Units
INNER JOIN (LU_Methods
INNER JOIN (LU_Analytes
INNER JOIN Data ON LU_Analytes.[Analyte code] = Data.[Analyte code]) ON LU_Methods.[Method code] = Data.[Method code]) ON LU_Units.[Units code] = Data.[Units code]) ON SampleID.SampleID = Data.[Sample ID]) ON Location.Location = SampleID.Location
WHERE ((SampleID.DateSampled)>[Forms]![Frm_EIM_Submisions]![Last_Data_Entry_Date])```
Any input would be much appreciated.

Answer 1

First, find out what value you feed:
For Each prm In qdf.Parameters
Debug.Print prm.Name, Eval(prm.Name)
' prm.Value = Eval(prm.Name)
Next
Next, try to feed that value manually:
For Each prm In qdf.Parameters
' Set realistic date value (mm/dd/yyyy):
prm.Value = #04/01/2021#
Next
That should give you a hint what to correct.