使用DLOOKUP与Formatdate

Question

我正在尝试使用查找来查看日期是否已经在表中，格式是正确的，因为我已经检查并正确地输入了它，只是DLOOKUP无法正确地得到它。

Datelookup = DLOOKUP ("[todays_date]", "119_review", "[todays_date] = Format ("" & Me.Combo87 & " " & Me.Combo89 &" 20" & Me.Combo91 & "", medium)")

Combo87是月中的一天，Combo89是月份，Combo91是一年中最后两位数。

Answer 1

您可以使用：

Datelookup = DLookup("[todays_date]", "119_review", "[todays_date] = DateSerial(" & Me.Combo91 & ", " & Me.Combo89 & ", " & Me.Combo87 & ")")

在哪里，DateLookup将是“找不到”的空号。

并将控件重命名为有意义的内容。

Answer 2

试试这个：

Sub DL()
    Dim d As Date
        d = DateSerial(Me.Combo91.Value, Me.Combo89.Value, Me.Combo87.Value)
    Datelookup = DLookup("[todays_date]", "119_review", "[todays_date] = #" & Format(d, "Medium") & "#")
End Sub