Pregunta: | 57520 - EJECUTAR MACRO DE ACCESSS 2007CON VISUAL BASIC 6.0 |
Autor: | Jesus Lopez Mercado |
Hola, necesito su ayuda para poder ejecutar una macro contenida en mi base de datos hecha en access 2003, el problema aqui es que cambie a office 2007 y la macro me arrojaba algunas consultas y al rutina me mostraba esas consultas, pero ahora con el office 2007 hace la rutina pero no me muestra las consultas... Aqui mi codigo que funciona para access 2003: 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 Obj_Access.Visible = True ' Elimina la referencia creada Set Obj_Access = Nothing MsgBox ("Macro Ejecutada Exitosamente"), vbInformation, ("Informacion") Descargar: On Error GoTo 0 Exit Sub 'Error Err_Sub: MsgBox Err.Description, vbCritical GoTo Descargar End Sub |