Populating a string with SQL from an existing query 1

[phishman00]

Does anyone know how to store an existing querydef into a string in VBA? I am constantly referencing existing queries but change the queries themselves fairly frequently. I do this today by cutting and pasting the SQL from the query itself but would like to know how to do something similar to:

set strSQL = querydef ("SomeExistingQuery&quot

in a module.

Obviously the code above doesn't work (otherwise I wouldn't be posting now eh?).

Any suggestions? I frequently change queries and hardcoding the SQL to the string is not dynamic enough to support my needs.

 

[bboffin]

Try:

strSQL = CurrentDb.QueryDefs("SomeExistingQuery&quot.SQL

 

[phishman00]

Worked like a charm. All I needed was the .sql at the end of the querydef. Thanks!