Solved Setting a Recordset to a query Criteria expression issue (1 Viewer)

alvingenius

IT Specialist
Local time
Today, 04:04
Joined
Jul 10, 2016
Messages
168
Hello
I'm trying to build a module with a recordset to a query and it working as screenshot

1642324393798.png


but if i tried to but a criteria into the query, for example getting the date from the form1

1642324455267.png


and opened the form and entered a date for example 16/01/2022, then should only get 1 value in Debug.print then i get an error

1642324501544.png



its not accepting that type of expression in query ! why ?

---
Edit1 :
Solution on this post
Thanks @theDBguy ,@arnelgp
 
Last edited:

arnelgp

..forever waiting... waiting for jellybean!
Local time
Today, 10:04
Joined
May 7, 2009
Messages
16,788
Code:
...
Set db = Currentdb
With db.Querydefs("qry_files")
     .Parameters(0) = Forms!Form1!txtDate
    Set rst = .OpenRecordset(dbOpenDynaset)
End With
Do Until rst.Eof
...
...
 

alvingenius

IT Specialist
Local time
Today, 04:04
Joined
Jul 10, 2016
Messages
168
I was just reading about it in the Microsoft community

DAO operates at the database level, not at the Access application level. It doesn't "know" about Access forms and combo boxes.
So, it doesn't understand "Forms!Form1!txtDate" until we define it

and @arnelgp code working great and I just have a very small edit on it, defining the parameters instead of its index incase of multiple parameters
Code:
.Parameters("[Forms]![Form1]![txtDate]") = [Forms]![Form1]![txtDate]
, and @theDBguy function I think it's the same idea without editing the code, only using,
Code:
...
Set db = CurrentDb
Set rst = fDAOGenericRst("qry_files", dbOpenDynaset)
Do Until rst.EOF
...

Thank you both for the solution
 
Last edited:

Users who are viewing this thread

Top Bottom