当系统日期格式为 dd/mm/yyyy 时如何按日期字段过滤

Question

我有一份包含日期时间字段的报告。有一个表单用于收集查询的用户输入，特别是要过滤的查询的 From 和 To 日期。

使用以下代码打开报表：

Dim str as String
str = "DateCreated BETWEEN #" & format(From_Date.value, "yyyy-mm-dd") & "# AND #" & DateAdd("d", 1, format(To_Date.value, "yyyy-mm-dd")) & "#"
DoCmd.OpenReport "report_name", acViewReport, WhereCondition:=str

在日期格式为 mm/dd/yyyy 或 yyyy-mm-dd 的 Windows 计算机上，查询有效。

某些用户将系统日期设置为 dd/mm/yyyy。过滤器的读数为 2021 年 8 月 11 日（2021 年 11 月 8 日），即 2021 年 8 月 11 日。

我尝试使用 format(From_Date.value, "yyyy-mm-dd") 格式化 WHERE 条件的日期输入。

Access 是否支持 dd/mm/yyyy 格式？如何按日期范围过滤？

是调整用户系统日期格式的唯一选择吗？

Answer 1

始终使用参数，切勿将格式化日期连接到 SQL 字符串。

如果您在 SQL 字符串中使用格式化的日期，您将自己设置为失败，意外做错事的机会是巨大的。

Dim str as String
str = "DateCreated BETWEEN p1 AND p2"
DoCmd.SetParameter "p1", From_Date.value
DoCmd.SetParameter "p2", DateAdd("d", 1, To_Date.value)
DoCmd.OpenReport "report_name", acViewReport, WhereCondition:=str

详细了解 Access 中的参数：How do I use parameters in VBA in the different contexts in Microsoft Access?

Answer 2

您可以使用general date format codes 之一（而不是自定义格式字符串）来使用系统格式。

Dim str as String
str = "DateCreated BETWEEN #" & format(From_Date.value, "Long Date") & "# AND #" & DateAdd("d", 1, format(To_Date.value, "Long Date")) & "#"
DoCmd.OpenReport "report_name", acViewReport, WhereCondition:=str