Question

我正在使用Northwind DB处理MS Access。我试图在表单中添加日历并将其与dbo_orders表链接。这样我就可以通过点击日历中的日期来检索特定日期的订单数量。

实施例。考虑Northwind DB中的dbo_Orders。如果我点击日历中的11/11/1996按钮，它应该显示下面特定日期发生的所有事情。即，在具有两个片段的同一屏幕上，上面的一个片段具有日历，下面应该在点击特定日期时显示该特定日期的详细信息。

我需要继续努力，您的解决方案将不胜感激。

谢谢。

Answer 1

我会告诉你怎么做而不告诉你怎么做。

任何时候你想要捕获一些“事件”，你将不得不为它编写代码（或宏，但我不喜欢它们）。就这么简单。

因此，我们可以使用许多事件来定位此功能。从阅读问题开始，最有意义的是搜索文本框的OnChange事件。

所以，如果我要定位文本框以捕获一些事件，我会在设计视图中查看表单，右键单击文本框，选择Properties，单击Event标签，然后选择On Change（右侧[...]），最后选择Code Builder。

那么，你想做什么？您想要在文本框中捕获Text（因为选择日期不会更改它的.Value，并且基本上在查询的WHERE子句中使用它（无论是否为ApplyFilter或其他什么）

在Text##_Change()事件的Sub Routine中，我可能会声明一个Date变量，并执行类似的操作。

Private Sub Text0_Change()

Dim dateToSearch As Date

dateToSearch = CDate(Me.Text0.Text)

End Sub

使用该变量，您可以将其用作过滤器，在查询或内联SQL中使用它，或者随意执行任何操作。由于您使用的是拆分表单，因此可以使用Me.Filter然后应用Filter。