MS Access表单单日期范围查询无结果及结束日期时间设置咨询

问题描述 #

我使用MS Access表单筛选ODBC SQL表数据时遇到以下问题：

• 表单中的StartDate和EndDate文本框格式为「General Date」，通过日历选择器填充m/d/yyyy格式的日期。
• 数据源表的INSP_DTE字段在设计视图显示为「General Date」，但实际存储的是包含时分秒的m/d/yyyy H:MM:SS AM/PM格式数据。
• 当StartDate和EndDate选择同一日期时，查询无结果，但团队反馈此前该场景可正常返回数据。推测原因是日历选择器仅填充日期，查询时两个日期默认取当日12:00:00 AM，无法匹配含非凌晨时间的INSP_DTE记录。

想咨询：是否可修改EndDate文本框，使其默认设置为所选日期的23:59:59 PM？

补充10/28更新：涉及的查询语句 #

查询dbo_GEN_INSP_Count_Daily #

SELECT DateValue([INSP_DTE]) AS Insp_Date, Count([INSP_DTE]) AS DailyCount
FROM dbo_GEN_INSP_Count_Monthly
GROUP BY DateValue([INSP_DTE]);

查询dbo_GEN_INSP_Count_Monthly #

SELECT dbo_VEHICLE.DMV_VIN_NUM, dbo_INSPECTION_GENERAL.INSP_DTE, dbo_INSPECTION_GENERAL.CI_NUM, dbo_INSPECTION_GENERAL.DMV_FACILITY_NUM, dbo_INSPECTION_GENERAL.VIP_UNIT_NUM
FROM dbo_INSPECTION_GENERAL INNER JOIN dbo_VEHICLE ON (dbo_INSPECTION_GENERAL.VIP_UNIT_NUM = dbo_VEHICLE.VIP_UNIT_NUM) AND (dbo_INSPECTION_GENERAL.DMV_FACILITY_NUM = dbo_VEHICLE.DMV_FACILITY_NUM) AND (dbo_INSPECTION_GENERAL.CI_NUM = dbo_VEHICLE.CI_NUM) AND (dbo_INSPECTION_GENERAL.INSP_DTE = dbo_VEHICLE.INSP_DTE)
WHERE (((dbo_INSPECTION_GENERAL.INSP_DTE) Between [Forms]![Form1]![StartDate] And [Forms]![Form1]![EndDate]));

解决方案 #

方法一：修改EndDate文本框的自动赋值逻辑 #

通过VBA代码让EndDate在选择日期后自动变为当日23:59:59：

1. 打开表单的设计视图，选中EndDate文本框。
2. 在属性窗口找到「更新后」事件，选择「事件过程」，点击右侧的生成器按钮。
3. 在弹出的VBA编辑器中输入以下代码：

Private Sub EndDate_AfterUpdate()
    If Not IsNull(Me.EndDate) Then
        ' 给所选日期加上23小时59分59秒
        Me.EndDate = DateAdd("s", 86399, DateValue(Me.EndDate))
    End If
End Sub

4. 保存代码和表单，测试时选择日期后，EndDate会自动更新为当日最后一秒。

方法二：修改查询条件（更推荐） #

直接调整dbo_GEN_INSP_Count_Monthly的WHERE条件，无需修改表单，逻辑更严谨（避免毫秒级记录遗漏）：

WHERE (((dbo_INSPECTION_GENERAL.INSP_DTE) >= [Forms]![Form1]![StartDate] 
AND dbo_INSPECTION_GENERAL.INSP_DTE < DateAdd("d", 1, [Forms]![Form1]![EndDate])));

这个条件会包含StartDate当天0点及以后的所有记录，同时排除EndDate次日0点及以后的记录，完美覆盖所选日期内的所有带时间戳的记录。

内容的提问来源于stack exchange，提问作者Creebag