Kamis, 12 April 2018

Re: [MS_AccessPros] Report Sources

 

you're welcome, Jim ~ happy to help

have an awesome day,
crystal

On 4/11/18 1:37 PM, Jim Wagner luvmymelody@yahoo.com [MS_Access_Professionals] wrote:
Duane and Crystal,

I have been going through all that you sent me and I am sitting here with my colleague and we are jumping for joy inside. It would look silly if we did it at our desks. Thank You So Much for the help. This was going to save us several weeks worth of work.

That is awesome stuff.

Jim Wagner


On ‎Wednesday‎, ‎April‎ ‎11‎, ‎2018‎ ‎01‎:‎23‎:‎21‎ ‎AM, crystal 8 strive4peace2008@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

hi Jim,

you can run the code here to get SQL for queries (Run_Word_CreateDocumention_SQL), and RecordSources for reports(Run_Word_CreateDocumention_Reports). There will be a Microsoft Word document created for each procedure. You then have 2 documents you can search for the field(s) you are looking for.

Document Query SQL, Form and Report RecordSources

http://www.rogersaccesslibrary.com/forum/document-query-sql-form-and-report-recordsources_topic606.html

have an awesome day,
crystal


On 4/10/18 6:58 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:

No easy solution.� I use the database documenter.

Duane



On April 10, 2018, at 6:24 PM, "luvmymelody@yahoo.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:



Hello all,


My boss just asked me to find all reports with a certain field. I was trying to get the source like I do with the SQL queries. like below. But I am unable to change the objects to Reports instead of queries. Is there a quick way of doing this? I tried Crystals Analyzer but it would be easier to run a query to get the sources instead of the other reports.


Thank you

Jim Wagner


SELECT msysObjects.Name, GetSQL([Name]) AS [SQL], Left([SQL],(InStr(1,[SQL]," ")-1)) AS [Query Type], "PeopleSoft Datawarehouse" AS [Database Name]
FROM msysObjects
WHERE (((msysObjects.Name) Not Like '~*') AND ((msysObjects.type)=5));


and the function is like this


Option Compare Database

Public Function GetSQL(strQueryName As String)

��� GetSQL = CurrentDb.QueryDefs(strQueryName).SQL

End Function








__._,_.___

Posted by: crystal 8 <strive4peace2008@yahoo.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)

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