Originally Posted by
jonh
Have a look in MSysQueries.
You can get the ObjectId from MSysObjects.
Thank you for your reply jonh. Your suggestion sent me in the right direction. I ultimately didn't use VBA, but instead solved my need through a query. For reference, I used the SQL code below to list the expressions by query.
SELECT DISTINCT MSysObjects.Name, MSysQueries.Name1, MSysQueries.Expression, IIf([Flags]=0,"Select",IIf([Flags]=16,"Crosstab",IIf([Flags]=32,"Delete",IIf([Flags]=48,"Update",IIf([flags]=64,"Append",IIf([flags]=128,"Union",[Flags])))))) AS TypeFROM MSysObjects INNER JOIN MSysQueries ON MSysObjects.Id = MSysQueries.ObjectId
WHERE (((MSysQueries.Name1) Is Not Null) AND ((MSysQueries.Flag)=0))
ORDER BY MSysQueries.Name1;