Access
Tengo un programa en Access, el cual intento abrir un archivo en Word, el cual lleva el nombre del cliente que seleccione en Access, encontré la opción del SHELL, la cual no he podido o no he sabido como usarla.
Quisiera saber si hay alguien que me pueda ayudar.
Saludos y gracias.
Quisiera saber si hay alguien que me pueda ayudar.
Saludos y gracias.
1 respuesta
Respuesta
1
Prueba esta rutina desde un módulo:
==========
Sub prueba()
Dim path, path_base As String
Dim rst As Recordset
Dim salida As Variant
' Se abre un recordset para obtener el nombre del documento,
'que está en un campo de una tabla
Set rst = CurrentDb.OpenRecordset("Select Campo1 from tabla1 where campo1 like 'pepe*'")
'definimos el path de arranque de word
path_base = "C:\Archivos de programa\microsoft office\office\winWORD.exe"
'concatenamos el path de arranque de word con el nombre del fichero
' OJO! el path ponlo en notación corta (8.3)
path = path_base & "C:\Misdoc~1\" & rst.Fields(0).Value
'arrancamos el shell con la cadena completa, maximizando word
salida = Shell(path, vbMaximizedFocus)
End Sub
===========
Si necesitas alguna aclaración sobre el código, no lo dudes.
==========
Sub prueba()
Dim path, path_base As String
Dim rst As Recordset
Dim salida As Variant
' Se abre un recordset para obtener el nombre del documento,
'que está en un campo de una tabla
Set rst = CurrentDb.OpenRecordset("Select Campo1 from tabla1 where campo1 like 'pepe*'")
'definimos el path de arranque de word
path_base = "C:\Archivos de programa\microsoft office\office\winWORD.exe"
'concatenamos el path de arranque de word con el nombre del fichero
' OJO! el path ponlo en notación corta (8.3)
path = path_base & "C:\Misdoc~1\" & rst.Fields(0).Value
'arrancamos el shell con la cadena completa, maximizando word
salida = Shell(path, vbMaximizedFocus)
End Sub
===========
Si necesitas alguna aclaración sobre el código, no lo dudes.