DL在单独的表中的日期范围内查找多个条件

时间:2019-01-15 10:13:04

标签: ms-access access-vba

早上好

我有一个ms-access数据库,在表中有一个受表单控制的条目。

在输入包含日期的值时,我希望该表从一个单独的表中提取数据,该表中的日期在一定范围内并且具有可区分的值。

例如;

如果输入的日期是今天“ 15/1/19”,输入的会议厅是“冻结的”,请查找单独的表格并返回促销周期的名称,其中会议厅=“冻结的”,日期是在促销周期运行的日期范围内。

非常感谢

1 个答案:

答案 0 :(得分:1)

尝试:

Dim Chamber As String
Dim TrueDate As Date
Dim TextDate As String
Dim PromoCycle As Variant

Chamber = "Frozen"
TrueDate = Date
TextDate = Format(TrueDate, "yyyy\/mm\/dd")

PromoCycle = DLookup("[PromoCycle]", "YourTable", "[Chamber] = '" & Chamber & "' And #" & TextDate & "# Between [PromoStartDate] And [PromoEndDate]")