访问：自动日期演算

Question

在Access表格中，我有两个Date/Time字段为Data Type：[Start Date]和[End Date]。

当我输入[Start Date]时，我希望[End Date]自动[Start Date] + 3 years。但与此同时，我应该能够在自动“建议”之后修改[End Date]。

我尝试过使用Default Value但没有取得任何成功。

Answer 1

正如@wazz建议的那样，需要代码 - VBA或宏 - 来保存计算值并仍然允许用户编辑字段。真正的诀窍是找出要使用的事件。

AfterUpdate可能是最好的，VBA就像：

Sub tbxStartDate_AfterUpdate()
Me.tbxEndDate = DateAdd("yyyy", 3, Me.tbxStartDate)
End Sub