Re: [MS_AccessPros] Access listing tool

 

Steve,

A quick method for pulling all of the SQL is to create a small user-defined function in a module name "modQueryStuff":

Public Function GetSQLFromQuery(strQueryName As String) As String

    Dim db As DAO.Database

    Dim qd As DAO.QueryDef

    Set db = CurrentDb

    Set qd = db.QueryDefs(strQueryName)

    GetSQLFromQuery = qd.SQL

    Set qd = Nothing

    Set db = Nothing

End Function

Then create a query with SQL of:

SELECT msysobjects.Name, msysobjects.Type, GetSQLFromQuery([Name]) AS [SQL]
FROM msysobjects
WHERE (((msysobjects.Type)=5));

You can copy the results into Excel or Word or make a table in Access.

This won't get you a nice structured tablelike result but might suffice.

Regards,

Duane

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Steve thaw5 thaw5@suddenlink.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, April 1, 2019 7:22 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Access listing tool

 

Is there a way within Access 2016 to list the queries and each query's
underlying tables/queries? Or perhaps an external tool or add-on?

Thanks, Steve


------------------------------------
Posted by: Steve thaw5 <thaw5@suddenlink.net>
------------------------------------


------------------------------------

Yahoo Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/MS_Access_Professionals/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/MS_Access_Professionals/join
    (Yahoo! ID required)

<*> To change settings via email:
    MS_Access_Professionals-digest@yahoogroups.com
    MS_Access_Professionals-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    MS_Access_Professionals-unsubscribe@yahoogroups.com

<*> Your use of Yahoo Groups is subject to:
    https://info.yahoo.com/legal/us/yahoo/utos/terms/

__._,_.___

---

Posted by: Duane Hookom <duanehookom@hotmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (2)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___