VBA - Access: Actualizar tabla mediante una consulta sobre otra tabla

[Taribo007]

Puedes realizar esa operacion aritmetica en la consulta, si tienes una funcion que lo haga puedes incluirla en la consulta origen.

No obstante, con recordset podrias hacer:

dim rstOrigen as dao.recordset
dim rstDestino as dao.recordset

Set rstOrigen=currentdb.openrecordset ("Select Campo1, campo2 from tabla1")
Set rstDestino=currentdb.openrecordset ("Select Campo1, campo2 from tabla2")

while not rstorigen.eof
rstdestino.addnew rstdestino("Campo1")=funcionQueHaceLosCalculos(rst Origen("Campo1"),rstOrigen("Campo2")
rstDestino.update
rstOrigen.movenext
wend

rstOrigen.close
rstDestino.close
set rstOrigen=nothing
set rstDestino=nothing


Algo asi, suponiendo que los calculos los haces con una funcion a la que le pasas 2 parametros, dos campos del la tabla1

Un saludo