Calling a MSAccess macro

[Besoup]

Is there a way that I can call a MSAcess macro in a closed database from VB 6.0? Thanks for any help.

[RhinoBull]

Just use Excel's Run method:

Dim excl As Excel.Application
Dim wrbk As Workbook
 
    Set excl = New Excel.Application
    excl.DisplayAlerts = False
    Set wrbk = excl.Workbooks.Open("myfile", , True, , "mypassword")
    excl.Run "MacroName", "arg1", "arg2" ...

[Besoup]

Just use Excel's Run method:

Dim excl As Excel.Application
Dim wrbk As Workbook
 
    Set excl = New Excel.Application
    excl.DisplayAlerts = False
    Set wrbk = excl.Workbooks.Open("myfile", , True, , "mypassword")
    excl.Run "MacroName", "arg1", "arg2" ...

Thanks, but I am trying to run a macro inside of a MSAccess database that runs a series of queries within that database. Or even call a module inside that DB.... any help is appreciated.

[westconn1]

substitute access for excell it is the same principal

effectively you open an access object then can access all the properties and methods within including the macro

rgds pete

[RhinoBull]

Thanks, but I am trying to run a macro inside of a MSAccess database that runs a series of queries within that database. Or even call a module inside that DB.... any help is appreciated.

Oops, sorry about that ... here we go:

Public Sub RunAccessMacro(strDB As String, strMacro As String)
'================================================================
'for late binding declare it As Object and use CreateObject() function
Dim AccessDB As Access.Application
 
    Set AccessDB = New Access.Application
    With AccessDB
        .OpenCurrentDatabase strDB
        .DoCmd.RunMacro strMacro, 1
        '.Visible = True    'you decide
        .CloseCurrentDatabase
    End With
    Set AccessDB = Nothing
 
End Sub

[Besoup]

Oops, sorry about that ... here we go:

Public Sub RunAccessMacro(strDB As String, strMacro As String)
'================================================================
'for late binding declare it As Object and use CreateObject() function
Dim AccessDB As Access.Application
 
    Set AccessDB = New Access.Application
    With AccessDB
        .OpenCurrentDatabase strDB
        .DoCmd.RunMacro strMacro, 1
        '.Visible = True    'you decide
        .CloseCurrentDatabase
    End With
    Set AccessDB = Nothing
 
End Sub

Thanks, tried this but keep getting "User-defined type not defined". Besides that the rest looks like exactly what I am looking for with the visibity false ofcourse.

[dglienna]

You must add a reference to the Microsoft Access xx.x Object Library

[RhinoBull]

Thanks, tried this but keep getting "User-defined type not defined". Besides that the rest looks like exactly what I am looking for with the visibity false ofcourse.

You should've had simply follow my instructions:

'for late binding declare it As Object and use CreateObject() function

Dim AccessDB As Object
 
    Set AccessDB = CreateObject(Access.Application)
    'rest is the same

[dglienna]

But either way, the reference must still be there.

[RhinoBull]

No, not at all. But MS Access must be installed.

[RobDog888]

For early binding a reference must be added to your project. For late binding no
references are required. Either way, the target system must have the
required dependency files installed.

[RhinoBull]

Yea, that's what I said ..

[dglienna]

I have Access installed, and it doesn't work for late binding. Says that Access is not defined.

Public Sub RunAccessMacro(strDB As String, strMacro As String)
'================================================================
'for late binding declare it As Object and use CreateObject() function
Dim AccessDB As Object
 Set AccessDB = CreateObject(Access.Application)
 
    With AccessDB
        .OpenCurrentDatabase strDB
        .DoCmd.RunMacro strMacro, 1
        '.Visible = True    'you decide
        .CloseCurrentDatabase
    End With
    Set AccessDB = Nothing
 
End Sub

Compiler Error: Variable Not Defined.

[RhinoBull]

Just put Access.Application in quotes:

Set AccessDB = CreateObject("Access.Application")

[RobDog888]

That should do it, just like RB said. "ClassName.ServerName" as string.
Edit: I think there is an echo here?

[dglienna]

That did it!

[RhinoBull]

... I think there is an echo here?

LOL ...