** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - como ejecutar archivos al pulsar un boton
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradocomo ejecutar archivos al pulsar un boton

 Responder Responder
Autor
Mensaje
ziporroto Ver desplegable
Nuevo
Nuevo


Unido: 01/Marzo/2014
Localización: gerona
Estado: Sin conexión
Puntos: 48
Enlace directo a este mensaje Tema: como ejecutar archivos al pulsar un boton
    Enviado: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14746
Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5976
Enlace directo a este mensaje Enviado: 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.
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3865
Enlace directo a este mensaje Enviado: 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
Arriba
cuic Ver desplegable
Habitual
Habitual


Unido: 11/Septiembre/2006
Localización: España
Estado: Sin conexión
Puntos: 85
Enlace directo a este mensaje Enviado: 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


Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable