vba - 日期条件的 FindFirst 语法错误

Question

我在 VBA Access 中有以下几行，但我收到 FindFirst 的语法错误，我不明白为什么。

criteria = "[HolidayDate] = " & "#" & myDate & "#"
rst.FindFirst (criteria)
If rst.NoMatch Then
    count = count + 1
End If

Answer 1

Do While mydate <= EndOfMonth
        If Weekday(mydate, vbMonday) < 6 Then
             With rst
                .MoveFirst
                flag = False
                Do While Not .EOF
                    If CDate(.Fields("HolidayDate").Value) = myDate Then
                        flag = True
                    End If
                .MoveNext
                Loop
                If flag = False Then
                    count = count + 1
                End If
            End With
        End If
        myDate = myDate + 1
    Loop

Answer 2

循环通过记录集不是解决方案。

如果HolidayDate确实是 DateTime 数据类型，这将起作用：

criteria = "[HolidayDate] = #" & Format(myDate, "yyyy\/mm\/dd") & "#"
rst.FindFirst criteria

如果没有，则正在发生其他事情。