Question

我尝试使用dlookup查看日期是否已经在表格中，格式是正确的，因为我已经检查过并且输入正确，只是无法正确使用使用DLookup。

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

Combo87是这个月的一天 Combo89是这个月 Combo91是今年的最后2位数

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

在格式化

2 个答案: