Office中国论坛/Access中国论坛

标题: 表里时间字段显示当前时间问题 [打印本页]

作者: liuyinhe 时间: 2010-9-21 14:48
标题: 表里时间字段显示当前时间问题
如何在原始表里实现时间字段自动显示当前日期时间？

作者: todaynew 时间: 2010-9-21 14:49
在默认值中写上：now()

作者: liuyinhe 时间: 2010-9-21 15:05
本帖最后由 liuyinhe 于 2010-9-21 15:07 编辑

谢谢版主。

我没有把问题表述清楚。
我想实现，当原始表里的某条记录修改变动后，该条记录里时间字段自动显示当前系统时间。现在只能是在添加新记录时可以，但是修改记录如何实现呢？

作者: zhowgq 时间: 2010-9-21 18:21
修改记录时同时修改时间字段

作者: liuyinhe 时间: 2010-9-22 07:55

修改记录时同时修改时间字段
zhowgq 发表于 2010-9-21 18:21

我希望自动修改

作者: todaynew 时间: 2010-9-22 08:25

我希望自动修改
liuyinhe 发表于 2010-9-22 07:55

在字段的更新后事件中处理即可

作者: zhowgq 时间: 2010-9-22 10:09
回复 liuyinhe 的帖子

用代码更新即可

作者: liuyinhe 时间: 2010-9-22 21:41
代码如何写呀？

作者: zhowgq 时间: 2010-9-23 10:08
本帖最后由 zhowgq 于 2010-9-23 10:16 编辑

Private Sub Command0_Click()
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "UPDATE 表 SET 表.时间 =#" & Now & "#,表.更新字段='" & [Text3] & "' WHERE 表.主字段 ='" & [Text1] & "'"
rs.Open stSql, con

End Sub
Text3为窗体中修改字段内容，text1为表中主字段值；供参考

作者: hjb016 时间: 2010-9-23 10:37
更新前事件
Private Sub Form_BeforeUpdate(Cancel As Integer)
on error resume next
me.[时间].value=now()
End Sub

作者: liuyinhe 时间: 2010-9-23 12:59

更新前事件
Private Sub Form_BeforeUpdate(Cancel As Integer)
on error resume next
me ...
hjb016 发表于 2010-9-23 10:37

谢谢了，谢谢大家，搞定了！

作者: hjb016 时间: 2010-9-23 14:40
OK

作者: liuyinhe 时间: 2010-9-24 11:41

更新前事件
Private Sub Form_BeforeUpdate(Cancel As Integer)
on error resume next
me ...
hjb016 发表于 2010-9-23 10:37

又一个问题：我现在的窗体是主子窗体关系，主子窗体上都有一个时间字段。我想实现主子窗体上的对应记录修改时都自动显示当前日期。

作者: hjb016 时间: 2010-9-24 11:46
那你在子窗体里也添加更新前事件就可以了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)