S
sojourn
I have a number of reporting databases - each one contains a unique set of
reports. Each week we have to open each database, click a run all reports
command, then close the database and repeat the steps for the next database.
I am trying to create one control database that can be use to automatically
open each database kick off the macro and then repeat for the next solution.
I am trying to setup the first one using the opencurrentdatabase command but
it is not working. When I run this code it locks up my machine and nothing
happens. If I take out the RunComman macro nothing happens. What am I doing
wrong and can what I am trying to do be done.
Dim appAccess As Access.Application
Sub DisplayForm()
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase "D:\data\reporting tool\Community level
5.mdb"
'Run Macro Exception Report
appAccess.DoCmd.RunMacro "Exception Reports"
End Sub
reports. Each week we have to open each database, click a run all reports
command, then close the database and repeat the steps for the next database.
I am trying to create one control database that can be use to automatically
open each database kick off the macro and then repeat for the next solution.
I am trying to setup the first one using the opencurrentdatabase command but
it is not working. When I run this code it locks up my machine and nothing
happens. If I take out the RunComman macro nothing happens. What am I doing
wrong and can what I am trying to do be done.
Dim appAccess As Access.Application
Sub DisplayForm()
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase "D:\data\reporting tool\Community level
5.mdb"
'Run Macro Exception Report
appAccess.DoCmd.RunMacro "Exception Reports"
End Sub