vba - 子窗体默认显示今天日期的记录

Question

我有一个主表单和一个子表单。在主窗体中，我希望有一个文本框，其中包含今天的日期 (date=())，名为 txt_today。在此框的左侧和右侧，我还有另外两个用于下一个和上一个的命令按钮。我希望这些按钮将 txt_today 更改为第二天或前一天，并在下面的子表单 (sub_form_Dailys) 中返回日期。

按照完成此操作，最好使用查询吗？即 onload 过滤器只显示今天的记录，当用户单击上一个或下一个时，它会查询 tbl_tasks 并按字段“DailyTasks”过滤，或者我应该使用 VBA...什么方法最好？谢谢，

标签： vbams-access

Answer 1

您可以将DefaultValue属性设置为：=Date()

按钮可以在Click 事件中执行：

Me!PreviousDate.Value = DateAdd("d", -1, Date)

分别

Me!NextDate.Value = DateAdd("d", 1, Date)

要过滤子表单，请使用MasterLinkFields和ChildLinkFields。

在主窗体上有一个（隐藏的）文本框，名为FilterDate，默认值为 =Date()。然后指定：

MasterLinkFields: [FilterDate]
ChildLinkFields: [YourDateFieldOnTheSubform]

展开按钮单击事件以保留这些行：

Me!FilterDate.Value = DateAdd("d", -1, Date)

分别

Me!FilterDate.Value = DateAdd("d", 1, Date)

子表单将自动过滤。