OpenRecordset Parameter Query

[matrixindicator]

Hello,

I have a query who needs a value of a Form. Its works perfectly when I open the query. He retrieve the parameter from the Form by this reference.

MONTH: [Forms]![F_01]![txtFile]

However, when the Function create a recordset based on the query to get the total record, vba said that the query has to few parameters. Do I need to open my Form in the code ?

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("001_QS", dbOpenDynaset)
rst.MoveFirst
rst.MoveLast
Count3 = rst.RecordCount
rst.Close

 

[PHV]

You may try this instead:
Count3 = DCount("*", "001_QS")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[matrixindicator]

tks PHV, your proposal works ! (even over 2 mln records)