Run Access Macros in Excel

[bobdole22]

I am trying to run this code, I got from another thread on this forum that is closed. I'm sure it's been used a ton of times. It is supposed to link to an Access file and run it's macro.I have 2007, so my db files are ".accdb" if that changes anything. Here is the code:

VB:

Dim strDatabasePath As String Dim appAccess As Access.Application strDatabasePath = "C:\Users\zachk\Desktop\Strats 2011.01.accdb" Set appAccess = New Access.Application With appAccess Application.DisplayAlerts = False .OpenCurrentDatabase strDatabasePath .DoCmd.RunMacro "qry_MakeTrustTable_Adhoc" .Quit End With Set appAccess = Nothing </pre>
I am getting the error
User-defined Type not defined

on line:

Set appAccess = New Access.Application

 

[bobdole22]

Actually, it only does that the second time I run it. The first time it simply reports a Blank MessageBox " ". Doesn't have any info whatsoever. Is it possible I'm getting a warning because we usually runs it with warnings off in Access? Is that possible in Excel.

Also, even stranger is that I have a MsgBox "Finished" at the end of the sub that doesn't get run. This makes me think that the code doesn't go all the way though.

 

[rollis13]

Cross-post:
Run Access Macros in Excel
http://www.vbaexpress.com/forum/showthread.php?47345-Run-Access-Macros-in-Excel