Cerrar base de datos
Hola!. Necesito saber el código necesario para poder cerrar una base de datos access desde otra. Es decir; si tengo tres bases de datos access abiertas, necesito saber como cerrar dos de ellas desde la tercera, sin cerrar ésta.
Gracias por tu ayuda
Gracias por tu ayuda
1 respuesta
Respuesta de hen9
1
'Esto ene un modulo
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOW = 1
'Esto en cualquier boton de comando de un formulario
Dim FrmVentaActiva As Form
Set FrmVentaActiva = Me
ShellExecute FrmVentaActiva.hwnd, "open", "C:\Ruta\DATOS.MDB", "", "", SW_SHOW
DoCmd. Quit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOW = 1
'Esto en cualquier boton de comando de un formulario
Dim FrmVentaActiva As Form
Set FrmVentaActiva = Me
ShellExecute FrmVentaActiva.hwnd, "open", "C:\Ruta\DATOS.MDB", "", "", SW_SHOW
DoCmd. Quit
