ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Access Macro in a Module (https://www.excelbanter.com/excel-programming/435169-access-macro-module.html)

MarkS

Access Macro in a Module
 
Hi,

I want to run a access macro which is in a module for Excel. I have tried
aAccess.DoCmd.RunMacro "GetNewAFMAGreen" which gives me a error - Microsoft
Access can't find the macro 'GetNewAFMAGreen.'@
What do I do now to run it

Thanks MarkS



Dave Peterson

Access Macro in a Module
 
This is VBA for Access that's stored in a module in an excel workbook?

I'd be very surprised that you could even get the code to compile in excel...

I don't speak the Access, but couldn't you keep the code there and run it from
Excel?



MarkS wrote:

Hi,

I want to run a access macro which is in a module for Excel. I have tried
aAccess.DoCmd.RunMacro "GetNewAFMAGreen" which gives me a error - Microsoft
Access can't find the macro 'GetNewAFMAGreen.'@
What do I do now to run it

Thanks MarkS


--

Dave Peterson

MarkS

Access Macro in a Module
 
Found out a bit more I am in Excel trying to run the access Procedure I use
this code
' Set up
Set aAccess = New Access.Application
aAccess.Visible = True
' Open the database
aAccess.OpenCurrentDatabase ("S:\STAR\risk\Quantitative Risk\Forward
Curve\AFMA Green\AFMA_Green.mdb")
' Run the Procedure
aAccess.DoCmd.OpenModule "Load AFMA Data", "GetNewAFMAGreen"
' aAccess.DoCmd.RunMacro "GetNewAFMAGreen"
' Clean up and shut down
aAccess.Quit
Set aAccess = Nothing

unfortunately it still has the same problem

Thanks MarkS

Patrick Molloy[_2_]

Access Macro in a Module
 
can you convert the macro into a query? (ie a SQL statement)

"MarkS" wrote:

Found out a bit more I am in Excel trying to run the access Procedure I use
this code
' Set up
Set aAccess = New Access.Application
aAccess.Visible = True
' Open the database
aAccess.OpenCurrentDatabase ("S:\STAR\risk\Quantitative Risk\Forward
Curve\AFMA Green\AFMA_Green.mdb")
' Run the Procedure
aAccess.DoCmd.OpenModule "Load AFMA Data", "GetNewAFMAGreen"
' aAccess.DoCmd.RunMacro "GetNewAFMAGreen"
' Clean up and shut down
aAccess.Quit
Set aAccess = Nothing

unfortunately it still has the same problem

Thanks MarkS


Patrick Molloy[_2_]

Access Macro in a Module
 
when you say it doesn't work, you must be getting some messages back?

This code - in an EXCEL Standard Module - opens an Access database and
executes a procdure in the Access Database's standard module.

in my example the sub "AddAColumn" is in Module1 of the Access Database's
code module's


Sub contoAccess()
Dim aAccess As Object 'Access.Application
Set aAccess = CreateObject("Access.application")
aAccess.Visible = True ' not required' Open the database
aAccess.OpenCurrentDatabase ("E:\Excel\Excel_Demos\Risk.mdb")
aAccess.Run "AddAColumn"
' Clean up and shut down
aAccess.Quit
Set aAccess = Nothing
End Sub



"MarkS" wrote:

Found out a bit more I am in Excel trying to run the access Procedure I use
this code
' Set up
Set aAccess = New Access.Application
aAccess.Visible = True
' Open the database
aAccess.OpenCurrentDatabase ("S:\STAR\risk\Quantitative Risk\Forward
Curve\AFMA Green\AFMA_Green.mdb")
' Run the Procedure
aAccess.DoCmd.OpenModule "Load AFMA Data", "GetNewAFMAGreen"
' aAccess.DoCmd.RunMacro "GetNewAFMAGreen"
' Clean up and shut down
aAccess.Quit
Set aAccess = Nothing

unfortunately it still has the same problem

Thanks MarkS


joel[_37_]

Access Macro in a Module
 

Excel won't look for names in another workbook unless you tell it where
it is located. what si tthe error you are getting and at which lin eof
code.


aAccess.DoCmd.OpenModule "AFMA_Green.mdb!Load AFMA Data", _
"GetNewAFMAGreen"


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=145834



All times are GMT +1. The time now is 12:33 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com