Send reports from multiple database from one database

[netrusher]

I have four databases and email reports from each one of them utilizing command buttons and code. My question is: Can I be in one database and send reports from another database? I hope that makes sense.

 

[Remou]

You can open another mdb as an application and run reports, but it can get messy, depending on the start up.

Sub DisplayExternalReport()
Dim strDB
Dim appAccess As Access.Application
    ' Initialize string to database path.
    strDB = "C:\Docs\LTD.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    ' Open report.
    'The next code line can easily be changed to
   'appAccess.DoCmd.OpenForm "frmForm"
   'You can even add a Where statement.
    appAccess.DoCmd.OpenReport "rptReport", acViewPreview
    appAccess.Visible = True
    appAccess.UserControl = True
End Sub

http://lessthandot.com