Anónimo
Abrir un archivo .MDB desde un control de VB6
Hola, quiero abrir mi base de datos con un control como por ejemplo un botón de comando, pero quiero que se abra desde el programa de Microsoft Office Access 2007 para poder ver la base de datos completa
En otra pregunta encontré algo como esto:
Call Shell("C:\Archivos de programa\Microsoft Office\Office\WINWORD.exe c:\archivo.doc", vbMaximizedFocus)
Esto me funciona correctamente para abrir un archivo de Word, pero lamentablemente no me funciona para Access 2007, me gustaría saber si existe alguna otra forma de intentarlo
De antemano Gracias
En otra pregunta encontré algo como esto:
Call Shell("C:\Archivos de programa\Microsoft Office\Office\WINWORD.exe c:\archivo.doc", vbMaximizedFocus)
Esto me funciona correctamente para abrir un archivo de Word, pero lamentablemente no me funciona para Access 2007, me gustaría saber si existe alguna otra forma de intentarlo
De antemano Gracias
1 respuesta
Respuesta de Eduardo Saligari
1
Aquí te dejo una solución:
Coloca en la cabecera del formulario la siguiente declaración.
Private 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
Luego agrega (o utiliza el tuyo) un commandbutton, y el siguiente código
Private Sub Command1_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "c:\base_datos.mdb", "", "", 1)
End Sub
Suponiendo que "base_datos.mdb" sea la base de datos y este en el raíz del "C"
Si tienes dudas me lo haces saber.
Coloca en la cabecera del formulario la siguiente declaración.
Private 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
Luego agrega (o utiliza el tuyo) un commandbutton, y el siguiente código
Private Sub Command1_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "c:\base_datos.mdb", "", "", 1)
End Sub
Suponiendo que "base_datos.mdb" sea la base de datos y este en el raíz del "C"
Si tienes dudas me lo haces saber.
Magnifico, era justo lo que necesitaba, al final puse la opción de abrir la base de datos desde el menú del programa y funcionó perfecto
Gracias Eduardo
Saludos
Gracias Eduardo
Saludos