Formulario: Vincular y visualizar PDF

[a***@gmail.com]

Deseo que un formulario en Access 2007, me vincule un archivo a través de un DialogBox (de Windows, que me añada el path de ubicación del archivo en un campo de texto ("Ruta") y pueda visualizar dicho pdf en un cuadro de imagen (o similar).

He buscado en internet y en grupos y he encontrado algo parecido, pero solo para trabajar con imágenes.

¿Alguien me podría ayudar?

Muchas gracias de antemano.

Un saludo.

Aurelio

[Mario Merlos]

Saludos
Realice algo parecido para procedimientos, te explico

crea un modulo y pega el siguiente codigo
'Fichero
Function EscogeFichero(Tipo As Integer) As String
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long

On Error GoTo EscogeFichero_Err
WizHook.Key = 51488399

wzhwndOwner = 0&
wzAppName = ""
If Tipo = 1 Then
wzDlgTitle = "Escoge fichero para guardar"
ElseIf Tipo = 2 Then
wzDlgTitle = "Escoja fichero de datos"
Else
wzDlgTitle = "Escoja fichero gráfico (Jpj,Gif etc)"
End If
wzOpenTitle = "Escoja fichero"
wzFile = String(255, Chr(0))
wzInitialDir = CurrentProject.Path & "\Documentos\"

If Tipo = 1 Then
wzFilter = "Cualquier fichero " _
& "(*.*)"
ElseIf Tipo = 2 Then
wzFilter = "Fichero de datos " _
& "(*.mdb;*.mde;*.accmb;*.accmd;*.accdr)"
Else
wzFilter = "Fichero Gráfico " _
& "(*.jpg;*.gif;*.bmp)"
End If
wzFilterIndex = 1
wzView = 1
wzflags = 64
wzfOpen = True

ret = WizHook.GetFileName(wzhwndOwner, _
wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
wzInitialDir, wzFilter, wzFilterIndex, _
wzView, wzflags, wzfOpen)

' Si no se ha pulsado el botón Cancelar (-302)
If ret <> -302 Then
EscogeFichero = wzFile
Else
EscogeFichero = ""
End If
EscogeFichero_Exit:
Exit Function
EscogeFichero_Err:
MsgBox "Error nº " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
"en procedimiento EscogeFichero de Módulo EscogeFichero", vbCritical, "Aviso de error"
Resume EscogeFichero_Exit
End Function

Ojo tienes que crear una carpeta donde tienes la base de datos y colocarle el nombre de la carpeta a la funcion del modulo yo la tengo como Documentos

en el formulario registro crea un cuadro de texto y un commando en el evento hacer click del comando colocas lo siguiente nom_cuandro_texto= EscogeFichero(1)
nom_cuandro_texto.SetFocus

*********************************************************************
Para visualizar el procedimiento
Application.FollowHyperlink nom_cuadro_texto que tiene la vinculacion

[José Mª Fueyo]

Hola
Sí lo que deseas es mostrar el pdf directamente, puedes usar followhyperlink. Mira en la ayuda sobre su uso. Eso si, ten en cuenta que éste método obliga a tener instalado un visor de pdf en el cliente (Acrobat, Foxit, etc...)
Hace tiempo usaba el control de WebBrowser para cargar los pdf mediante un ocx que el acrobat usaba para cargar estos ficheros en una página web, pero creo que ya no lo tienen. De todos modos, haz la prueba
ControlWebBrowser.Navigate "ruta y nombre del pdf"
Otras opciones podrían ser usar librerías de terceros, haz una búsqueda
Suerte...

Salu2
--
José Mª Fueyo
[MS MVP Access]