وجدت هذا الكود لكنه يحتاج لشرح
dim rsI as recordset, rsR as recordset, rsF as recordset, rsD as recordset
dim db as database, anFD as long, anR as long
set db=currentdb()
set rsI=db.openrecordset("FlatInputTable")
set rsR=db.openrecordset("tbl_Record")
set rsF=db.openrecordset("tbl_Forecast")
set rsD=db.openrecordset("tbl_Forecast_Detail")
while not rsi.eof
rsr.addnew
rsr!Product = rsi!Product
anR = rsr!RecordId
...
rsr.update
rsd.addnew
rsd![Month] = rsi![Month]
anFD = rsd!ForecastDetailID
rsd![Value] = rsi![Value]
rsd.update
rsf.addnew
rsf!RecordId = anR
rsf!ForecastDetailID = anFD
rsf![Value] = rsi!FYF
rsf.update
rsi.movenext
wend