设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3306|回复: 13
打印 上一主题 下一主题

[表] 表里时间字段显示当前时间问题

[复制链接]
跳转到指定楼层
1#
发表于 2010-9-21 14:48:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何在原始表里实现时间字段自动显示当前日期时间?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2010-9-21 14:49:37 | 只看该作者
在默认值中写上:now()
3#
 楼主| 发表于 2010-9-21 15:05:47 | 只看该作者
本帖最后由 liuyinhe 于 2010-9-21 15:07 编辑

谢谢版主。

我没有把问题表述清楚。
我想实现,当原始表里的某条记录修改变动后,该条记录里时间字段自动显示当前系统时间。现在只能是在添加新记录时可以,但是修改记录如何实现呢?
4#
发表于 2010-9-21 18:21:50 | 只看该作者
修改记录时同时修改时间字段
5#
 楼主| 发表于 2010-9-22 07:55:54 | 只看该作者
修改记录时同时修改时间字段
zhowgq 发表于 2010-9-21 18:21



我希望自动修改
6#
发表于 2010-9-22 08:25:30 | 只看该作者
我希望自动修改
liuyinhe 发表于 2010-9-22 07:55

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


7#
发表于 2010-9-22 10:09:22 | 只看该作者
回复 liuyinhe 的帖子

用代码更新即可
     
8#
 楼主| 发表于 2010-9-22 21:41:12 | 只看该作者
代码如何写呀?
9#
发表于 2010-9-23 10:08:56 | 只看该作者
本帖最后由 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为表中主字段值;供参考
10#
发表于 2010-9-23 10:37:51 | 只看该作者
更新前事件
Private Sub Form_BeforeUpdate(Cancel As Integer)
       on error resume next
       me.[时间].value=now()
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 05:23 , Processed in 0.130206 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表