Question

我尝试使用开始日期和结束日期文本框按一系列日期过滤连续表单。我的代码只是过滤掉所有内容，即使我有适合标准的记录。我注意到的一个潜在问题（但我不知道如何解决）是我的文本框格式化了＃34; MM / DD / YYYY＆＃34;我的表格字段是日期时间格式。

Dim datFrom As Date, datTo As Date

datFrom = txtFrom.Value
datTo = txtTo.Value
Debug.Print datFrom
Debug.Print datTo
DoCmd.SetFilter wherecondition:="expFrom BETWEEN #" & datFrom & "# AND #" &   datTo & "#"

Answer 1

我明白了。尽管该字段最初是一个日期字段，Access将其切换到文本字段，因此我不得不将其转换回日期。

DoCmd.SetFilter wherecondition:="CDate(expFrom) BETWEEN #" & Format(datFrom, "yyyy-m-d") & _
"# AND #" & Format(datTo, "yyyy-m-d") & "#"

连续表格日期过滤器

1 个答案: