在Access VBA中的Dlookup函数中使用日期条件问题

Question

我在“每日数据”表中检查存储在“每日数据”表第一行中的特定日期

Private Sub Data_Update_Click（）

Dim db As DAO.Database

Dim rst as DAO.Recordset

Dim rstw作为DAO.Recordset

设置db = Application.CurrentDb

设置rst = db.OpenRecordset（“每日数据”，dbOpenDynaset）

设置rstw = db.OpenRecordset（“Data Weekly”，dbOpenDynaset）

rst

.MoveFirst

Dim date_check As Date

date_check = DLookup（“[ID test]”，“Data Weekly”，“[daily date] ='”＆amp; .Fields（“daily date”）＆amp;“'”）

.........

标准是导致问题，找不到合适的语法。谢谢你的帮助

Answer 1

使用：

date_check = DLookup("[ID test]", "Data Weekly", "[weekly date] = #" & Format(.Fields("daily date").Value, "yyyy\/mm\/dd") & "#")

但date_check必须是 Variant ，因为DLookup可以返回 Null 。