Sección de códigos , trucos y ejemplos para visual basic

283 - Ejecutar una macro de Access desde visual basic

Ejemplo que utiliza la referencia a Microsoft Access Object Library desde visual basic, para poder ejecutar una macro definida en una base datos.

En el código de ejemplo hay una subrutina a la cual se le debe pasar la ruta del archivo de base de datos y en el segundo parámetro el nombre de la Macro a ejecutar.

Para arrancar la macro, se ejecuta el método RunMacro.

Nota: En este ejemplo, primero se abre el Access, es decir la base de datos, luego se ejecuta la macro y por último se cierra la aplicación Access abierta con el método CloseCurrentDatabase, por eso si se desea dejar la aplicación abierta, no ejecutar dicho método.

Colocar

La referencia de Access desde el menú referencias de visual basic
Un CommandButton

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Name : Ejemplo para ejecutar una macro dentro de un archivo Access '* Referencias : Microsoft Access xx Object Library '*************************************************************************** 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:\bd1.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

Recursos Vb 6.0 - Enlaces relacionados

Ejecutar macro de Excel desde visual basic

Buscar en Recursos vb