Archivos adjuntos
Publicado por Paco (2 intervenciones) el 22/02/2016 10:37:23
Hola, tengo una duda referente al tema de archivos adjuntos, os explico mi duda.
Tengo una tabla en access con tres atributos y uno de ellos es archivos adjuntos y necesito crear un formulario en el que se realiza una consulta justo al abrirlo que devuelve como resultado un archivo adjunto... hasta aquí bien, mi problema viene cuando quiero enlazar dicho resultado(archivo) a un campo de archivo adjunto que he creado en el formulario, ya que cuando intento asignar el resultado de la consulta en el campo me salta un error.
Os dejo el código.
Tengo una tabla en access con tres atributos y uno de ellos es archivos adjuntos y necesito crear un formulario en el que se realiza una consulta justo al abrirlo que devuelve como resultado un archivo adjunto... hasta aquí bien, mi problema viene cuando quiero enlazar dicho resultado(archivo) a un campo de archivo adjunto que he creado en el formulario, ya que cuando intento asignar el resultado de la consulta en el campo me salta un error.
Os dejo el código.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Form_Load()
Dim db_m As Database
Dim rs_m As DAO.RecordsetDim strSQL As String
Dim strResult As String
Dim afld As Field2
Dim rst As Recordset2
Dim rsadj
Set db_m = CurrentDbMatricula = Me.OpenArgs
Me.titulo = Matricula
strSQL = "SELECT * FROM FechaAscensores WHERE matricula='" & Matricula & "'"
Set rst = db_m.OpenRecordset(strSQL, dbOpenForwardOnly)
Set afld = rst!AdjuntoPDF
Set rsadj = afld.Value
Do While Not rsadj.EOF 'Asignar archivo adjunto
Me.adj = rsadj.Value
rsadj.MoveNextLoop
Valora esta pregunta
0
