Access - Vincular imagenes y documentos a registros access

   
Vista:

Vincular imagenes y documentos a registros access

Publicado por Noel Martinez Lara namartinezl@hotmail.com (2 intervenciones) el 05/06/2014 15:45:31
Hola,

Necesito de su apoyo. Estoy trabajando una base de datos con unos 500 registros aproximadamente y tengo una carpeta donde tengo una cantidad grande de archivos PDF (diplomas) de estos registros.

Cada registro tiene un código (B0001 al B5000) y cada pdf comienza con dichos códigos, por ejemplo (B0001-01, B0001-02; B000-01, etc) como puedo hacer para visualizar en un formulario de acuerdo al registro seleccionado la lista y un previw de cada PDF.

Saludes y espero sus apoyos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Vincular imagenes y documentos a registros access

Publicado por 2pl (77 intervenciones) el 05/06/2014 18:20:51
Este ejemplo accede a la carpeta de "archivos digitalizado" de un determinado registro mostrado en un formulario.
Ejemplo: Antonio Pérez lo muestro en un formulario y al hacer clic en un boton de comando accede a su carpeta con todos los documentos que tenga digitalizado, tendrás que adaptarlo a tus necesidades.
Private Sub DocDigitalizados_Click()
Dim carpeta As String
Dim Respuesta
cadCriterioSelección = Me.N00NOMB & " " & Me.N00NDNI

Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Me.hwnd
ofn.lpstrFilter = "Txt Files (*.*)" + Chr$(0) + "*.*"

ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = UNIDAD & "ARCHIVO DIGITALIZADO\" & cadCriterioSelección
ofn.lpstrTitle = "Documentos digitalizados"
ofn.Flags = 0
carpeta = Dir(UNIDAD & "ARCHIVO DIGITALIZADO\" & cadCriterioSelección, vbDirectory)
If carpeta = "" Then
Respuesta = MsgBox("NO TIENE DOCUMENTOS DIGITALIZADOS", , "ERROR")
Else
Dim a
a = GetOpenFileName(ofn)
If (a) Then
Application.FollowHyperlink Trim$(ofn.lpstrFile), , , False
Else
Exit Sub
End If
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar