Como poner Access visible desde macro VB
Buen día a todos.
Tengo un formulario en VB donde mando a abrir una base de datos de access con el siguiente código:
Private Sub bolSEC_Click()
'Pues tienes que marcar en las referencias del proyecto una a
'Microsoft Word 9.0 Object Library(9.0 si es word 2000, 10.0 si es word 2002)
'y en excel lo mismo, marca la Microsoft Excel Object Library
Dim AccessPath As String
Dim DbPath As String
AccessPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"
DbPath = "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb"
Shell AccessPath & " " & DbPath
End Sub
Si la abre y todo va muy bien, solo que también quiero que la muestre, que este visible o mejor dicho que sea la aplicación activa, ya que con el código que tengo solo la abre pero no esta activa, esta minimizada o detrás de las otras ventanas.
Espero me puedan ayudar.
Gracias
Tengo un formulario en VB donde mando a abrir una base de datos de access con el siguiente código:
Private Sub bolSEC_Click()
'Pues tienes que marcar en las referencias del proyecto una a
'Microsoft Word 9.0 Object Library(9.0 si es word 2000, 10.0 si es word 2002)
'y en excel lo mismo, marca la Microsoft Excel Object Library
Dim AccessPath As String
Dim DbPath As String
AccessPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"
DbPath = "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb"
Shell AccessPath & " " & DbPath
End Sub
Si la abre y todo va muy bien, solo que también quiero que la muestre, que este visible o mejor dicho que sea la aplicación activa, ya que con el código que tengo solo la abre pero no esta activa, esta minimizada o detrás de las otras ventanas.
Espero me puedan ayudar.
Gracias
1 respuesta
Respuesta de pitcher_
1
Prueba con esto :
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
Private Sub Command1_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb", "", "", 1)
End Sub
Espero que te ayude y cualquier cosa no dudes en consultar.
Pitcher!
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
Private Sub Command1_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb", "", "", 1)
End Sub
Espero que te ayude y cualquier cosa no dudes en consultar.
Pitcher!
Primero que nada, muchas gracias por tu atención.
Ahora me quedo una duda
Si lo coloco así me marca error:
Private Sub bolSEC_Click()
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
Private Sub Command1_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb", "", "", 1)
End Sub
¿O qué es lo que pongo en alias?
Gracias
Ahora me quedo una duda
Si lo coloco así me marca error:
Private Sub bolSEC_Click()
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
Private Sub Command1_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb", "", "", 1)
End Sub
¿O qué es lo que pongo en alias?
Gracias
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
'***Esto tiene que antes que todo en el codigo y luego el codigo de tu formulario
'*** en tu codigo seria asi
Private Sub bolSEC_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb", "", "", 1)
End Sub
Copialo tal cual y revisalo.
Cualquier cosa no dudes en consultar.
Pitcher!
"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
'***Esto tiene que antes que todo en el codigo y luego el codigo de tu formulario
'*** en tu codigo seria asi
Private Sub bolSEC_Click()
Dim Resul As Long
Resul = ShellExecute(Me.hwnd, "Open", "H:\QES8\Adrian\Bol\2009-2010\BOLETA_SEC.mdb", "", "", 1)
End Sub
Copialo tal cual y revisalo.
Cualquier cosa no dudes en consultar.
Pitcher!
Nuevamente gracias por tu atención.
AL colocar el código tal y como me dijiste:
Me marca error en esta parte (este código esta en general)
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
AL correrlo me marca el siguiente error:
Error de compilación:
Los comentarios solo pueden aparecer despues de End Sub, ...................
Gracias
AL colocar el código tal y como me dijiste:
Me marca error en esta parte (este código esta en general)
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
AL correrlo me marca el siguiente error:
Error de compilación:
Los comentarios solo pueden aparecer despues de End Sub, ...................
Gracias
Baja esto es el código escrito en el VB, revisa si te corre.
http://hotfile.com/dl/49813726/410725b/AbrirAcces.rar.html
Si tienes algún Problema, no dudes en preguntar.
Pitcher!
http://hotfile.com/dl/49813726/410725b/AbrirAcces.rar.html
Si tienes algún Problema, no dudes en preguntar.
Pitcher!
