子表单默认显示今天的日期记录

时间:2018-08-27 12:22:57

标签: vba ms-access

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

按照完成此操作的方式,最好是执行查询吗?即onload过滤器仅显示今天的记录,当用户单击上一个或下一个时,它查询tbl_tasks并按``DailyTasks''字段过滤,或者我应该使用VBA ...哪种方法最好?谢谢

1 个答案:

答案 0 :(得分:0)

您可以将 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)

子窗体将自动过滤。