[5分]根据本表日期查出另一表相关记录填写到本表，怎么实现？

操作思路如下：
1、先创建个记录集循环“每日单吨燃料动力”查询中的记录；
2、从记录集中取出日期、单吨高炉煤气总计的值；
3、再使用update更新语句，更新“统计消耗（按护部分）”表中对应日期记录中的单吨高炉煤字段的值。

可以参考如下代码：
dim rst as object
Set rst = CurrentProject.Connection.Execute("select * from [表或者查询名称]")
Do Until rst.EOF
      CurrentDb.Execute "update [表名称] set [需要更新的字段名称] = " & rst!记录集中的字段 & " where [日期字段]= #" & rst!记录集中的日期字段 & "#"
rst.MoveNext
Loop
rst.Close
set rst=nothing
msgbox "更新完成！"


表名称\查询名称\字段名称你根据你那里实际的名称进行替换。