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....
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
0