使用日期查找记录答案

【问题标题】：Finding record with Dates使用日期查找记录
【发布时间】：2021-03-03 17:40:25
【问题描述】：

我有一个连续的表格，它像日历一样创建 . 当表单打开、更新或重新查询时，它必须从当前日期开始。我找到了以下代码，但只有搜索 ID 号才能使其工作。

Dim Today as Date, PickDate as Date
PickDate = "14-02-2021"

Me.Requery
With Me.RecordsetClone
    .FindFirst "DateP = " & PickDate
    If .NoMatch Then
        Msgbox "Record not found!", vbCritical
    Else
        Me.Bookmark = .BookMark
    End If
End with

【问题讨论】：

标签： vba date ms-access-2010

【解决方案1】：

试试这个：

Dim PickDate As Date

PickDate = #02/14/2021#

With Me.RecordsetClone
    .FindFirst "DateP = #" & Format(PickDate, "yyyy\/mm\/dd") & "#"
    If .NoMatch Then
        Msgbox "Record not found!", vbCritical
    Else
        Me.Bookmark = .BookMark
    End If
End with

【讨论】：

【解决方案2】：

经过大量研究，我发现在 Access 中滚动锁定相当困难且不可靠。因此，我通过仅显示当前日期和转发来解决了查询中的问题。

【讨论】：