macro de access desde visual basic

[rsiles]

Hola amigos.

Talves puedan ayudarme, alguno de ustedes sabes como mandar a llamar o ejecutar un modulo o macro que esta hecha en access, desde microsoft visual basic 6.0 o 5.0.
Es muy importante para mi.

Gracias de antemano.

[rubencho5413]

utilice este codigo

Option Explicit
Sub Ejecutar_Macro_Access(ByVal path_Bd As String, ByVal La_Macro As String)

On Error GoTo Err_Sub

' Nuevo objeto para acceder a Access
Dim Obj_Access As Access.Application
Set Obj_Access = New Access.Application

' Abre la base de datos indicada
Obj_Access.OpenCurrentDatabase path_Bd

' Ejecuta la macro del archivo Access
Obj_Access.DoCmd.RunMacro La_Macro

DoEvents
' Cierra el Access
Obj_Access.CloseCurrentDatabase


' Elimina la referencia creada
Set Obj_Access = Nothing


Descargar:
On Error GoTo 0
Exit Sub
'Error
Err_Sub:
MsgBox Err.Description, vbCritical
GoTo Descargar

End Sub



Private Sub Command1_Click()

Dim Path As String

Path = "C:baseapli.mdb"

'Indicar el path de la base de datos, y el nombre de la macro a ejecutar
Call Ejecutar_Macro_Access(Path, "Macro1")

End Sub

[JOSEPHCNG]

RESULTA DE Q ESTBA BUSCANDO COMO LLAMAR A UNA MACRO HECHA EN ACCESS O MEJOR DICHO DE UN SISTEMA EN ACCCESS. PERO TENÍA Q LLAMARLA DESDE VBA. Y ESTO NO LO ENCONTRABA POR NINGUNA PARTE, ASÍ Q LES DEJO ESTA
COLABORACION



Dim MacroToRun As String

'NOMBRE DE LA MACRO
MacroToRun = "TCMEDICANO"


'LA LLAMADA A LA MACRO DESDE VBA
DoCmd.RunMacro MacroToRun



'nota esto lo hice con access 2007

[buddyk9]

y como funcionaría para excell???

Sería muy util.

s2