如何自动更新表中字段的内容？

皮皮　发表于：2009-04-09 20:56:45 　

各位专家

在记材料账时经常发生一个问题，结账上报报表后有人领用材料。这样造成材料当月实际余额与报表不符。为解决这个问题，我在表中增加了一个字段“结账日期”文本型字段。该字段的默认值为“未结账”月末25日（25日前后）结账时，点击“结账”按键将表中“未结账”改为当前日期，以区分结账后有人继续领用材料造成，日后查询当月余额与报表不符问题。问题是如何设计“结账”按键。

Top

西南风王发表于：2009-04-09 21:20:09

请输入以下代码试试:

Set M = Me![XX子窗体].Form.Recordset
M.MoveFirst
Do Until M.EOF
If M("结帐日期") = "未结帐" Then
M.Edit
M("未结帐") =DATE()

M.Update
End If
M.MoveNext
Loop
MsgBox "结帐成功！", vbInformation, "系统提示！"

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

如何自动更新表中字段的内容？