vba - 我正在使用 Dlookup 功能无法正常工作

Question

'我有一个包含字段名称的表名 PublicHolidays：

'PHA_ID 作为关键字段 'PH_Holiday 作为外键 'PH_Date 作为短日期

'在表单上请求日期为 M_Date 'M_Date 的更新后事件如下：

Dim StDt As Date
StDt = M_Date
Me.Requery            ' -> Display all Public Holidays in SubForm    

Dim M_Id As Variant

M_Id = DLookup("PH_Holiday", "PublicHolidays", "PH_Date = #" & StDt & "#")

' StDt 将随后在循环中使用，并在指定的结束日期之前递增 1 '对于在 Dlookup 函数中选择为 M_Date 的任何日期，M_Id 变量保持 NULL ' StDt 的值已分配给 PH_Date 但没有分配给 PH_Holiday 时在 VBA 中使用断点。