在ms访问中添加日历点击日期查看特定日期的数据

Question

我正在使用 Northwind DB 开发 MS Access。我正在尝试在表单中添加一个日历，并使用 dbo_orders table link 它。这样我就可以通过单击日历中的日期来检索特定日期的订单数量。

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

我需要解决这个问题，您的解决方案将不胜感激。

谢谢。

Answer 1

不告诉你怎么做我就直接告诉你怎么做

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

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

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

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

在 Text##_Change() 事件的子例程中，我可能会声明一个 Date 变量，并执行类似..

的操作

Private Sub Text0_Change()

Dim dateToSearch As Date

dateToSearch = CDate(Me.Text0.Text)

End Sub

有了这个变量，您可以将它用作过滤器、在查询中使用它或内联 SQL，或者用它做任何您想做的事。由于您使用的是拆分形式，因此可以使用 Me.Filter 然后应用 Filter.

Adding calendar in ms access and view the data of specific day by clicking the date