MSAccess VBA，通过组合框过滤查询结果（文本）

Question

我想根据组合框文本值过滤查询中的日期值（文本）。 这是我所拥有的：

ComboBoxTimePeriod（ID [num]，TimePeriod [text]）。

在 ComboBox 中，我选择时间段，例如“16.10.2017-15.11.2017”。

在查询中，我有一个日期字段，例如“20.10.2017”（文本）。

我想要的是编写一个 SQL 代码来搜索所有日期在 TimePeriod 范围内的记录。

到目前为止，想法是从 TimePeriod 中提取 SatrtDate 和 EndDate，如下所示：

    Dim strStartDate As String
    Dim strEndDate As String

    strStartDate = Mid(Me.cboTimePeriod.Text, 1, 10)
    strEndDate = Mid(Me.cboTimePeriod.Text, 12, 10)

现在从 TimePeriod“16.10.2017-15.11.2017”开始，我有 StartDate (16.10.2017) 和 EndDate (15.11.2017)。

我想过滤所有在这两个日期内有日期的记录。 这就是我需要你们的地方。

请注意，这与我上一个问题不同，我在上一个问题中搜索带有 TimePeriodID (Subform filtering based off multiple parameters (Combobox AND Textbox)) 的记录。

Answer 1

始终将日期处理为日期，而不是文本：

Dim StartDate As Date
Dim EndDate As Date
StartDate = DateValue(Split(Me.cboTimePeriod.Value, "-")(0))
EndDate = DateValue(Split(Me.cboTimePeriod.Value, "-")(1))

构建你的过滤器：

... " Between #" & Format(StartDate, "yyyy\/mm\/dd") & "# And #" & Format(EbdDate, "yyyy\/mm\/dd") & "#"

过滤表单：

Me.Filter = "[Date Field] Between #" & Format(StartDate, "yyyy\/mm\/dd") & "# And #" & Format(EbdDate, "yyyy\/mm\/dd") & "#"
Me.FilterOn = True

并确保您的 日期字段 是日期数据类型，而不是文本。