Access 2016表达式日期语法错误：预约数据库可用时间查询异常

嗨，我刚踩过类似的Access日期拼接坑，帮你捋清楚！

首先，你遇到的Syntax error in date in expression报错，根源在于：直接把Date类型的计算结果（比如i - TimeValue("00:00:05")）拼进字符串时，Access会跟着系统区域设置自动转格式，但这个格式大概率不符合Access SQL的要求——它只认美国格式（mm/dd/yyyy hh:mm:ss）或者ISO格式（yyyy-mm-dd hh:mm:ss），如果你的系统是中文/欧洲区域，直接拼接出来的字符串会让Access完全看不懂。

快速修复当前的FindFirst语句 #

你只需要用Format函数把计算后的时间强制转成Access兼容的格式，再拼进条件里就能解决问题：

' 先计算需要检查的时间范围
Dim checkStart As Date, checkEnd As Date
checkStart = i - TimeValue("00:00:05")
checkEnd = i + TimeValue("00:00:05")

' 格式化为Access能识别的日期时间字符串
Dim strStart As String, strEnd As String
strStart = Format(checkStart, "yyyy-mm-dd hh:mm:ss")
strEnd = Format(checkEnd, "yyyy-mm-dd hh:mm:ss")

' 现在执行FindFirst就不会报错了
oRS.FindFirst "[ApptTime] Between #" & strStart & "# And #" & strEnd & "#"

更高效的替代方案：用查询直接生成可用时段 #

其实你不用循环Recordset逐个检查，Access的查询功能就能直接帮你筛出未被预约的时段，效率高得多：

假设你已经有一个生成所有候选可用时间的查询/表（比如叫AvailableTimeSlots，包含字段SlotTime），创建一个左连接查询即可：

SELECT ats.SlotTime AS AvailableTime
FROM AvailableTimeSlots ats
LEFT JOIN YourAppointmentTable apt 
ON ats.SlotTime Between apt.ApptTime - TimeValue('00:00:05') And apt.ApptTime + TimeValue('00:00:05')
WHERE apt.ApptTime Is Null;

这个查询会直接返回所有没有被预约（包含前后5秒缓冲）的可用时段，不用写VBA循环，更贴合Access的数据库特性。

额外调试小技巧 #

• 如果ApptTime只是纯时间字段（不含日期），记得要同时匹配ApptDate，不然会误排除其他日期的预约——比如在条件里加上[ApptDate] = #" & Format(targetDate, "yyyy-mm-dd") & "#"，确保只检查当天的预约记录。
• 调试时可以把拼接好的条件字符串打印出来（比如Debug.Print "[ApptTime] Between #" & strStart & "# And #" & strEnd & "#"），直观检查格式是否正确，这是排查Access SQL语法问题的常用手段。

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