Calling a Query

[SAXMAN99]

Hello, I have tried to call a query so i can dynamically change the filtering on it. but i do not know how to call a query. i have tried the Query!queryname, much like one might call a form. form!frmname. but that hasnt worked, does anyone know how?
thanks in advance
Saxman99

 

[markgrizzle]

Hi Saxman:

You can programmatically change the query with the following

Dim qdf As DAO.QueryDef
dim sql as string

Set qdf = CurrentDb.QueryDefs(QueryDefName)
sql = qdf.sql 'preserving original
qdf.sql = "Select..." 'updating query

qdf.close
set qdf = nothing

Bear in mind,, this will change the query's content's permanently. If you need to restore the original query, then make sure you copy the original sql into a string.

Mark