ms 根据先前记录的日期访问自动填充日期字段

Posted 2023-02-24

【中文标题】ms 根据先前记录的日期访问自动填充日期字段

【英文标题】：ms access autofill date field based on date of previous record

【发布时间】：2015-06-29 17:57:44

【问题描述】：

我有一个表，其中包含给定日期每个部门的估计数字（每个日期都是包含 EST_DATE、DEPT1、DEPT2、DEPT3 等字段的记录）。日期是索引的主键（没有重复）。

当用户创建新记录时，我希望根据最后一条记录自动填充日期。

因此，如果上次估计是 2015 年 7 月 2 日，那么新记录的日期应该自动填充为 2015 年 7 月 3 日。使用基于当前日期的默认值将不起作用，因为这些估计值是提前几天或几周生成的。如果重要，字段EST_DATE 的格式设置为"mm/dd/yyyy"。

我更喜欢使用 EST_DATE 字段本身的默认值，但我也可以使用基于事件的 VBA，因为用户通常会通过绑定表单输入此估算数据。

【问题讨论】：

数据类型为日期/时间

【参考方案1】：

创建一个名为 MaxEstDate 的隐藏文本框。

将其 ControlSource 设置为：=Max([EST_DATE])。

将带有 EST_DATE 的文本框的 DefaultValue 设置为：=[MaxEstDate]。

【讨论】：

我创建了一个名为 MaxEstDate 的文本框。我将控制源设置为=Max([EST_DATE])+1。它正确显示最后一条记录之后的日期。当我将 EST_DATE 文本框的默认值设置为 =[MaxEstDate] 时，它显示日期 12/31/1899。如果我将MaxEstDate的控制源设置为=Max([EST_DATE])，则显示最后一条记录的日期，默认值显示为12/30/1899。

它有效！当我从设计视图加载表单时，默认值无法正确加载。但是当我从头开始打开表单时，文本框方法可以完美运行。谢谢@Gustav！