Access VBA日期比较异常：预约时间查重查询无结果问题排查

你遇到的核心问题是VBA拼接SQL语句时，日期常量没有用Access要求的#符号包裹，同时还有一处SQL语法的小错误，导致查询无法正确匹配数据。下面一步步帮你修正：

问题根源分析 #

在Access SQL中，日期常量必须用#包裹（比如#2024/05/20#），而你原代码里直接把Aptday拼进SQL，会导致日期被当成数值运算（比如2024/05/20会被计算成一个小数），完全不符合日期比较的逻辑。另外，你在Else分支的SQL里，[Pam Availability]和WHERE之间缺少空格，会引发语法错误。

另外补充一点：DAO Recordset默认只加载第一条记录，直接取RecordCount可能得到0或1，需要先调用MoveLast才能获取准确的记录总数。

修正后的完整代码 #

Private Sub Apt_date_AfterUpdate() 
    Dim check As DAO.Recordset 
    Dim time_sql As String 
    Dim count_sql As Long 
    Dim Aptday As Date 
    
    ' 获取并格式化日期，确保统一格式
    Aptday = DateValue(Forms("booking_clerk").Apt_date.Value)
    
    ' 重置时间下拉框
    Forms("booking_clerk").Apt_time.RowSourceType = "Table/Query" 
    Forms("booking_clerk").Apt_time.RowSource = "" 
    
    ' 修正：用#包裹日期，并用yyyy/mm/dd格式避免地区差异
    Set check = CurrentDb.OpenRecordset( _
        "Select DateValue(tblSchedule.Aptdate) From tblSchedule " & _
        "WHERE DateValue(tblSchedule.Aptdate) = #" & Format(Aptday, "yyyy/mm/dd") & "#;" _
    )
    
    ' 修正：先MoveLast获取准确的记录数
    If Not check.EOF Then check.MoveLast
    count_sql = check.RecordCount 
    MsgBox Str(count_sql) 
    
    If count_sql = 0 Then 
        ' 无预约时显示全部可用时间
        time_sql = "SELECT Field1 FROM [Pam Availability];" 
    Else 
        ' 修正：添加空格，同时正确包裹日期
        time_sql = "SELECT Field1 FROM [Pam Availability] " & _
                   "WHERE [Pam Availability].Field1 Not In (" & _
                   "Select tblSchedule.Apttime from tblSchedule " & _
                   "WHERE DateValue(tblSchedule.Aptdate) = #" & Format(Aptday, "yyyy/mm/dd") & "#);" 
    End If 
    
    Forms("booking_clerk").Apt_time.RowSource = time_sql 
    ' 刷新下拉框显示
    Forms("booking_clerk").Apt_time.Requery
End Sub

关键修正点说明 #

• 日期格式处理：用Format(Aptday, "yyyy/mm/dd")将日期转为统一格式，再用#包裹，确保SQL能正确识别为日期类型，避免因系统地区设置导致的格式不兼容问题。
• RecordCount准确性：通过If Not check.EOF Then check.MoveLast让Recordset加载所有记录，这样RecordCount才能返回真实的匹配记录数。
• SQL语法修复：在[Pam Availability]和WHERE之间添加空格，避免出现FROM [Pam Availability]WHERE这种语法错误。
• 添加Requery：设置RowSource后调用Requery确保下拉框立即刷新显示最新选项。

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