Sub RunAccessMacro()

Dim appAcc As Access.Application

'Opens Access or gets reference to app already running

Set appAcc = New Access.Application

'Optional to show or hide Access
appAcc.Visible = True

appAcc.OpenAccessProject
"P:\Analytic\Heather\Individual\IndividualTurnoverReport.mdb"

appAcc.DoCmd.RunMacro "Macro1: Get Data"
appAcc.DoCmd.RunMacro "Macro2: Create Report"

'Close Access
appAcc.Quit

'This will close Access, even w/o the 'Quit' command
Set appAcc = Nothing

End Sub

See comment inline.


"Blondie" <(E-Mail Removed)> wrote in message
news:76B89C82-4D90-42F0-B8A8-(E-Mail Removed)...
> Sub RunAccessMacro()
>
> Dim appAcc As Access.Application
>
> 'Opens Access or gets reference to app already running
>
> Set appAcc = New Access.Application
>
> 'Optional to show or hide Access
> appAcc.Visible = True
>
> appAcc.OpenAccessProject
> "P:\Analytic\Heather\Individual\IndividualTurnoverReport.mdb"


Application.OpenAccessProject() is used for opening Access project file
(*.adp), not *.mdb.

You should use

appAcc.OpenCurrentDatabase
"P:\Analytic\Heather\Individual\IndividualTurnoverReport.mdb"


>
> appAcc.DoCmd.RunMacro "Macro1: Get Data"
> appAcc.DoCmd.RunMacro "Macro2: Create Report"
>
> 'Close Access
> appAcc.Quit
>
> 'This will close Access, even w/o the 'Quit' command
> Set appAcc = Nothing
>
> End Sub