abrir hipervinculos desde formulario a ruta

16/05/2010 - 01:24 por anabcn | Informe spam
Hola a todos!
Ante todo deciros que no se casi nada de programacion.

Me estoy haciendo una base de datos de mis libros electronicos, ya he
conseguido abrir las imagenes de las portadas

Dim PathImagenes, FicheroImagen

PathImagenes = DLookup("imagen", "imagenes")

FicheroImagen = [Numero] & ".jpg"

nombreImagen.Picture = PathImagenes & FicheroImagen
almacenado en el evento current del formulario

y ahora lo que quiero es abrir directamente el libro, el sistema seria
el mismo, crear una tabla con un unico registro en el que guardo la
ruta en la que se encuentran los libros de manera que desde el campo
link (que he definido como hipervinculo) me lleve al libro, es decir
que abra la ruta del libro.
Lo que he hecho ha sido copiar más o menos lo que me habia funcionado
en la imagen

Dim PathLibro, FicheroLibro

PathLibro = DLookup("libro", "libros")

FicheroLibro = [Numero] & ".fb2"


Link = Application.FollowHiperLink(PathLibro & FicheroLibro)

Pero no me funciona, Numero es el campo que une el registro del
formulario con el nombre del libro.
Me podeis ayudar?
Mil gracias

Ana

Preguntas similare

Leer las respuestas

#1 Emilio
16/05/2010 - 08:02 | Informe spam
¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!
En primer lugar ejecuta el proceso paso a paso y verifica en cada momento el
contenido de las variables para saber si el contenido es correcto.
En segundo lugar FollowHiperLink(PathLibro & FicheroLibro), siempre que
PathLibro & FicheroLibro construya una ruta correcta, debería ser
suficiente, asignarlo a una variable (Link) no me parece que sea correcto.

Saludos a todos
Emilio [MS-MVP Access 2006/10]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio


"anabcn" escribió en el mensaje de
noticias:
Hola a todos!
Ante todo deciros que no se casi nada de programacion.

Me estoy haciendo una base de datos de mis libros electronicos, ya he
conseguido abrir las imagenes de las portadas

Dim PathImagenes, FicheroImagen

PathImagenes = DLookup("imagen", "imagenes")

FicheroImagen = [Numero] & ".jpg"

nombreImagen.Picture = PathImagenes & FicheroImagen
almacenado en el evento current del formulario

y ahora lo que quiero es abrir directamente el libro, el sistema seria
el mismo, crear una tabla con un unico registro en el que guardo la
ruta en la que se encuentran los libros de manera que desde el campo
link (que he definido como hipervinculo) me lleve al libro, es decir
que abra la ruta del libro.
Lo que he hecho ha sido copiar más o menos lo que me habia funcionado
en la imagen

Dim PathLibro, FicheroLibro

PathLibro = DLookup("libro", "libros")

FicheroLibro = [Numero] & ".fb2"


Link = Application.FollowHiperLink(PathLibro & FicheroLibro)

Pero no me funciona, Numero es el campo que une el registro del
formulario con el nombre del libro.
Me podeis ayudar?
Mil gracias

Ana

__________ Information from ESET Smart Security, version of virus
signature database 5117 (20100515) __________

The message was checked by ESET Smart Security.

http://www.eset.com






__________ Information from ESET Smart Security, version of virus signature database 5117 (20100515) __________

The message was checked by ESET Smart Security.

http://www.eset.com
Respuesta Responder a este mensaje
#2 anabcn
16/05/2010 - 13:48 | Informe spam
On 16 mayo, 08:02, "Emilio" <miliuco56 ALGARROBA hotmail PUNTO com>
wrote:
¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!
En primer lugar ejecuta el proceso paso a paso y verifica en cada momento el
contenido de las variables para saber si el contenido es correcto.
En segundo lugar FollowHiperLink(PathLibro & FicheroLibro), siempre que
PathLibro & FicheroLibro construya una ruta correcta, debería ser
suficiente, asignarlo a una variable (Link) no me parece que sea correcto.

Saludos a todos
Emilio [MS-MVP Access 2006/10]
miliuco56 ALGARROBA hotmail.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio

"anabcn" escribió en el mensaje de
noticias:



> Hola a todos!
> Ante todo deciros que no se casi nada de programacion.

> Me estoy haciendo una base de datos de mis libros electronicos, ya he
> conseguido abrir las imagenes de las portadas

> Dim PathImagenes, FicheroImagen

> PathImagenes = DLookup("imagen", "imagenes")

> FicheroImagen = [Numero] & ".jpg"

> nombreImagen.Picture = PathImagenes & FicheroImagen
> almacenado en el evento current del formulario

> y ahora lo que quiero es abrir directamente el libro, el sistema seria
> el mismo, crear una tabla con un unico registro en el que guardo la
> ruta en la que se encuentran los libros de manera que desde el campo
> link (que he definido como hipervinculo) me lleve al libro, es decir
> que abra la ruta del libro.
> Lo que he hecho ha sido copiar más o menos lo que me habia funcionado
> en la imagen

> Dim PathLibro, FicheroLibro

> PathLibro = DLookup("libro", "libros")

> FicheroLibro = [Numero] & ".fb2"

> Link = Application.FollowHiperLink(PathLibro & FicheroLibro)

> Pero no me funciona, Numero es el campo que une el registro del
> formulario con el nombre del libro.
> Me podeis ayudar?
> Mil gracias

> Ana

> __________ Information from ESET Smart Security, version of virus
> signature database 5117 (20100515) __________

> The message was checked by ESET Smart Security.

>http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 5117 (20100515) __________

The message was checked by ESET Smart Security.

http://www.eset.c






Antes de nada muchas gracias
He puesto

Private Sub Form_Current()
Dim PathImagenes, FicheroImagen

PathImagenes = DLookup("imagen", "imagenes")

FicheroImagen = [Numero] & ".jpg"

[nombreImagen].Picture = PathImagenes & FicheroImagen


Dim PathLibro, FicheroLibro

PathLibro = DLookup("libro", "libros")

FicheroLibro = [Numero] & ".fb2"

Link = PathLibro & FicheroLibro

End Sub
y veo el link en el campo pero no lo abre automaticamente tengo que ir
a modificar hipervinculo, aparece la ruta como texto y cuando lo pongo
en direccion, entonces lo abre, que hago mal para que no lo abra
automaticamente??
Respuesta Responder a este mensaje
#3 Patxi Sanz
16/05/2010 - 16:00 | Informe spam
Como te ha dicho Emilio, usa FollowHyperlink:

Dim PathLibro, FicheroLibro

PathLibro = DLookup("libro", "libros")

FicheroLibro = [Numero] & ".fb2"

FollowHyperlink PathLibro & FicheroLibro

End Sub

Y si necesitas colocar el hipervínculo en un cuadro de texto y que sea
hipervínculo, debes indicar que lo que pones es el hipervínculo, no el texto
que se ve:

Link.HyperlinkAddress = PathLibro & FicheroLibro

Un saludo,


Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida