Formulario: Vincular y visualizar PDF

15/05/2013 - 11:02 por aurelio.centellas | Informe spam
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
 

Leer las respuestas

#1 Mario Merlos
15/05/2013 - 23:59 | Informe spam
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

Preguntas similares