如果你的窗体有绑定数据源, 而你的控件也绑定了可编辑的 字段(非计算字段), 你是不用代码来保存数据的.
时间函数是写入不到数据表旳, 你只能保存时间函数运算出来的结果.
计算好的结果, 是一个控件内容的话, 你可以写以下代码保存
如内容是数字
docmd.runsql "Update 表 set 字段=" & Me!控件名 & " where id=" & me!记录ID的控件
文本
docmd.runsql "Update 表 set 字段='" & Me!控件名 & "' where id=" & me!记录ID的控件
日期
docmd.runsql "Update 表 set 字段=#" & Format( Me!控件名,"yyyy-mm-dd") & "# where id=" & me!记录ID的控件
日期含时间
docmd.runsql "Update 表 set 字段=#" & Format( Me!控件名,"yyyy-mm-dd hh:nn:ss") & "# where id=" & me!记录ID的控件
又或者
Dim rs as recordset
set rs = Currentdb().OpenRecordset("select 字段 from 表 where id=" & 你要更新的ID)
rs.Edit
rs!字段 = Me!控件名
rs.Update
rs.close
set rs = nothing