Imprimir página | Cerrar ventana

como ejecutar archivos al pulsar un boton

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85963
Fecha de impresión: 26/Marzo/2026 a las 17:41


Tema: como ejecutar archivos al pulsar un boton
Publicado por: ziporroto
Asunto: como ejecutar archivos al pulsar un boton
Fecha de publicación: 21/Abril/2021 a las 23:28
hola a todos
estoy intentado que al hacer doble cclic sobre un elemento se ejecute y se abra
si ejecuto el codigo

   Dim stAppNamefoto As String
   stAppNamefoto = "rundll32.exe c:\windows\system32\shimgvw.dll,ImageView_Fullscreen G:\grafiCOS\21_3_2017.jpg"
    Call Shell(stAppNamefoto, 1)

funcina perfectamente, pero la idea es que la ubicación y el nombre del archivo esta en el campo [caratula].
he provado con el siguiente codigo pero me da error

Dim stAppNamefoto As String
   
 stAppNamefoto = ""rundll32.exe c:\windows\system32\shimgvw.dll,ImageView_Fullscreen" & [caratula] & """
    Call Shell(stAppNamefoto, 1)

alguien me puede ayudar
gracias



Respuestas:
Publicado por: xavi
Fecha de publicación: 22/Abril/2021 a las 00:14
Me parece que te podría faltar un espacio después de Fullscreen.

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: AnSanVal
Fecha de publicación: 22/Abril/2021 a las 22:55
No lo he probado pero (como sintaxis de VBA) interpreto que deberías concatenar el texto entrecomillado más el texto del campo (sin más), en caratula debería ser texto y no ser necesarias las comillas:

stAppNamefoto = "rundll32.exe c:\windows\system32\shimgvw.dll,ImageView_Fullscreen" & [caratula]




-------------
Saludos desde Tenerife.


Publicado por: lbauluz
Fecha de publicación: 23/Abril/2021 a las 12:07

Solo un pequeño cambio a lo de Antonio, cambiar 

...ImageView_Fullscreen" & [caratula]

por

...ImageView_Fullscreen " & [caratula]
con un espacio antes de las comillas, con lo que la línea quedaría así:

stAppNamefoto = "rundll32.exe c:\windows\system32\shimgvw.dll,ImageView_Fullscreen " & [caratula]


-------------
El Búho es un pajarraco


Publicado por: cuic
Fecha de publicación: 24/Abril/2021 a las 17:32
muchas gracias 
al final he utlizado Application.FollowHyperlink seguido del nombre del campo donde guardo la ruta

doy el tema por cerrado
gracias





Imprimir página | Cerrar ventana