[AccessD] Reporting Question

Thank You Michael,
  However it's not quite what I need. I need to also pass the report the
data, as the "reporting mdb" needs to be un-secured, yet the BE data is
secured. This creates problem linking to the BE...

 What I have come up with so far allows me to reference the "Report.mdb" and
open up the report inside of the host mdb but I can't seem to figure out how
to pass the data to the report....


 Any help, leads, or idea would be great!!


Thanks
Robert Gracie
www.servicexp.com



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Michael R
Mattys
Sent: Thursday, January 15, 2004 7:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Reporting Question


----- Original Message -----
From: "Robert Gracie" <Subscriptions at servicexp.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 15, 2004 7:08 PM
Subject: RE: [AccessD] Reporting Question


>
>   So is my idea all "Wet", is it not possible, is it too difficult, is it
> just plain dumb.....?
>
>
> Robert Gracie
> www.servicexp.com


Robert,

Opening a report "remotely" is definately possible
and if you want it, then it's not dumb.

In fact, I know several people from this list who
do it all the time. It's simply a matter of populating
the table that the remote report is based on.


Sub DisplayReport()
    Dim appAccess As Application
    Const strConPathToSamples = "C:\Program Files\Microsoft
Office\Office\Samples\Northwind.mdb"
    Dim strDB As String
    ' Initialize string to database path.
    strDB = strConPathToSamples
    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application.8")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    '>Delete * From Table and populate as you see fit
    ' Open Report.
    appAccess.DoCmd.OpenReport "Alphabetical List of Products",
acViewPreview
    appAccess.Visible = True
    Set appAccess = Nothing
End Sub


Michael R. Mattys
Try MattysMapLib for MapPoint at
www.mattysconsulting.com

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com