Question

我一直在尝试创建一个搜索，用于提取所有记录，其中用户指定的日期介于该记录的开始日期和结束日期之间。我还希望用户能够通过“Property”将其拉出来，除非他们将其留空。

我对昨天开始的VBA非常新，这是我能提出的最新版本：

Private Sub Command4_Click()
    Dim strFilter As String

    strFilter = [Start_Date] <= Format(Me.RateDate, "Short Date") _
    And [End_Date] >= Format(Me.RateDate, "Short Date")

    If Not IsNull(Me.Property) Then
        strFilter = strFilter & " AND [Num_Code] = '" & Me.Property & "'"
    End If
    DoCmd.OpenReport "rpt_RatesAll", acViewPreview, , strFilter
End Sub

最新的错误消息返回：运行时错误“2465”：Microsoft Access找不到表达式中引用的“| 1”。

非常感谢任何帮助！

Answer 1

strFilter = "[Start_Date] <= #" Me.RateDate & "# And [End_Date] >= #" & Me.RateDate & "#"

应该这样做。
您所拥有的是作为文字字符串而不是使用您想要的值。

搜索介于两个日期之间的用户输入日期

1 个答案: