ACCess 时间自动填充_IT百科

在DW页面中.添加一个表单页面

放入一个隐藏域

命为date

然后上面添加javascript

var today=new Date()

function Show()

{

window.document.form1.date.value=today.toLocaleString()

}

</script>

下一步

这样隐藏域就可以在初始页面时得到时间.然后您直接添加到数据库里就是了.

问题一：那么表1的a列”最后购买日期"如何自动更新为最后的07.09.15呢?

实际上，表1没有必要一定要有“最后购买日期”这个字段，只需要建立一个汇总查询，以客户名称为链接字段设定两个表之间的关系（表1对表2：一对多），对表1的客户名称归类，添加一个计算字段“最后购买日期”，选择表2中购买日期的最大值即可。

问题二：如果要设定系统自动记录最后修改日期或时间，需要怎样做呢？

这需要在表2的对应输入窗体上设代码。比如在“购买日期”控件的更新后事件代码中添加：

docmd.runsql

"update

表1

set

最后购买日期

me.购买日期.value

where

客户名称

me.客户名称.value

and

最后购买日期

me.购买日期.value

先将数据表的日期类型字段的显示“格式”属性设置为yyyy-mm-dd 见图

运行SQL语句指定向数据表的日期字段插入当前日期

insert into table1(dd) values(date())

您也可以将数据表日期字段的默认值属性设置为函数 Date() 见上图。这样当项数据表插入数据时，只要将日期字段的插入值留空，添加记录时系统就会自动向日期字段插入当前日期。

当然您也可以用VBA代码引用当前日期函数Date()将当前日期插入数据表

欢迎分享，转载请注明来源：内存溢出

ACCess 时间自动填充