将日期范围与表VBA中的日期进行比较

Question

我使用MS Access作为MySQL服务器数据库的前端。在数据库中，我有一个名为PubHol (意为公共假日)的表，其中列出了公共假日的日期dd/mm/yyyy。我有一个表单(链接到一个单独的表)，我可以在其中输入course_start日期和course_end日期。我想创建一个函数，它在字段的lostfocus上触发自己，该函数检查输入的日期范围course_start和course_end是否与PubHol中列出的日期一致。例如，如果一个客户的课程开始时间是2012年1月1日，课程结束时间是2012年15月1日，而PubHol中有一个介于ex 10/01/2012的日期，我希望收到一封MsgBox。谢谢

Answer 1

听起来您只是想向MySQL发出一个BETWEEN查询：

SELECT HolidayDate FROM PubHol
WHERE HolidayDate BETWEEN ? AND ?

..。并用您感兴趣的Course_Start和Course_End值填充查询的参数。(我假设VBA可以处理参数化查询。)

Answer 2

假设您在db中使用的是date数据类型而不是string数据类型，那么在VBA中测试落入日期范围的假日将如下所示。

Dim condition As String
Dim course_start As Date, course_end As Date

course_start = ...
course_end = ...
condition = "[Holiday] Between #" & Format$(course_start,"yyyy\/mm\/dd") & _
            "# AND #" & Format$(course_end,"yyyy\/mm\/dd") & "#"
If DCount("*", "PubHol", condition) > 0 Then
    MsgBox ...
End If

我在我的Access库中找到了这个函数

Public Function JetSqlDate(ByVal d As Variant) As String
    If IsNull(d) Then
        JetSqlDate = "NULL"
    Else
        JetSqlDate = Format$(d, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
    End If
End Function

使用它可以简化创建条件

condition = "[Holiday] Between " & JetSqlDate(course_start) & _
            " AND " & JetSqlDate(course_end) 

注意:如果使用ODBC将MySQL表链接到Access DB，则可以只使用Access (Jet) SQL语法。Access (或者更准确地说是ODBC驱动程序)会自动将其转换为MySQL语法。