MS Access不同表单日期值对比失效，求代码排查指导

问题背景 #

我在MS Access中使用两个表单：Warranty（对应WarrantyDetail表）和Findings（对应Findings表），二者唯一公共字段为CODE（对应WarrantyDetail表中产品的PID编号）。

需求：当用户在Warranty表单的DATECODE字段输入内容后，若对应记录在Findings表中的FixDate早于DATECODE，弹出MsgBox提示。我通过关联两张表的值实现，但代码未生效，以下是我的代码：

Dim Fdate
Dim FCode
FCode = DLookup("FINDINGS", "WarrantyDetail", "RGA = " & Me.RGA)
Fdate = DLookup("[FixDate]", "[Findings]", "Code = " & FCode)
'FCode = "Select WarrantyDetail.FINDINGS from WarrantyDetail where WarrantyDetail.RGA = '" + Me.RGA + "';"
'Fdate = "Select Findings.[FixDate] from Findings where Findings.[FindingsID]= '" + FCode + "';"
If Not IsNull(Fdate) Then
 If (DateValue(Me.DATECODE) > DateValue(Fdate)) Then
  MsgBox "The Fixdate precedes the Datecode"
 End If
End If

我已为DATECODE字段设置AfterUpdate事件属性，逻辑是通过当前表单的RGA编号获取对应FCode，再查找相同CODE对应的FixDate。

排查建议 #

• 修正DLookup的语法错误
  如果RGA是文本类型字段，第一行DLookup的条件必须加单引号，否则会因语法错误返回Null：

  FCode = DLookup("FINDINGS", "WarrantyDetail", "RGA = '" & Me.RGA & "'")
  

  同理，如果Findings表的Code字段是文本类型，第二行DLookup也要加单引号：

  Fdate = DLookup("[FixDate]", "[Findings]", "Code = '" & FCode & "'")
  

  字段类型可通过表设计视图确认，数值类型无需加引号，文本/字符串类型必须加。

• 验证字段关联的正确性
  确认WarrantyDetail表中，FINDINGS字段确实对应Findings表的CODE字段；检查当前表单的RGA值在WarrantyDetail表中是否存在，且能唯一匹配到FCode；同时确认Findings表中存在该FCode对应的记录，且FixDate字段为日期类型。

• 优化日期判断逻辑
  先判断Me.DATECODE是否为空，避免执行DateValue时出错；若字段本身是日期类型，可直接比较，无需强制转换：

  If Not IsNull(Me.DATECODE) And Not IsNull(Fdate) Then
      If Me.DATECODE > Fdate Then
          MsgBox "修复日期早于DATECODE"
      End If
  End If
  

• 添加调试输出定位问题
  在代码中加入调试语句，查看关键变量的值：

  Debug.Print "当前RGA: " & Me.RGA
  Debug.Print "获取到的FCode: " & FCode
  Debug.Print "获取到的FixDate: " & Fdate
  

  打开VBA编辑器的立即窗口（按Ctrl+G），操作表单后查看输出，确认是哪一步未获取到预期值。

• 注释SQL语句的问题说明
  注释里的SQL语句仅为字符串，无法直接获取查询结果。若想用SQL查询，需通过Recordset对象执行，比如：

  Dim rs As Recordset
  Set rs = CurrentDb.OpenRecordset("SELECT FINDINGS FROM WarrantyDetail WHERE RGA = '" & Me.RGA & "'")
  If Not rs.EOF Then FCode = rs!FINDINGS
  rs.Close
  Set rs = CurrentDb.OpenRecordset("SELECT FixDate FROM Findings WHERE Code = '" & FCode & "'")
  If Not rs.EOF Then Fdate = rs!FixDate
  rs.Close
  

内容的提问来源于stack exchange，提问作者what's_in_a_name