Hi,
Have you looked at using Application.SaveAsText and
Application.LoadFromText ?
Here's an example:
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "path to database1", False
objAccess.SaveAsText acReport, "name of Report",
"c:\MyReports\ReportName.txt"
Dim objAccess1 As Object
Set objAccess1 = CreateObject("Access.Application")
objAccess1.OpenCurrentDatabase "path to database2", False
objAccess1.LoadFromText acReport, "name of Report",
"c:\MyReports\ReportName.txt"
Of course you could create a more complex example whereby you could loop
through the collections AllQueries, AllForms, AllReports, AllMacros,
AllModules, AllDataAccessPages
I hope this helps! If you have additional questions on this topic, please
respond back to this posting.
Regards,
Eric Butts
Microsoft Access Support
"Microsoft Security Announcement: Have you installed the patch for
Microsoft Security Bulletin MS03-026? If not Microsoft strongly advises
you to review the information at the following link regarding Microsoft
Security Bulletin MS03-026
<
http://www.microsoft.com/security/security_bulletins/ms03-026.asp> and/or
to visit Windows Update at <
http://windowsupdate.microsoft.com/> to install
the patch. Running the SCAN program from the Windows Update site will help
to insure you are current with all security patches, not just MS03-026."
--------------------
| Content-Class: urn:content-classes:message
| From: "Sudhakara" <
[email protected]>
| Sender: "Sudhakara" <
[email protected]>
| Subject: Exporting a Report Design (Object) from one database to another
database
| Date: Mon, 2 Feb 2004 21:30:35 -0800
| Lines: 23
| Message-ID: <
[email protected]>
| MIME-Version: 1.0
| Content-Type: text/plain;
| charset="iso-8859-1"
| Content-Transfer-Encoding: 7bit
| X-Newsreader: Microsoft CDO for Windows 2000
| Thread-Index: AcPqFtlGoS4nlyYWSnW/tGtLtFm6iw==
| X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
| Newsgroups: microsoft.public.access.externaldata
| Path: cpmsftngxa07.phx.gbl
| Xref: cpmsftngxa07.phx.gbl microsoft.public.access.externaldata:48528
| NNTP-Posting-Host: tk2msftngxa09.phx.gbl 10.40.1.161
| X-Tomcat-NG: microsoft.public.access.externaldata
|
| Hi,
| I need to Export the design of a Report ie., Report Object
| from one database to another. I am using the
| Application.DoCmd.TransferDatabase method, but not able to
| export a report design object. Can anyone please help me
| on this.
|
| First I will select the source and target database in the
| gui of VB. Now, once the source database is selected, a
| list will be filled with all the reports that exists in
| the database. Now, when I click on the export button
| wherein I have the following code, it is not exporting the
| report design.
|
| objAccess.DoCmd.TransferDatabase acExport, "Microsoft
| Access", Trim(txtTarget), acReport, Trim(cmbSource.Text), _
| "Testing", True
|
|
| Can anyone guide me where I am wrong
|
| Regards
| Sudhakara.T.P.
|