Access - Abrir bd desde dentro de otra

   
Vista:

Abrir bd desde dentro de otra

Publicado por Paco (127 intervenciones) el 26/12/2011 13:04:49
Hola a todos, Feliz Navidad....

Verán, tengo que abrir una base de datos desde dentro de otra con un botón de comando, pero no lo consigo.

El código que he puesto en el botón de comando es el siguiente:

Private Sub Comando62_Click()
On Error GoTo Err_Comando62_Click

Dim stAppName As String

stAppName = Shell("C:\Archivos de programa\Microsoft Office\OFFICE11\msaccess.exe")
stAppName = Shell("C:\Documents and Settings\Paco\Escritorio\Gestiontaller\MANDOS.mdb")
Call Shell(stAppName, 1)

Exit_Comando62_Click:
Exit Sub

Err_Comando62_Click:
MsgBox Err.Description
Resume Exit_Comando62_Click

End Sub

He hecho varias convinaciones del mismo y no me funciona.
Solo con la primera linea, si me abre Access, pero no consigo que me abra la base de mandos.
Por favor si alguien, me puede decir que código he de poner se lo agradecería..

Saludos....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

Abrir bd desde dentro de otra

Publicado por Neckkito (1104 intervenciones) el 28/12/2011 12:04:09
Hola!

Prueba con este código:

...
Private Sub Comando62_Click()
On Error GoTo Err_Comando62_Click

Dim stAppName As String

stAppName = "C:\Documents and Settings\Paco\Escritorio\Gestiontaller\MANDOS.mdb"
Application.FollowHyperlink stAppName

Exit_Comando62_Click:
Exit Sub

Err_Comando62_Click:
MsgBox Err.Description
Resume Exit_Comando62_Click

End Sub
...

Un saludo,

Neckkito (... http://neckkito.eu5.org ...)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Abrir bd desde dentro de otra

Publicado por LEO37 (1 intervención) el 15/05/2016 00:37:43
Prueba con este sencillo ejemplo:

1
2
3
Private Sub Comando62_Click()
Application.FollowHyperlink "Aquí pones la ruta de la base de datos a abrir con su extensión"
End Sub

y listo

Atte,

LEO37
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar