Function 在access中计算日期表达式并更新表

我有一张基于表格的表格。 我有一个购买日期字段和一个到期日期字段。 我希望expiration\u date在购买日期（在我的表单中）之前加上6个月，然后将此值插入表中。 我创建了这个表达式：DateAdd（“m”，6，[购买日期]）作为到期日的控制源。这将按预期工作，但此值不会从表单更新/保存到表中。我曾尝试使用onClick和afterUpdate函数来运行表达式，但没有成功。

---

谢谢你的帮助。

你试过保存吗？您的dateadd语法似乎还可以。注意任何受保护的单元格/床单！如果是这种情况，通常可以使用activesheet.unprotect

---

另外，如果将activesheet.calculate正确放置在VBA中，可能会对您有所帮助。

谢谢…似乎没有onSave功能？我使用的是access而不是excel-因此没有表格/单元格。然后我建议使用form.recalc-在您希望用作触发器的任何事件之后。酷！成功了！我使用form.Recalc然后expiry\u date.Value=DateAdd（“m”，6，[purchase\u date]），它现在将值保存到我的表中！干杯太好了-我很高兴我能为大家服务这个问题可能被否决了，因为“问题是将这个值保存到表中”并不是对这个问题的充分描述。因此，这些问题不需要是“专家”问题，但它们确实需要是“好”问题（经过深思熟虑、表述清晰、细节充分）。有关更多信息，请参阅。似乎您应该告诉我们有关该问题的更多信息。因为你有一个控制源，我想你是在一个窗体上。请确切地告诉我们表单是基于视图还是直接基于表。此外，你所说的“运行表达式”到底是什么意思？目前，我怀疑您可能在基础数据中没有expiration_date列，或者表单控件与该列之间没有连接。请详细描述你正在尝试做什么。