Yeah, like this:
Dim db As DAO.Database, qd As DAO.QueryDef
Set db = CurrentDb
For Each qd in db.Querydefs
If Left(qd.Name, 1) <> "~" Then
Debug.Print qd.Name, qd.SQL
End If
Next qd
John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
(Paris, France)
On Mar 2, 2017, at 10:15 AM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of luvmymelody@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, March 1, 2017 4:46 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] SQL Statements documentation
Sent: Wednesday, March 1, 2017 4:46 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] SQL Statements documentation
__._,_.___
Posted by: John Viescas <johnv@msn.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
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.
.
__,_._,___
Tidak ada komentar:
Posting Komentar