Hola.
Sin entrar en consideraciones sobre los campos multivalor/datos adjuntos, el siguiente código parece que los "copia":
Dim subrst1 As DAO.Recordset2
Dim subrst2 As DAO.Recordset2
Dim mcampo1 As DAO.Field2
Dim mcampo2 As DAO.Field2
Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("CNuevasIncidencias")
Set rst2 = CurrentDb.OpenRecordset("TIncidencias")
Do While Not rst1.EOF
rst2.AddNew
''''' aquí todos los campos que no sean multivalor
'+++++actualización campo multivalor++++++
Set mcampo1 = rst1("Documentosadjuntos")
Set mcampo2 = rst2("Documentosadjuntos")
If mcampo1.IsComplex Then
Set subrst1 = mcampo1.Value
Set subrst2 = mcampo2.Value
If Not (subrst1.BOF And subrst1.EOF) Then
subrst1.MoveFirst
Do Until subrst1.EOF
subrst2.AddNew
subrst2.Fields("filedata") = subrst1.Fields("filedata")
subrst2.Fields("filename") = subrst1.Fields("filename")
subrst2.Update
subrst1.MoveNext
Loop
End If
End If
'++++fin campo multivalor
rst2.update
rst1.movenext
DoEvents
Loop
Está puesto a título de ejemplo y tiene falta de depurar, optimizar etc etc.
Espero que sirva de ayuda para resolver la duda
Ya comentas.
Un saludo a todos
Tweet
Anexar registros con "documentos adjuntos" a tabla
Opciones del Tema
